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 ilOpen()
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
Commenti e suggerimenti
https://aka.ms/ContentUserFeedback.
Presto disponibile: nel corso del 2024 verranno dismessi i problemi di GitHub come meccanismo di feedback per il contenuto e verranno sostituiti con un nuovo sistema di feedback. Per altre informazioni, vedere:Invia e visualizza il feedback per