Aprire la connessione ADO e gli oggetti Recordset

Questo articolo illustra come aprire la connessione ADO e gli oggetti Recordset.

Versione originale del prodotto: SQL Server
Numero KB originale: 168336

Riepilogo

ActiveX Data Objects (ADO) offre diversi modi per aprire gli oggetti Connection e Recordset. Questo articolo presenta il codice di esempio per diverse tecniche comuni per ogni oggetto.

Ulteriori informazioni

Esistono diversi modi per aprire un oggetto connessione all'interno di ADO:

  • Impostando la ConnectionString proprietà su una stringa Connect valida e quindi chiamando il Open() metodo . Questo stringa di connessione dipende dal provider.
  • Passando una stringa Connect valida al primo argomento del Open() metodo.
  • Passando un oggetto Command valido al primo argomento del metodo Open di un oggetto Recordset.
  • Passando il nome dell'origine dati ODBC e facoltativamente user-id e password al metodo dell'oggetto Open() Connection.

Esistono tre modi per aprire un oggetto Recordset all'interno di ADO:

  • Aprendo l'oggetto Recordset dal Connection.Execute() metodo .
  • Aprendo l'oggetto Recordset dal Command.Execute() metodo .
  • Aprendo l'oggetto Recordset senza un oggetto Connection o Command e passando una stringa Connect valida al secondo argomento del Recordset.Open() metodo.

Questo codice presuppone che Nwind.mdb sia installato con Visual Basic e si trovi in C:\Program Files\DevStudio\VB directory:

Option Explicit

Private Sub cmdOpen_Click()

    Dim Conn1 As New adodb.Connection
    Dim Cmd1 As New adodb.Command
    Dim Errs1 As Errors
    Dim Rs1 As New adodb.Recordset
    
    Dim i As Integer
    Dim AccessConnect As String
    
    ' Error Handling Variables
    Dim errLoop As Error
    Dim strTmp As String
    
    AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
    "Dbq=nwind.mdb;" & _
    "DefaultDir=C:\program files\devstudio\vb;" & _
    "Uid=Admin;Pwd=;"
    
    '---------------------------
    ' Connection Object Methods
    '---------------------------
    
    On Error GoTo AdoError ' Full Error Handling which traverses
    ' Connection object
    
    ' Connection Open method #1: Open via ConnectionString Property
    Conn1.ConnectionString = AccessConnect
    Conn1.Open
    Conn1.Close
    Conn1.ConnectionString = ""
    
    ' Connection Open method #2: Open("[ODBC Connect String]","","")
    Conn1.Open AccessConnect
    Conn1.Close
    
    ' Connection Open method #3: Open("DSN","Uid","Pwd")
    Conn1.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=nwind.mdb;" & _
    "DefaultDir=C:\program files\devstudio\vb;" & _
    "Uid=Admin;Pwd=;"
    Conn1.Close
    
    '--------------------------
    ' Recordset Object Methods
    '--------------------------
    
    ' Don't assume that we have a connection object.
    On Error GoTo AdoErrorLite
    
    ' Recordset Open Method #1: Open via Connection.Execute(...)
    Conn1.Open AccessConnect
    Set Rs1 = Conn1.Execute("SELECT * FROM Employees")
    Rs1.Close
    Conn1.Close
    
    ' Recordset Open Method #2: Open via Command.Execute(...)
    Conn1.ConnectionString = AccessConnect
    Conn1.Open
    Cmd1.ActiveConnection = Conn1
    Cmd1.CommandText = "SELECT * FROM Employees"
    Set Rs1 = Cmd1.Execute
    Rs1.Close
    Conn1.Close
    Conn1.ConnectionString = ""
    
    ' Recordset Open Method #3: Open via Command.Execute(...)
    Conn1.ConnectionString = AccessConnect
    Conn1.Open
    Cmd1.ActiveConnection = Conn1
    Cmd1.CommandText = "SELECT * FROM Employees"
    Rs1.Open Cmd1
    Rs1.Close
    Conn1.Close
    Conn1.ConnectionString = ""
    
    ' Recordset Open Method #4: Open w/o Connection & w/Connect String
    Rs1.Open "SELECT * FROM Employees", AccessConnect, adOpenForwardOnly
    Rs1.Close
    
    Done:
    Set Rs1 = Nothing
    
    Set Cmd1 = Nothing
    Set Conn1 = Nothing
    
    Exit Sub
    
    AdoError:
    i = 1
    On Error Resume Next
    
    ' Enumerate Errors collection and display properties of
    ' each Error object (if Errors Collection is filled out)
    Set Errs1 = Conn1.Errors
    For Each errLoop In Errs1
        With errLoop
            strTmp = strTmp & vbCrLf & "ADO Error # " & i & ":"
            strTmp = strTmp & vbCrLf & " ADO Error # " & .Number
            strTmp = strTmp & vbCrLf & " Description " & .Description
            strTmp = strTmp & vbCrLf & " Source " & .Source
            i = i + 1
        End With
    Next
    
    AdoErrorLite:
    ' Get VB Error Object's information
    strTmp = strTmp & vbCrLf & "VB Error # " & Str(Err.Number)
    strTmp = strTmp & vbCrLf & " Generated by " & Err.Source
    strTmp = strTmp & vbCrLf & " Description " & Err.Description
    
    MsgBox strTmp
    
    ' Clean up gracefully without risking infinite loop in error handler
    On Error GoTo 0
    GoTo Done
End Sub

NOTE SULL'ERRORE

Solo l'oggetto ADO Connection ha una raccolta di errori. Il lettore osservante noterà che è attivo un gestore di errori leggero per gli RecordSet.Open esempi. In caso di errore durante l'apertura di un oggetto RecordSet, ADO deve restituire l'errore più esplicito dal provider OLEDB. Di seguito sono riportati alcuni errori comuni riscontrabili con il codice precedente.

Se si omette (o si verifica un errore in) il parametro DefaultDir nella stringa di connessione, è possibile che venga visualizzato l'errore seguente:

Errore ADO # -2147467259
Descrizione [Microsoft][ODBC Microsoft Access 97 Driver] '(unknown)'
non è un percorso valido. Assicurarsi che il nome del percorso sia
digitato correttamente e che si è connessi al server
in cui risiede il file.
Provider Microsoft OLE DB di origine per driver ODBC

Se si verifica un errore nel parametro Dbq nella stringa di connessione, è possibile che venga visualizzato l'errore seguente:

Errore ADO # -2147467259 Descrizione [Microsoft][Driver ODBC Microsoft Access 97] Impossibile trovare il file '(sconosciuto)'.
Provider Microsoft OLE DB di origine per driver ODBC

Gli errori precedenti popolano anche la raccolta di errori di connessione con gli errori seguenti:

Errore ADO # -2147467259
Descrizione [Microsoft][Gestione driver ODBC] Driver's
SQLSetConnectAttr non riuscito
Provider Microsoft OLE DB di origine per driver ODBC

Errore ADO # -2147467259
Descrizione accesso non riuscito
Provider Microsoft OLE DB di origine per driver ODBC

Nota

Per ogni errore, il numero di errore ADO è lo stesso, in questo caso la conversione in 0x80004005, ovvero il messaggio di errore E_FAIL generico. Il componente sottostante non aveva un numero di errore specifico per la condizione rilevata, ma le informazioni utili non sono mai state generate in ADO.

Riferimenti