Problema con Like en expresión SQL con VB6 y Access 2003

[buji]

Hola Foro.

Alguien sabe porque esta consulta [0] funciona perfecto desde el entorno de Access 2003, pero si hago esto en VB6:

dim rs as new adodb.recordset
dim tsql as string
tsl = "select * from articulos where descripcion like '*a*'; "
rs.open tsql, miconexion, adOpenStatic, adLockReadOnly

El recordset se genera sin registros? (como si hubiese un problema entre el LIKE y el adodb.recordset?

Muchas Gracias.

[0] select * from articulos where descripcion like '*a*';

[Insomnia]

Hola

Prueba a utilizar % en lugar de *

Código:

tsl = "select * from articulos where descripcion like '%a%'"

--Saludos--

P.D.: El ; de la select creo que sobra

[Uran]

Antes de empezar a mirar nada, veo en tu código algo extraño, declaras la variable con el nombre tsql pero cuando le vas a asignar el valor de la cadena SQL la llamas tsl (ha desaparecido la q)

¿Ésto está así escrio en tu código? Si no es así, prueba a mostrar el primer valor del recordset en un msgbox, a ver qué pasa.


Un saludo.