Partager via

Utilisation d’un objet Connection

  • Article

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 contenues dans le paramètre ConnectionString de la méthode Open sur l’objet Connection, ou dans 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 entre guillemets simples (apostrophes). Par exemple :

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

Notes

Vous pouvez également spécifier un fichier DSN (nom de source de données) ODBC ou un fichier UDL (Universal Data Link) dans une chaîne de connexion. Pour plus d’informations sur les DSN, consultez Gestion des sources de données dans le Guide de référence du programmeur ODBC. Pour plus d’informations sur UDL, consultez Vue d’ensemble de l’API Data Link dans le Guide de 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 en guise de paramètre. Un exemple est présenté 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 prend une variable objet Connection (oConn) comme valeur de son paramètre ActiveConnection. Par ailleurs, la propriété Connection.CursorLocation suppose la valeur par défaut d’adUseServer. Comparez cela à l’exemple HelloData donné dans la section précédente. L’instruction suivante entraînerait des erreurs d’exécution.

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