Come connettersi a SQL da VB6

Se la tua azienda esegue la programmazione in Windows, è essenziale una conoscenza di base dei concetti di programmazione VB6. Windows fornisce una serie di oggetti e funzioni per semplificare lo sviluppo sui PC, inclusa l’automazione dell’accesso al database. Con VB6, è possibile chiamare oggetti ADODB per aprire una connessione al database SQL, inviare una query e quindi archiviare i risultati in un oggetto dati Recordset.

1

Apri il tuo editor di testo e crea un file denominato “vb_sql.vb”.

2

Creare una serie di variabili nel file VB6 per contenere le informazioni di connessione al database, inclusa una variabile di connessione, una variabile record e una variabile stringa per memorizzare e inviare comandi SQL:

Dim connect As ADODB.Connection Dim record As New ADODB.Recordset Dim com As String

3

Crea una connessione al database tramite la variabile “connect” nella riga successiva:

connect = New ADODB.Connection

4

Invia le informazioni sulla connessione del database all’oggetto connessione utilizzando il metodo “ConnectionString”. In questo esempio viene utilizzato un database denominato “Public”. Se non si conoscono queste informazioni, potrebbe essere necessario contattare il progettista o l’amministratore del database.

connect.ConnectionString = “DSN = Pubblico; UID = MyUserName; PWD = MyPassword;”

5

Apri la connessione con il seguente codice:

connect.Open

6

Crea un nuovo oggetto Recordset:

records = Nuovo ADODB.Recordset

7

Specificare un comando SQL nella stringa del comando SQL. Questo esempio presuppone che nel database SQL esista una tabella denominata “Example”:

com = “SELECT * FROM Example”

8

Usa il comando per interrogare il database e memorizzare le informazioni nel Recordset, completando la connessione:

records.Open com, connect, adOpenKeyset