Utilisation d’un objet connexion

Avant d’ouvrir un objet Connection, vous devez définir certaines informations sur la source de données et le type de connexion. La plupart de ces informations sont conservées par le paramètre ConnectionString de la méthode Open sur l’objet Connection, ou par la propriété ConnectionString sur l’objet Connection. Une chaîne de connexion se compose d’une liste de paires argument/valeur séparées par des points-virgules, avec les valeurs placées entre guillemets simples. Par exemple:

Dim sConn As String  
sConn = "Provider='SQLOLEDB';Data Source='MySqlServer';" & _  
             "Initial Catalog='Northwind';Integrated Security='SSPI';"  

Note

Vous pouvez également spécifier un nom de source de données ODBC (DSN) ou un fichier de liaison de données (UDL) dans une chaîne de connexion. Pour plus d’informations sur les DSN, consultez Gestion des sources de données dans la référence du programmeur ODBC. Pour plus d’informations sur les listes définies par l’utilisateur, consultez « Vue d’ensemble de l’API Data Link » dans la référence du programmeur OLE DB.

En règle générale, vous établissez une connexion en appelant la méthode Connection.Open avec une chaîne de connexion appropriée comme paramètre. Un exemple est illustré dans l’extrait de code Visual Basic suivant :

Dim oConn As ADODB.Connection  
Dim oRs As ADODB.Recordset  
Dim sConn As String  
Dim sSQL as String  
  
' Open a connection.  
Set oConn = New ADODB.Connection  
.Open   
  
' Make a query over the connection.  
sSQL = "SELECT ProductID, ProductName, CategoryID, UnitPrice " & _  
             "FROM Products"  
Set oRs = New ADODB.Recordset  
oRs.Open sSQL, , adOpenStatic, adLockBatchOptimistic, adCmdText  
  
MsgBox oRs.RecordCount  
  
' Close the connection.  
oConn.Close  
Set oConn = Nothing  
  

Ici, oRs.Open accepte une variable Connection (oConn) comme valeur de son paramètre ActiveConnection. ** En outre, la propriété Connection.CursorLocation prend la valeur par défaut de adUseServer. Comparez cela avec l’exemple HelloData dans la section précédente. L’instruction suivante génère des erreurs d’exécution.

oRs.MarshalOptions = adMarshalModifiedOnly  
' Disconnect the Recordset.  
Set oRs.ActiveConnection = Nothing