Urgente help!!

Charango
29 de Enero del 2004
tengo una tabla con un campo llamado codigo el cual contiene los siguientes
registros

CODIGO

AMANLOP1
AMANLOP2
AMANLOP3
BPITEST1
BPITRTE2
si quiero extraer y mostrar todos los registros que comienzen
com AMANLOP, mediante conexion dao se hace asi:

dim rsts recordset
dim bd as database
dim texto as string

texto = "AMANLOP"


set rst = bd.openrecordset("Select codigo from Tabla where codigo like '" & texto "*'")

ahora mediante conexion ado

lo intente hacer asi :

rst.open "Select codigo from Tabla where codigo like '" & texto "*'",conexion
pero no encuentra ningun registro en la base de tabla
por lo que estoy pensando que no hace igual que dao.
como se hace o me equivoque en la instruccion.


Bartolom
29 de Enero del 2004
Debes hacerlo así, primero crear una conexión y luego un recordset


Dim cnConexión As Connection
Dim rsConsulta As Recordset

Set cnConexión = New Connection
With cnConexión
.Provider = "Microsoft.jet.oledb.4.0"
.ConnectionString = "Tu base de datos"
End With
cnConexión.Open

Set rsConsulta = New Recordset
With rsConsulta
.Source = "Select codigo from Tabla where codigo like '" & texto "*'"
.ActiveConnection = cnConexión
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
rsConsul.Open
ADO.Refresh



Saludos!

Bartolom
29 de Enero del 2004
Ah, la instrucción SQL es exactamente así:

"Select codigo from Tabla where codigo like '" & texto & "'

Bartolom
29 de Enero del 2004
Y si quieres que busque las expresiones que comiencen con Texto, tienes que agregarle el comodín %, o sea:

"Select codigo from Tabla where codigo like ' " & texto & "% ' "