Freigeben über

Verwenden eines Connection-Objekts

  • Artikel

Bevor Sie ein Connection-Objekt öffnen, müssen Sie bestimmte Informationen zur Datenquelle und zum Verbindungstyp definieren. Die meisten dieser Informationen werden vom ConnectionString Parameter der Open-Methode für das Connection-Objekt oder durch die ConnectionString-Eigenschaft für das Connection-Objekt gespeichert. Eine Verbindungszeichenfolge besteht aus einer Liste von Argument-Wert-Paaren, die durch Semikolons getrennt sind, wobei die Werte in einfache Anführungszeichen eingeschlossen sind. Zum Beispiel:

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

Anmerkung

Sie können auch eine ODBC-Datenquellenname (DATA Source Name, DSN) oder eine UDL-Datei (Data Link) in einer Verbindungszeichenfolge angeben. Weitere Informationen zu DSNs finden Sie unter Verwalten von Datenquellen in der ODBC-Programmierreferenz. Weitere Informationen zu UDLs finden Sie unter Data Link API Overview in the OLE DB Programmer's Reference.

In der Regel richten Sie eine Verbindung ein, indem Sie die Connection.Open-Methode mit einer entsprechenden Verbindungszeichenfolge als Parameter aufrufen. Ein Beispiel ist im folgenden Visual Basic-Codeausschnitt dargestellt:

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

Hier übernimmt oRs.Open ein Connection-Objekt (oConn)-Variable als Wert des ActiveConnection-Parameters. Außerdem nimmt die Connection.CursorLocation-Eigenschaft den Standardwert adUseServeran. Kontrastieren Sie dies mit dem HelloData- Beispiel im vorherigen Abschnitt. Die folgende Anweisung würde zu Laufzeitfehlern führen.

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