|
Dimensione: 2104
Commento:
|
Dimensione: 2522
Commento:
|
| Le cancellazioni sono segnalate in questo modo. | Le aggiunte sono segnalate in questo modo. |
| Linea 41: | Linea 41: |
| E' la soluzione base, più semplice. | E' la soluzione base, più semplice.Il codice da copiare: {{{ PUBLIC SUB Button1_Click() 'dimensiono la variabile del risultato DIM res AS Result 'dimensiono la variabile contenente la stringa DIM mysql AS String 'stringa di interrogazione tabella accounts del database mysql = "SELECT * FROM accounts ORDER By id" 'eseguo la ricerca res = connessione.Exec(mysql) 'mi posiziono sul primo record del recordset res.MoveLast END }}} |
IndiceBR TableOfContents |
Gambas e i database
Gambas si presta benissimo ad essere utilizzato come front-end per la gestione di basi di dati, nei formati MySql e Sqlite, Postgresql.
Premessa
Nell'esempio che segue ci agganciamo ad un database MySql già creato precedentemente. I dati di partenza sono i seguenti:
* nome del server: localhost * username: il vs nome utente per MySql * password: la Vs password per MySql * database name: provadb
Apertura del database MySql
Per prima cosa apriamo il nostro Gambas e creiamo un nuovo progetto. Una volta entrati inseriamo nel codice della form di partenza queste istruzioni:
'creo un nuovo oggetto connessione
PUBLIC connessione AS NEW Connection
'subroutine di connessione
PUBLIC SUB crea_connessione(mydb AS String,mytype AS String,myhost AS String,myuser AS String, mypass AS String)
'definisco i parametri della connessione
connessione.mydb="provadb"
connessione.mytype="mysql"
connessione.myhost="localhost"
connessione.myuser="mioid"
connessione.mypass="miapassword"
connessione.Open
message("Apertura database eseguita con successo.")
ENDPotete agganciare questa routine ad un bottone creato sulla form in modo da provare subito il codice. naturalmente questo è un esempio minimale. In effetti è importante effettuare interrogazioni sul database.
Esecuzione di un'interrogazione (soluzione interna)
E' la soluzione base, più semplice.Il codice da copiare:
PUBLIC SUB Button1_Click() 'dimensiono la variabile del risultato DIM res AS Result 'dimensiono la variabile contenente la stringa DIM mysql AS String 'stringa di interrogazione tabella accounts del database mysql = "SELECT * FROM accounts ORDER By id" 'eseguo la ricerca res = connessione.Exec(mysql) 'mi posiziono sul primo record del recordset res.MoveLast END
Esecuzione di un'interrogazione (soluzione esterna)
In questo caso la stringa sql risiede in un file fisico letto da Gambas ed utilizzato per effetuare la query.
Installazione da codice sorgente
Immagine(Icone/Piccole/warning.png,50,left)IMPORTANTE: questa sezione è in via di definizione! Le informazioni riportate potrebbero essere semplici appunti da verificare/correggere
