Método Seek en ADO
Hola, como hago para abrir una tabla de access usando código y el objeto ADO y poder usar los índices de la tabla y el método seek, ¿cómo se hacía con los objetos DAO?
1 Respuesta
Respuesta de Roberto Alvarado
1
Necesitas un objeto connection para establecer la conexión y un objeto recordset para manejar las tablas.
Dim ObjConnection As ADOBD.Connection
Dim ObjRecordSet As ADODB.Recordset
Set ObjConnection = New ADOBD.Connection
ObjConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\Base.mdb"
Objconnection.Open
Set Objrecordset = New ADODB.Recordset
ObjRecordset.Open "SELECT * FROM Tabla WHERE CAMPO1 = " & text1.text, ObjConnection, adOpenDynamic, adLockOptimistic
msgbox Objrecordset.Fields("Campo1")
ObjRecordset.Find "Campo1=" & Text1.text
ObjRecordset.Close
objConnection.Close
Set Objrecordset = Nothing
Set ObjConnection = Nothing
EN access no puedes usar el método Seek, ya que el provider no lo soporta, es solo para SQL y coon sursores del lao del servidor
Saludos
Roberto Alvarado
Cartagena - Colombia
Dim ObjConnection As ADOBD.Connection
Dim ObjRecordSet As ADODB.Recordset
Set ObjConnection = New ADOBD.Connection
ObjConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\Base.mdb"
Objconnection.Open
Set Objrecordset = New ADODB.Recordset
ObjRecordset.Open "SELECT * FROM Tabla WHERE CAMPO1 = " & text1.text, ObjConnection, adOpenDynamic, adLockOptimistic
msgbox Objrecordset.Fields("Campo1")
ObjRecordset.Find "Campo1=" & Text1.text
ObjRecordset.Close
objConnection.Close
Set Objrecordset = Nothing
Set ObjConnection = Nothing
EN access no puedes usar el método Seek, ya que el provider no lo soporta, es solo para SQL y coon sursores del lao del servidor
Saludos
Roberto Alvarado
Cartagena - Colombia
