Database - Connessione ODBC

Tabelle #  Per eseguire il codice seguente e' necessario avere configurato una fonte dati
ODBC
Public Sub ApriFonteODBC()
    Dim wrkODBC As Workspace
    Dim conODBC As Connection
    Dim rs As Recordset
    On Error GoTo GestError
    'Crea l�oggetto Workspace di ODBCDirect.
    Set wrkODBC = CreateWorkspace("NewODBCWorkspace", _
        "admin", "", dbUseODBC)
    'Il nome della fonte dati utilizzata in questo caso e' MyDSN
    Set conODBC = wrkODBC.OpenConnection("Connection1", _
        dbDriverNoPrompt, , "ODBC;UID=;PWD=;DSN=MyDSN")
    'il database utilizzato in questo esempio contiene
    'una tabella Regioni; modificarla con i propri dati
    Set rs = conODBC.OpenRecordset("select * from Regioni")
    Do While Not rs.EOF
        'Visualizza nella finestra di debug tutti i valori del
        'Fields(1) (la tabella in questo caso ha due campi)
        Debug.Print rs.Fields(1)
        rs.MoveNext
    Loop
    conODBC.Close
    wrkODBC.Close
    Exit Sub
    GestError:
    MsgBox "Attenzione " & Err.Description
End Sub

Tabelle # Per eseguire il codice seguente e' necessario avere configurato una fonte dati
ODBC
Public Sub ApriFonteODBC()
Dim wrkODBC As Workspace
Dim conODBC As Connection
Dim rs As Recordset
On Error GoTo GestError
'Crea l�oggetto Workspace di ODBCDirect.

Set wrkODBC = CreateWorkspace("NewODBCWorkspace", _
"admin", "", dbUseODBC)
'Il nome della fonte dati utilizzata in questo caso e' MyDSN

Set conODBC = wrkODBC.OpenConnection("Connection1", _
dbDriverNoPrompt, , "ODBC;UID=;PWD=;DSN=MyDSN")
'il database utilizzato in questo esempio contiene

'una tabella Regioni; modificarla con i propri dati

Set rs = conODBC.OpenRecordset("select * from Regioni")
Do While Not rs.EOF
'Visualizza nella finestra di debug tutti i valori del

'Fields(1) (la tabella in questo caso ha due campi)

Debug.Print rs.Fields(1)
rs.MoveNext
Loop
conODBC.Close
wrkODBC.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub