BR

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:

BRBRBRBRBRBRBR

'====================================================================================
'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

Anchor(classi)

Classi

Anchor(database)

Basi di dati

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

Anchor(gui)

Interfaccia utente

Grafica