Visual Basic - ADOC RECORDSET.FILTER

Tengo un control ADOC enlazado a un DATAGRID y si esta normal (sin filtros) se muestra bien, pero cuando me muestra el filtro esta todo igual como si no lo aplicara.

Conecto el datagrid al control adoc mediante esto:

CONECCION = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & ARCHBASE

Me.ADOCCLIE.ConnectionString = CONECCION
Me.ADOCCLIE.CommandType = adCmdTable
Me.ADOCCLIE.RecordSource = NAMETABLA
Me.ADOCCLIE.Refresh

donde ARCHBASE es la ruta a la base de datos. (pero eso funciona bien)

y para filtrar lo que hago, es que tengo que cerrar la base y volverla abrir pero igual no me hace el filtro, o no se si tengo qeu cerrarla para filtrarla nuevamente, y esto es lo que uso para filtrar.

CADBUSQUEDA = "SELECT * FROM " & "[" & NAMETABLA & "]" _
& " WHERE " & FILTRO1 & " " & COND1 & " " & "'" & TEXT1 & "'"

donde NAMETABLA="CLIENTES_EXT"
FILTRO1="SUCURSALES"
COND1="=" (SIGNO DE IGUAL)
TEXT1="CORONADO"

y luego de eso aplico

Me.ADOCCLIE.Recordset.Filter = CADBUSQUEDA

Pero todo me sigue igual, no me cambia nada, ayuda por favor :(

Hola, ricaute!!

De esa manera no se usa el filter.

Me.ADOCCLIE.Recordset.Filter = "campo = '"& valor &"' "

de esa manera se usa el filter y recuerda que va con comillas simples si es cadena y sin comillas si es numerico.

AHora, si esa consulta la hubieses puesto en el recordsource del ADOCCLIE te va dar el mismo resultado que el filter.

Saludos!!

PDTA: cualquier otra duda escribeme a mi correo [email protected]

Amigo por que no usas una consulta a la cual le pasas parametros y dejas el control adodc. yo te sugiero que hagas algo asi.:

Dim rsTabla as new ADODC,Recordset

rsTabla.Open "Select * from TuTabla where Campo like '%'"& trim(txtBusqueda)&"'%", Conexion,,
' Y luego lo enlazas al datagrid esta consulta
set DataGrid.Datasource=rsTabla

esto lo podrias usar en el evento change del texbox que usas para buscar.