Abrir la conexión de ADO y los objetos Recordset
En este artículo se presenta cómo abrir la conexión de ADO y los objetos Recordset.
Versión del producto original: SQL Server
Número de KB original: 168336
Resumen
Objetos de datos ActiveX (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 de conexión dentro de ADO:
- Al establecer la
ConnectionString
propiedad en una cadena connect válida y, a continuación, llamar alOpen()
método . Esta cadena de conexión depende del proveedor. - Pasando una cadena connect válida al primer argumento del
Open()
método . - Pasando un objeto Command válido al primer argumento del método Open de un objeto Recordset.
- Al pasar el nombre del origen de datos ODBC y, opcionalmente, el identificador de usuario y la contraseña al método del
Open()
objeto de conexión.
Hay tres maneras de abrir un objeto Recordset en 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 pasar una cadena Connect válida al segundo argumento del
Recordset.Open()
método.
En este código se 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 hay un controlador de errores ligero en vigor para los RecordSet.Open
ejemplos. En caso de que se produzca un 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 se produce 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 es
escrito correctamente y que está conectado al servidor
en el que reside el archivo.
Proveedor OLE DB de Microsoft de origen para controladores ODBC
Si hay un error en el parámetro Dbq en la cadena de conexión, puede recibir el siguiente error:
Error de ADO # -2147467259 Description [Microsoft][ODBC Microsoft Access 97 Driver] Couldn't find file '(unknown)'.
Proveedor OLE DB de Microsoft de origen para controladores ODBC
Los errores anteriores también rellenan la colección Errores de conexión con los siguientes errores:
Error de ADO # -2147467259
Descripción [Microsoft][Administrador de controladores ODBC] Controladores
Error de SQLSetConnectAttr
Proveedor OLE DB de Microsoft de origen para controladores ODBC
Error de ADO # -2147467259
Descripción Error de inicio de sesión
Proveedor OLE DB de Microsoft de origen para controladores ODBC
Nota:
Para cada error, el número de error de ADO es el mismo, en este caso traduciéndolo 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 nunca se generó información útil en ADO.
Referencias
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de