Compartir a través de

Usar un objeto de Conexión

  • Artículo

Antes de abrir un objeto Connection, debe definir cierta información sobre el origen de datos y el tipo de conexión. La mayoría de esta información se encuentra en el parámetro ConnectionString del método Open en el objeto Connection, o en la propiedad ConnectionString del objeto Connection. Una cadena de conexión consta de una lista de pares argumento-valor separados por punto y coma, con los valores incluidos entre comillas simples. Por ejemplo:

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

Nota

También puede especificar un nombre de origen de datos ODBC (DSN) o un archivo de vínculo de datos (UDL) en una cadena de conexión. Para obtener más información sobre DSNs, consulte Administración de orígenes de datos en la referencia del programador de ODBC. Para obtener más información sobre UDLs, consulte Información General del API de Enlace de Datos en la Referencia del Programador de OLE DB.

Normalmente, se establece una conexión llamando al método Connection.Open con una cadena de conexión adecuada como parámetro. Se muestra un ejemplo en el siguiente fragmento de código de 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

Aquí oRs.Open toma una variable Connection (oConn) como valor de su parámetro ActiveConnection. Además, la propiedad Connection.CursorLocation asume el valor predeterminado de adUseServer. Contraste esto con el ejemplo HelloData de la sección anterior. La siguiente instrucción produciría errores en tiempo de ejecución.

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