Come editare un record

[Murduk]

Scusate potete farmi capire perchè non riesco a editare un record utilizzando questo codice. Dove sta l'errore?

Codice: [Seleziona]

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
 

[Murduk]

  Ho Risolto cosi:

Codice: [Seleziona]

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

:ciao.

[Gianluigi]

risultato_1 = hconn_Isi.Edit("datix_isi", "id=" & Filtro_1)

Io uso abitualmente SQL puro ma credo che questo dovrebbe essere scritto:

Codice: [Seleziona]

risultato_1 = hconn_Isi.Edit("datix_isi", "id= &1",  Filtro_1)