recordset tipo tabla

26/04/2005 - 03:11 por HECTOR BARAJAS | Informe spam
Necesito hacer una busqueda en una Tabla de access usando ADO. Me gustaria
usar el Metodo Seek. Sin embargo recuerdo que con dao era necesario crear un
Recordset de tipo tabla, sin embargo en la instruccion para conectarme con
la base de datos puse este codigo, mi pregunta es ¿Puedo usar el metodo
Seek? ¿Como se crea un Recordset de tipo table en ADO?

Mi procedimiento de conexion es el siguiente y quiero hacer busquedas por
clave de articulo.
Gracias



Sub CONECTABASE()

Set CONEXION = New ADODB.Connection
Set REGISTROS = New ADODB.RECORDSET
With CONEXION
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=D:\EXCEL3\excel2\facturación.mdb"
.Open
End With
REGISTROS.CursorLocation = adUseClient
REGISTROS.Open "Articulos", CONEXION, adOpenDynamic, adLockOptimistic
REGISTROS.MoveFirst
ActiveSheet.txtclave.Text = REGISTROS!artclave
ActiveSheet.txtclaveproveedor.Text = REGISTROS!artclaveproveedor
ActiveSheet.Txtdescripcion.Text = REGISTROS!artdescripcion
ActiveSheet.txtprecio.Text = REGISTROS!artprecio
ActiveSheet.cvgravable.Value = REGISTROS!artgravableiva

End Sub
 

Leer las respuestas

#1 gil_romero
26/04/2005 - 19:45 | Informe spam
No te serviria mejor una conexion ODBC y realizar tu busqueda con
select ? creo que el procedimiento de conexion es mas sencillo

"HECTOR BARAJAS" wrote in message news:...
Necesito hacer una busqueda en una Tabla de access usando ADO. Me gustaria
usar el Metodo Seek. Sin embargo recuerdo que con dao era necesario crear un
Recordset de tipo tabla, sin embargo en la instruccion para conectarme con
la base de datos puse este codigo, mi pregunta es ¿Puedo usar el metodo
Seek? ¿Como se crea un Recordset de tipo table en ADO?

Mi procedimiento de conexion es el siguiente y quiero hacer busquedas por
clave de articulo.
Gracias



Sub CONECTABASE()

Set CONEXION = New ADODB.Connection
Set REGISTROS = New ADODB.RECORDSET
With CONEXION
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=D:\EXCEL3\excel2\facturación.mdb"
.Open
End With
REGISTROS.CursorLocation = adUseClient
REGISTROS.Open "Articulos", CONEXION, adOpenDynamic, adLockOptimistic
REGISTROS.MoveFirst
ActiveSheet.txtclave.Text = REGISTROS!artclave
ActiveSheet.txtclaveproveedor.Text = REGISTROS!artclaveproveedor
ActiveSheet.Txtdescripcion.Text = REGISTROS!artdescripcion
ActiveSheet.txtprecio.Text = REGISTROS!artprecio
ActiveSheet.cvgravable.Value = REGISTROS!artgravableiva

End Sub

Preguntas similares