la classe
=========

' Gambas: class file
' classe: Gambas2
' Autore: Andrea Bertini
' Email:  andrea_bertini_it@hotmail.com
' Data:   10 Giugno 2007
' Scopo:  crea connessione al database e gestisce gli accessi allo stesso 


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
' Gambas: funzione
' classe: Gambas2
' Autore: Andrea Bertini
' Email:  andrea_bertini_it@hotmail.com
' Data:   10 Giugno 2007
' Scopo:  esegue la sql

 '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

un esempio di utilizzo
======================

MyResult AS Result

PUBLIC SUB AggiornaPosizione()
    MyPosition = MySqlite.EseguiSql("select id, valore1, valore2 FROM test")
    MyPosition.movefirst
    FMain.Move(MyPosition!valore1, MyPosition!valore2)
    xcoord = MyPosition!valore1
    ycoord = MyPosition!valore2
END


