MySqlite AS dbConnection 'istanza della classe dbConnection
MyResult AS Result 'risultato della query tipicamente un recordset

PUBLIC SUB Form_Open()
MySqlite = NEW dbConnection("sqlite3", "", "diet.db", "", "") 'connessione
END SUB

PUBLIC SUB CaricaAlimenti()
  DIM counter AS Integer
  MyResult = MySqlite.EseguiSql("SELECT idalimento, alimento FROM tbALIMENTI ORDER BY alimento ASC")  
  MyResult.movefirst
  lstALIMENTI.Clear
  counter = 0
  FOR EACH MyResult
    counter = counter + 1 
    lstALIMENTI.Add(MyResult!alimento) 
  NEXT 
END

PUBLIC conn AS NEW Connection
PUBLIC connesso AS Boolean

PUBLIC SUB _new(OPTIONAL mytype AS String, OPTIONAL myhost AS String, OPTIONAL mydb AS String, OPTIONAL myuserid AS String, OPTIONAL mypassword AS String)
  IF (connesso = FALSE) THEN 
    WITH conn
      .type = mytype
      .host = myhost
      .login = myuserid
      .password = mypassword     
      .name = mydb
    END WITH    
    TRY conn.Open   
    IF ERROR THEN    
      message("Non posso aprire il database. Errore " & Error.Text)  
    END IF   
    connesso = TRUE 
  END IF  
END

PUBLIC FUNCTION EseguiSql(mysql AS String) AS Result
 'LETTURA TABELLA MyResult = MySqlite.EseguiSql("select * FROM test")
 'NUOVO RECORD MyResult = MySqlite.EseguiSql("INSERT into test (id) values (555)"  
 'AGGIORNO RECORD MyResult = MySqlite.EseguiSql("UPDATE test valore1=12 WHERE id=1")
  RETURN conn.Exec(mysql)    
END

PRIVATE CasellaTestuale AS TextBox

PUBLIC SUB _new()
DIM varI AS Integer
DIM varX, varY, CoordinataX AS Integer
  CoordinataX = 20
  varX = 48
  FOR varI = 0 TO 3
    CasellaTestuale = NEW TextBox(ME)
    CasellaTestuale.Name = "CasellaTestuale" & Trim(CStr(varI))
    CasellaTestuale.X = CoordinataX + VarX + varI * 3
    CasellaTestuale.Y = 300
    CaselleTestuali.Add(CasellaTestuale)
    varX = varX + 50
  NEXT
END

PUBLIC SUB Button1_Click()
DIM n AS Integer
ListBox1.Clear
FOR n = 0 TO 3
  ListBox1.Add(CaselleTestuali[n].Name & " " & CaselleTestuali[n].X & " " & CaselleTestuali[n].Y)
NEXT  
END