Utilizzo base di Gambas e Sqlite3 - Cronologia

Vuott il 23:01, 5 gen 2017

2017-01-05T23:01:11Z

← Versione meno recente		Versione delle 17:01, 5 gen 2017
Riga 333:		Riga 333:

	==Cancellazione di un record==		==Cancellazione di un record==
			La cancellazione si effettua in modo simile alla modifica , si utilizza lo stesso metodo ''Connection.edit'':
			Public Sub Button4_Click()

			Dim id As String
			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 = "prova"
			sPercorso = User.Home <FONT Color=gray>' ''definiamo come percorso la nostra home''</font>

			With $hConn
			.Type = "sqlite3" <FONT Color=gray>' ''indicazione del tipo di database da utilizzare''</font>
			.Host = sPercorso
			'".Login = ""
			' .Password = ""
			End With

			$hConn.Name = sName
			$hConn.Open

	~~<FONT Color~~=~~red size~~=~~4><B>Pagina in costruzione !</b></font>~~		id = Label6.Text
			hres = $hConn.edit("biblio", "id=" & id)
			hres.Delete
			Button3.Enabled = False
			Button4.Enabled = False
			Button2.Enabled = True
			$hconn.Commit
			TextBox1.Text = ""
			TextBox2.Text = ""
			TextBox3.Text = ""
			Textbox4.Text = ""

			$hConn.Close

			End

Vuott il 22:57, 5 gen 2017

2017-01-05T22:57:36Z

@@ Riga 224: / Riga 224: @@
        Inc i   <FONT Color=gray>' ''aumenta di uno la variabile "i"; in tal modo al prossimo ciclo si scriverà il record successivo''</font>
      Next
-   Else
+   Else   <FONT Color=gray>' ''nel caso hres non contenga risultati''</font>
      GridView1.Columns.Count = 1
      GridView1.Rows.Count = 1
-     GridView1[0, 0].Text = "Nessun dato"
+     GridView1[0, 0].Text = "Nessun dato"   <FONT Color=gray>' ''viene visualizzata la scritta "nessun dato"''</font>
    Endif
@@ Riga 233: / Riga 233: @@
 ==Modifica di un record==

Vuott il 22:47, 5 gen 2017

2017-01-05T22:47:38Z

@@ Riga 5: / Riga 5: @@
 Questo piccolo articolo vuole essere una semplice guida all'utilizzo base di Gambas e ''Sqlite3'', rivolto a chi effettua i primi passi con questo linguaggio di programmazione ed ha necessità di realizzare un applicazione stand-alone che debba immagazzinare una certa quantità di dati in '''db'''.
 ==Creazione di un database==
@@ Riga 91: / Riga 90: @@
   End
 ==Aggiunta di un record==
@@ Riga 145: / Riga 143: @@
   End
 ==Ricerca dati==
@@ Riga 192: / Riga 189: @@
    Dim i As Integer

Vuott il 22:40, 5 gen 2017

2017-01-05T22:40:56Z

@@ Riga 7: / Riga 7: @@
-=Creazione di un database=
+==Creazione di un database==
 Il primo passo che dovremo realizzare sarà appunto creare un database adatto alle nostre esigenze, per far ciò utilizziamo la classe connection del componente '''''gb.db'''''.
@@ Riga 92: / Riga 92: @@
   End

Vuott: Creata pagina con "=Gambas e Sqlite= (pagina a cura di Fea Sergio - f.surfing@tiscali.it) Questo piccolo articolo vuole essere una semplice guida all'utilizzo base di Gambas e ''Sqlite3'', ri..."

2017-01-05T22:25:38Z

Creata pagina con "=Gambas e Sqlite= (pagina a cura di Fea Sergio - f.surfing@tiscali.it) Questo piccolo articolo vuole essere una semplice guida all'utilizzo base di Gambas e ''Sqlite3'', ri..."

Nuova pagina

=Gambas e Sqlite=

(pagina a cura di Fea Sergio - f.surfing@tiscali.it)

Questo piccolo articolo vuole essere una semplice guida all'utilizzo base di Gambas e ''Sqlite3'', rivolto a chi effettua i primi passi con questo linguaggio di programmazione ed ha necessità di realizzare un applicazione stand-alone che debba immagazzinare una certa quantità di dati in '''db'''.

=Creazione di un database=
Il primo passo che dovremo realizzare sarà appunto creare un database adatto alle nostre esigenze, per far ciò utilizziamo la classe connection del componente '''''gb.db'''''.

Questa classe ha bisogno di alcuni parametri che andremo a fornirgli in questo modo:
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

sName=”prova”
sPercorso=user.home ' ''definiamo come percorso la nostra home''

With $hConn
.Type = "sqlite3" ' ''indicazione del tipo di database da utilizzare''
.Host = sPercorso
.Login = ""
.Password = ""
End With
a questo punto possiamo procedere alla creazione verificando però che il db non sia già presente altrimenti visualizzeremo una finestra di errore:
$hConn.Open

If Not $hConn.Databases.Exist(sName) Then ' ''verifica che il db non esista''
$hConn.Databases.Add(sName)
' ''crea il nostro db''
Else
Message.Error("database già esistente", "OK")
Endif

$hConn.Close
Così abbiamo creato il nostro db ma non ha ancora nessuna tabella all' interno e quindi è inutilizzabile, per realizzare la struttura possiamo utilizzare la funzione ''.tablefields.add'' oppure sfruttare un ''query SQL'' .

Considerando la seconda ipotesi e volendo creare una tabella di nome "biblio" con dei dati biografici quali:
nome
cognome
indirizzo
procederemo con una ''query'' di questo tipo:
sql = "CREATE TABLE 'biblio' ( 'id' INTEGER PRIMARY KEY AUTOINCREMENTAL, 'nome' VARCHAR(255) DEFAULT NULL, 'cognome' VARCHAR(255) DEFAULT NULL, 'indirizzo' VARCHAR(255) DEFAULT NULL);"
il tutto scritto in un unica riga.

Si noti il campo “id” che contiene l' indice del database ed è di tipo integer autoincrementante (ovvero ogni volta che inseriamo un record il rispettivo id verrà inserito automaticamente.

Tutti gli altri campi io per abitudine li creo di tipo testo con lunghezza 255 caratteri.

Quindi il nostro codice per la creazione del db sarà cosi modificato:
Public Sub Button1_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 sql As String
Dim htable As Result

sName = "prova"
sPercorso = User.Home ' ''definiamo come percorso la nostra home''

With $hConn
.Type = "sqlite3" ' ''indicazione del tipo di database da utilizzare''
.Host = sPercorso
'".Login = ""
' .Password = ""
End With

$hConn.Open

If Not $hConn.Databases.Exist(sName) Then ' ''verifica che il db non esista''
$hConn.Databases.Add(sName) ' ''crea il nostro db''
$hConn.Close ' ''chiude il db''
$hConn.Name = sName
$hConn.Open() ' ''riapre il db per l' aggiunta della tabella''

' ''scrivere la query su un unica riga oppure separarla con i separatori &''
sql = "CREATE TABLE 'biblio' ( 'id' INTEGER PRIMARY KEY, 'nome' VARCHAR(255) DEFAULT NULL, 'cognome' VARCHAR(255) DEFAULT NULL, 'indirizzo' VARCHAR(255) DEFAULT NULL);"

hTable = $hConn.EXEC(sql)

$hConn.Commit
Label1.Text = "Database creato"
Else
Message.Error("database già esistente", "OK")
Endif

$hConn.Close

End

Pagina in costruzione !