Scusate potete farmi capire perchè non riesco a editare un record utilizzando questo codice. Dove sta l'errore?
Public Sub Button2_Click()
Dim sName As String ' sName è una variabile che indica il nome che diamo al nostro database
Dim sPercorso As String ' indica il percorso in cui andremo a creare il db
Dim $hConn As New Connection
Dim hres As Result
Dim sql As String
sName = "base"
sPercorso = User.Home &/ ".visor" ' definiamo come percorso la nostra home
With $hConn
.Type = "sqlite3" ' indicazione del tipo di database da utilizzare
.Host = sPercorso
'''.Login = ""
' .Password = ""
End With
$hConn.Name = sName
$hConn.Open
$hconn.Begin
' Preparo la tebella dove ediatre i dati dati
hres = $hConn.Edit("datix_preu",propiet_app, cod_fis_prop, gesto_eser)
' Associo i dati della textbox al record della tabella
hres!propiet_app = TextBox1.Text
hres!cod_fis_prop = TextBox2.Text
hres!gesto_eser " = TextBox3.Text"
hres.Update
$hConn.Commit
'Chiudo in batabase
$hConn.Close
End
Grazie
:hard: :hard:
:D :D Ho Risolto cosi:
Public Sub Button2_Click()
Dim risultato_1 As Result
Dim Filtro_1 As String
Try Mkdir User.Home &/ ".visor"
hconn_Isi = Modulo_connectDB.ConectBase()
Filtro_1 = TextBox1.Text
risultato_1 = hconn_Isi.Edit("datix_isi", "id=" & Filtro_1)
risultato_1!propiet_app = TextBox1.Text
risultato_1!cod_fis_prop = TextBox2.Text
risultato_1!gesto_eser = TextBox3.Text
risultato_1.Update
hconn_Isi.Commit
hconn_Isi.Close
End
:rolleyes: :ciao.
risultato_1 = hconn_Isi.Edit("datix_isi", "id=" & Filtro_1)
Io uso abitualmente SQL puro ma credo che questo dovrebbe essere scritto:
risultato_1 = hconn_Isi.Edit("datix_isi", "id= &1", Filtro_1)
:ciao: