Compartilhar via

Usar um objeto Connection

  • Artigo

Antes de abrir um objeto Connection, você precisa 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';"

Observação

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 os DSNs, confira Como gerenciar fontes de dados na Referência do Programador do ODBC. Para obter mais informações sobre os UDLs, confira visão geral da API do Link de Dados na Referência do Programador do OLE DB.

Normalmente, você estabelece uma conexão chamando o método Connection.Open com uma cadeia de conexão apropriada como 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, oRs.Open usa uma variável de objeto Connection (oConn) como o valor do parâmetro ActiveConnection. Além disso, a propriedade Connection.CursorLocation pressupõe o valor padrão de adUseServer. Compare isso com o exemplo HelloData na seção anterior. A instrução a seguir resultará em erros em tempo de execução.

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