Usando um objeto de conexão

Antes de abrir um objeto Connection, você deve definir determinadas informações sobre a fonte de dados e o tipo de conexão. A maioria dessas informações é mantida pelo parâmetro ConnectionString do método Open no objeto Connection ou pela propriedade ConnectionString no objeto Connection. Uma cadeia de conexão consiste em uma lista de pares de argumento/valor separados por ponto e vírgula, com os valores entre aspas simples. Por exemplo:

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

Nota

Você também pode especificar um DSN (Nome da Fonte de Dados) ODBC ou um arquivo UDL (Link de Dados) em uma cadeia de conexão. Para obter mais informações sobre DSNs, consulte Gerenciando fontes de dados na referência do programador ODBC. Para obter mais informações sobre UDLs, consulte Visão geral da API de Link de Dados na referência do programador OLE DB.

Normalmente, você estabelece uma conexão chamando o método Connection.Open com uma cadeia de conexão apropriada como seu parâmetro. Um exemplo é mostrado no seguinte snippet de código do Visual Basic:

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  
  

Aqui objeto oRs.Open aceita um objeto Connection (oConn) como o valor de seu parâmetro ActiveConnection. Além disso, a propriedade Connection.CursorLocation pressupõe o valor padrão de adUseServer. Contraste isso com o exemplo HelloData na seção anterior. A instrução a seguir resultaria em erros de tempo de execução.

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