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 & "% ' "