Ouvrir la connexion ADO et les objets Recordset

Cet article explique comment ouvrir la connexion ADO et les objets Recordset.

Version du produit d’origine : SQL Server
Numéro de la base de connaissances d’origine : 168336

Résumé

Ado (ActiveX Data Objects) offre plusieurs façons d’ouvrir les objets Connection et Recordset. Cet article présente un exemple de code pour plusieurs techniques courantes pour chaque objet.

Plus d’informations

Il existe plusieurs façons d’ouvrir un objet Connection dans ADO :

• En définissant la ConnectionString propriété sur une chaîne Connect valide, puis en appelant la Open() méthode . Cette chaîne de connexion dépend du fournisseur.
• En passant une chaîne Connect valide au premier argument de la Open() méthode .
• En passant un objet Command valide dans le premier argument de la méthode Open d’un recordset.
• En passant le nom de la source de données ODBC et éventuellement l’id utilisateur et le mot de passe à la méthode de Open() l’objet Connection.

Il existe trois façons d’ouvrir un objet Recordset dans ADO :

• En ouvrant l’objet Recordset hors de la Connection.Execute() méthode .
• En ouvrant l’objet Recordset hors de la Command.Execute() méthode .
• En ouvrant l’objet Recordset sans objet Connection ou Command et en passant une chaîne Connect valide au deuxième argument de la Recordset.Open() méthode.

Ce code part du principe que Nwind.mdb est installé avec Visual Basic et se trouve dans :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

NOTES D’ERREUR

Seul l’objet Ado Connection possède une collection d’erreurs. Le lecteur observateur remarquera qu’un gestionnaire d’erreurs léger est en vigueur pour les RecordSet.Open exemples. En cas d’erreur lors de l’ouverture d’un objet RecordSet, ADO doit retourner l’erreur la plus explicite du fournisseur OLEDB. Voici quelques erreurs courantes qui peuvent être rencontrées avec le code précédent.

Si vous omettez (ou s’il y a une erreur dans) le paramètre DefaultDir dans la chaîne de connexion, vous pouvez recevoir l’erreur suivante :

Erreur ADO # -2147467259
Description [Microsoft][ODBC Microsoft Access 97 Driver] '(unknown)'
n’est pas un chemin d’accès valide. Vérifiez que le nom du chemin d’accès est
correctement orthographié et que vous êtes connecté au serveur
sur lequel réside le fichier.
Fournisseur Microsoft OLE DB source pour les pilotes ODBC

S’il existe une erreur dans le paramètre Dbq dans la chaîne de connexion, vous pouvez recevoir l’erreur suivante :

Erreur ADO # -2147467259 Description [Microsoft][Pilote ODBC Microsoft Access 97] Impossible de trouver le fichier '(unknown)'.
Fournisseur Microsoft OLE DB source pour les pilotes ODBC

Les erreurs précédentes remplissent également la collection d’erreurs de connexion avec les erreurs suivantes :

Erreur ADO # -2147467259
Description [Microsoft][ODBC Driver Manager] Driver's
Échec de SQLSetConnectAttr
Fournisseur Microsoft OLE DB source pour les pilotes ODBC

Erreur ADO # -2147467259
Description Échec de la connexion
Fournisseur Microsoft OLE DB source pour les pilotes ODBC

References

• Microsoft ActiveX Data Objects (ADO)
• Utilisation d’un objet Connection