Compartir a través de

Apertura de objetos recordset y conexión de ADO

En este artículo se presenta cómo abrir objetos Recordset y conexión de ADO.

Versión del producto original: SQL Server
Número de KB original: 168336

Resumen

ActiveX Data Objects (ADO) ofrece varias maneras de abrir los objetos Connection y Recordset. En este artículo se presenta código de ejemplo para varias técnicas comunes para cada objeto.

Más información

Hay varias maneras de abrir un objeto connection dentro de ADO:

  • Estableciendo la ConnectionString propiedad en una cadena Connect válida y llamando al Open() método . Este cadena de conexión depende del proveedor.
  • Al pasar una cadena Connect válida al primer argumento del Open() método .
  • Al pasar un objeto Command válido al primer argumento del método Open de un objeto Recordset.
  • Pasando el nombre del origen de datos ODBC y, opcionalmente, el identificador de usuario y la contraseña al método del Open() objeto connection.

Hay tres maneras de abrir un objeto Recordset dentro de ADO:

  • Al abrir el objeto Recordset fuera del Connection.Execute() método .
  • Al abrir el objeto Recordset fuera del Command.Execute() método .
  • Al abrir el objeto Recordset sin un objeto Connection o Command y pasando una cadena Connect válida al segundo argumento del Recordset.Open() método .

Este código supone que Nwind.mdb está instalado con Visual Basic y se encuentra en :C:\Program Files\DevStudio\VB directory

Option Explicit

Private Sub cmdOpen_Click()

    Dim Conn1 As New adodb.Connection
    Dim Cmd1 As New adodb.Command
    Dim Errs1 As Errors
    Dim Rs1 As New adodb.Recordset
    
    Dim i As Integer
    Dim AccessConnect As String
    
    ' Error Handling Variables
    Dim errLoop As Error
    Dim strTmp As String
    
    AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
    "Dbq=nwind.mdb;" & _
    "DefaultDir=C:\program files\devstudio\vb;" & _
    "Uid=Admin;Pwd=;"
    
    '---------------------------
    ' Connection Object Methods
    '---------------------------
    
    On Error GoTo AdoError ' Full Error Handling which traverses
    ' Connection object
    
    ' Connection Open method #1: Open via ConnectionString Property
    Conn1.ConnectionString = AccessConnect
    Conn1.Open
    Conn1.Close
    Conn1.ConnectionString = ""
    
    ' Connection Open method #2: Open("[ODBC Connect String]","","")
    Conn1.Open AccessConnect
    Conn1.Close
    
    ' Connection Open method #3: Open("DSN","Uid","Pwd")
    Conn1.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=nwind.mdb;" & _
    "DefaultDir=C:\program files\devstudio\vb;" & _
    "Uid=Admin;Pwd=;"
    Conn1.Close
    
    '--------------------------
    ' Recordset Object Methods
    '--------------------------
    
    ' Don't assume that we have a connection object.
    On Error GoTo AdoErrorLite
    
    ' Recordset Open Method #1: Open via Connection.Execute(...)
    Conn1.Open AccessConnect
    Set Rs1 = Conn1.Execute("SELECT * FROM Employees")
    Rs1.Close
    Conn1.Close
    
    ' Recordset Open Method #2: Open via Command.Execute(...)
    Conn1.ConnectionString = AccessConnect
    Conn1.Open
    Cmd1.ActiveConnection = Conn1
    Cmd1.CommandText = "SELECT * FROM Employees"
    Set Rs1 = Cmd1.Execute
    Rs1.Close
    Conn1.Close
    Conn1.ConnectionString = ""
    
    ' Recordset Open Method #3: Open via Command.Execute(...)
    Conn1.ConnectionString = AccessConnect
    Conn1.Open
    Cmd1.ActiveConnection = Conn1
    Cmd1.CommandText = "SELECT * FROM Employees"
    Rs1.Open Cmd1
    Rs1.Close
    Conn1.Close
    Conn1.ConnectionString = ""
    
    ' Recordset Open Method #4: Open w/o Connection & w/Connect String
    Rs1.Open "SELECT * FROM Employees", AccessConnect, adOpenForwardOnly
    Rs1.Close
    
    Done:
    Set Rs1 = Nothing
    
    Set Cmd1 = Nothing
    Set Conn1 = Nothing
    
    Exit Sub
    
    AdoError:
    i = 1
    On Error Resume Next
    
    ' Enumerate Errors collection and display properties of
    ' each Error object (if Errors Collection is filled out)
    Set Errs1 = Conn1.Errors
    For Each errLoop In Errs1
        With errLoop
            strTmp = strTmp & vbCrLf & "ADO Error # " & i & ":"
            strTmp = strTmp & vbCrLf & " ADO Error # " & .Number
            strTmp = strTmp & vbCrLf & " Description " & .Description
            strTmp = strTmp & vbCrLf & " Source " & .Source
            i = i + 1
        End With
    Next
    
    AdoErrorLite:
    ' Get VB Error Object's information
    strTmp = strTmp & vbCrLf & "VB Error # " & Str(Err.Number)
    strTmp = strTmp & vbCrLf & " Generated by " & Err.Source
    strTmp = strTmp & vbCrLf & " Description " & Err.Description
    
    MsgBox strTmp
    
    ' Clean up gracefully without risking infinite loop in error handler
    On Error GoTo 0
    GoTo Done
End Sub

NOTAS DE ERROR

Solo el objeto Connection de ADO tiene una colección de errores. El lector observador observará que un controlador de errores ligero está en vigor para los RecordSet.Open ejemplos. En caso de error al abrir un objeto RecordSet, ADO debe devolver el error más explícito del proveedor OLEDB. A continuación se muestran algunos errores comunes que se pueden encontrar con el código anterior.

Si omite (o hay un error en) el parámetro DefaultDir en la cadena de conexión, puede recibir el siguiente error:

Error de ADO # -2147467259
Descripción [Microsoft][ODBC Microsoft Access 97 Driver] '(unknown)'
no es una ruta de acceso válida. Asegúrese de que el nombre de la ruta de acceso sea
escrito correctamente y que está conectado al servidor
en el que reside el archivo.
Proveedor MICROSOFT OLE DB de origen para controladores ODBC

Si hay un error en el parámetro Dbq de la cadena de conexión, puede recibir el siguiente error:

Error de ADO #-2147467259 descripción [Microsoft][Controlador ODBC de Microsoft Access 97] No se pudo encontrar el archivo '(unknown)'.
Proveedor MICROSOFT OLE DB de origen para controladores ODBC

Los errores anteriores también rellenan la colección Errores de conexión con los errores siguientes:

Error de ADO # -2147467259
Descripción [Microsoft][ODBC Driver Manager] Driver's
Error de SQLSetConnectAttr
Proveedor MICROSOFT OLE DB de origen para controladores ODBC

Error de ADO # -2147467259
Descripción Error de inicio de sesión
Proveedor MICROSOFT OLE DB de origen para controladores ODBC

Nota:

Para cada error, el número de error de ADO es el mismo, en este caso se traduce a 0x80004005, que es el mensaje de error genérico E_FAIL. El componente subyacente no tenía un número de error específico para la condición encontrada, pero la información útil nunca se generó en ADO.

Referencias