Differenze tra le versioni 8 e 13 (in 5 versioni)

Introduzione

Questa pagina è dedicata al codice scritto dagli utenti. Si consiglia, per motivi redazionali e di comprensione del codice, di apporre prima del corpo dello stesso le note informative nel formato seguente:

BR BR BR BR BR BR BR

'====================================================================================
'Author      : <nome autore> 
'Email       : <email autore>
'Name        : <nome funzione>
'Category    : <categoria, x classificare la funzione>
'Subject     : <scopo e desrizione dell funzione>
'Date        : <data di realizzazione>
'Version     : <versione della funzione>
'Release old : <funzione di riferimento nel caso di variazione di funzione esistente>
'====================================================================================

Anchor(funzioni)

Funzioni

Codice

Descrizione

Anchor(classi)

Classi

Codice

Descrizione

Anchor(database)

Basi di dati

Codice

Descrizione

Esempio n.1: apertura di un database MySql

'==========================================
'Author     : Andy60 
'Email      : andrea_bertini_it@hotmail.com
'Name       : crea_connessione
'Subject    : apertura database
'==========================================

'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.")

END

Esempio n.2: interrogazione di un database MySql

'==========================================
'Author     : Andy60 
'Email      : andrea_bertini_it@hotmail.com
'Name       : button
'Subject    : sql database
'==========================================

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

Esempio n.3: interrogazione di un database MySql con un file esterno

'==========================================
'Author     : Andy60 
'Email      : andrea_bertini_it@hotmail.com
'Name       : function selectedSql
'Subject    : sql with external file
'==========================================

PUBLIC FUNCTION selectedSql(sqlName AS String) AS String

  DIM linea AS String
  DIM myfile AS File
  OPEN sqlName FOR READ AS #myfile 
  LINE INPUT #myfile, linea
  CLOSE #myfile  
  RETURN linea

END

PUBLIC SUB LoadSimList()

'pulizia del componente che dovrà visualizzare i dati (listview)
ListView1.Clear

'utilizzo la funzione di cui sopra
mysql = selectedSql("listasim.sql")
resManager = connessione.exec(mysql)

......codice di utilizzo del recordset

END

Anchor(networking)

Internet e rete

Codice

Descrizione

Anchor(gui)

Interfaccia utente

Codice

Descrizione

Grafica

Codice

Descrizione

Ulteriori risorse

http://wiki.ubuntu-it.org/Programmazione/Gambas/Database

-  ⇤ ← Versione 8 del 03/06/2007 10.50.22 → 
  Dimensione: 2237
  Autore: AndreaBertini
  Commento:
+   ← Versione 13 del 03/06/2007 11.45.07 → ⇥
  Dimensione: 4300
  Autore: AlessioTreglia
  Commento: aggiunti gli anchor
-Le cancellazioni sono segnalate in questo modo.
+Le aggiunte sono segnalate in questo modo.
 Linea 9:
+[[BR]][[BR]][[BR]][[BR]][[BR]][[BR]][[BR]]
-Linea 23:
+Linea 25:
+[[Anchor(funzioni)]]
-Linea 24:
+Linea 27:
+||<style="background-color:#F6D358;":>'''Codice'''||<style="background-color:#F6D358;":>'''Descrizione'''||

[[Anchor(classi)]]
-Linea 25:
+Linea 32:
-Costruire una classe è semplice, basta creare un nuovo oggetto di tipo classe. Creaiamo la '''classe Contatto'''. Per convenzione le variabili stringa iniziano con una 's' e così anche le altre variabili. All'interno del codice dell'oggetto appena creato scriviamo:
+||<style="background-color:#F6D358;":>'''Codice'''||<style="background-color:#F6D358;":>'''Descrizione'''||

[[Anchor(database)]]
= Basi di dati =

||<style="background-color:#F6D358;":>'''Codice'''||<style="background-color:#F6D358;":>'''Descrizione'''||

== Esempio n.1: apertura di un database MySql ==
-Linea 28:
+Linea 43:
-'Gambas classfile
+'==========================================
'Author     : Andy60 
'Email      : andrea_bertini_it@hotmail.com
'Name       : crea_connessione
'Subject    : apertura database
'==========================================
-Linea 30:
+Linea 50:
-PUBLIC sNome as String
PUBLIC sCognome as string
PUBLIC sIndirizzo as String
PUBLIC sCitta as String
PUBLIC sCap as String
+'creo un nuovo oggetto connessione
PUBLIC connessione AS NEW Connection
-Linea 36:
+Linea 53:
-}}}
+'subroutine di connessione
PUBLIC SUB crea_connessione(mydb AS String,mytype AS String,myhost AS String,myuser AS String, mypass AS String)
-Linea 38:
+Linea 56:
-Inizializziamo le variabili appena definite:

{{{
PUBLIC SUB _new(nom AS String,cog AS String,ind AS String,cit AS String,cap AS String)

sNome=nom
sCognome=cog
sIndirizzo=ind
sCitta=cit
sCap=cap
+'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.")
-Linea 52:
+Linea 68:
-Utilizziamo la Classe, attraverso una sua istanza, all'interno di un qualunque form del nostro progetto Gambas:
+== Esempio n.2: interrogazione di un database MySql ==
-Linea 55:
+Linea 71:
+'==========================================
'Author     : Andy60 
'Email      : andrea_bertini_it@hotmail.com
'Name       : button
'Subject    : sql database
'==========================================
-Linea 56:
+Linea 78:
-'Gambas classfile

'definiamo la variabile
c1 AS Contatto

'creiamo l'oggetto Contatto
-Linea 64:
+Linea 80:
-  c1 = NEW Contatto("Andrea", "Rossi", "Via del Corso 112", "Roma", "00100") 
  TextArea1.Text = "Nome " & c1.snome & ", Cognome " & c1.scognome & "."
+ '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
}}}

== Esempio n.3: interrogazione di un database MySql con un file esterno ==

{{{
'==========================================
'Author     : Andy60 
'Email      : andrea_bertini_it@hotmail.com
'Name       : function selectedSql
'Subject    : sql with external file
'==========================================

PUBLIC FUNCTION selectedSql(sqlName AS String) AS String

  DIM linea AS String
  DIM myfile AS File
  OPEN sqlName FOR READ AS #myfile 
  LINE INPUT #myfile, linea
  CLOSE #myfile  
  RETURN linea
-Linea 69:
+Linea 119:
+PUBLIC SUB LoadSimList()

'pulizia del componente che dovrà visualizzare i dati (listview)
ListView1.Clear

'utilizzo la funzione di cui sopra
mysql = selectedSql("listasim.sql")
resManager = connessione.exec(mysql)

......codice di utilizzo del recordset

END
-Linea 70:
+Linea 132:
-attachment:classe.png
= Basi di dati =
+[[Anchor(networking)]]
-Linea 73:
+Linea 135:
+||<style="background-color:#F6D358;":>'''Codice'''||<style="background-color:#F6D358;":>'''Descrizione'''||

[[Anchor(gui)]]
-Linea 74:
+Linea 140:
-= Xml =
= Sdl =
+||<style="background-color:#F6D358;":>'''Codice'''||<style="background-color:#F6D358;":>'''Descrizione'''||
-Linea 77:
+Linea 144:
+||<style="background-color:#F6D358;":>'''Codice'''||<style="background-color:#F6D358;":>'''Descrizione'''||
-Linea 78:
+Linea 148:
+ * http://wiki.ubuntu-it.org/Programmazione/Gambas/Database