Connessione a Database ACCESS con VB6
Ormai è un articolo molto “antico”, ma lo scrivo soprattutto per ragioni “storiche” (e anche perchè ne ho avuto bisogno recentemente!).
Per effettuare una connessione a un DATABASE Access con Visual Basic 6.0, utilizzare questo codice :
'apro connessione
Dim conn
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=C:\dbase.mdb;User ID=Admin;Password=;"
conn.ConnectionTimeout = 60
conn.Mode = adModeReadWrite
conn.CursorLocation = adUseServer
conn.Open
Set RCDS = New ADODB.Recordset
RCDS.CursorType = adOpenKeyset
RCDS.LockType = adLockOptimistic
RCDS.Open "Data", conn, , , adCmdTable '(dove DATA è il nome della TABELLA)
Per recuperare i campi (da utilizzare) dalla tabella DATA, utilizzare i richiami (esempio):
RCDS.Fields("ragionesociale")
E per utilizzare un CICLO di LETTURA di TUTTA la Tabella :
Do While Not RCDS.EOF And relocatoDB = 0
variabile = RCDS.Fields("ragionesociale")
RCDS.MoveNext
Loop
Chiusura DB :
RCDS.Close
Set RCDS = Nothing
conn.Close
Set conn = Nothing
About the Author: Andrea Ceccherini
Subscribe
If you enjoyed this article, subscribe to receive more just like it.
Connect
Connettiti con me su vari social media...