1
Programmazione / Re: Collaboratori per Programma RIT con GAMBAS
« il: 09 Giugno 2013, 18:30:46 »
Ho un problemino.
Dal form "frmClient" inserisco i dati del cliente.
ho una mezza idea del codice da scrivere ma leggendo troppe guide mi sto rinco......
Allora prima cosa che avevo scritto è il controllo di esistenza del db (report nel mio caso) come avevo già scritto nel post precedente.
Ok fin qui ci sono.
come faccio ad inserire i dati nel db.
la logica mi dice:
1 - aprire il db
2 - inserire i dati nei rispettivi campi
3 - chiudere il DB
QUESTO IL CODICE
Private Sub Crea_dati()
'-- connetti al database
Dim $hConn As New Connection
Dim $hres As Result
Dim sName As String = "report"
'-- percorso database
Dim sPercorso As String = User.Home &/ SQLite.dbs / ".database"
Dim $hConn.Type = "sqlite3"
'-- salvataggio nuovo cliente
$hres = $hConn.Create("cliente")
$hres["ID_Cliente"] = tbID_Cliente
$hres["cliente"] = tbCliente
$hres["Indirizzo"] = tbIndirizzo
$hres["cap"] = tbCap
$hres["citta"] = tbCitta
$hres["prov"] = tbProv
$hres["tel"] = tbTel
$hres["fax"] = tbFax
$hres["mobile"] = tbMobile
$hres["email"] = tbEmail
$hres["p_iva"] = tbP_iva
$hres["cod_fisc"] = tbCod_fisc
$hres.Update
$hConn.Commit
$hConn.CLOSE
End
E giusto o ci sono correzioni da fare?
Grazie per la pazienza.
Dario
Dal form "frmClient" inserisco i dati del cliente.
ho una mezza idea del codice da scrivere ma leggendo troppe guide mi sto rinco......
Allora prima cosa che avevo scritto è il controllo di esistenza del db (report nel mio caso) come avevo già scritto nel post precedente.
Ok fin qui ci sono.
come faccio ad inserire i dati nel db.
la logica mi dice:
1 - aprire il db
2 - inserire i dati nei rispettivi campi
3 - chiudere il DB
QUESTO IL CODICE
Private Sub Crea_dati()
'-- connetti al database
Dim $hConn As New Connection
Dim $hres As Result
Dim sName As String = "report"
'-- percorso database
Dim sPercorso As String = User.Home &/ SQLite.dbs / ".database"
Dim $hConn.Type = "sqlite3"
'-- salvataggio nuovo cliente
$hres = $hConn.Create("cliente")
$hres["ID_Cliente"] = tbID_Cliente
$hres["cliente"] = tbCliente
$hres["Indirizzo"] = tbIndirizzo
$hres["cap"] = tbCap
$hres["citta"] = tbCitta
$hres["prov"] = tbProv
$hres["tel"] = tbTel
$hres["fax"] = tbFax
$hres["mobile"] = tbMobile
$hres["email"] = tbEmail
$hres["p_iva"] = tbP_iva
$hres["cod_fisc"] = tbCod_fisc
$hres.Update
$hConn.Commit
$hConn.CLOSE
End
E giusto o ci sono correzioni da fare?
Grazie per la pazienza.
Dario