'' Gambas class file
' Proviene da Un Modulo
Private hconn_giorno As Connection
Private hresult_Isi As Result
Private hresult_Preu As Result 

'*************************

Public Sub Form_Open()
Dim result_isi As Result
Dim Filtro_Isi As String

'Dim Popola As String
   Try Mkdir User.Home &/ ".visor"
  
        hconn_giorno = Modulo_connectDB.ConectBase()
        
   TextBox5.Text = TextBox2.Text & "/" & TextBox3.Text & "/" & TextBox4.Text     
       
        
        Filtro_Isi = TextBox5.Text
       
        
       'TextBox6.Text = Filtro_Isi
         ' Eseguo una richiesta alla tabella datix_isi del database con una select
       result_Isi = hconn_giorno.Exec("Select Scadenza from datix_isi where Scadenza like  '" & Filtro_Isi & "'")
        
     Label5.Text = result_Isi["Scadenza"]   '1'


hconn_giorno.Close

End

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