Como quitar .filter a un recordset?

franko1809 · #1 (**permalink**) 12/03/2009, 14:32

Al aplicar la propiedad filter se va perdiendo la informacion del recordset como hago para recuperarla

Código:

If Trim(txtBuscar) = "" Then
  'Si la caja esta vacia muestro todos los registros
  'Como lo hago?

Else

  mi_consulta = "nomProd like '" & "*" + Trim(txtBuscar) + "*" & "'"
  rsProd.Filter = mi_consulta
  DataGrid1.Enabled = True

End If

gepd · #2 (**permalink**) 13/03/2009, 22:07

supongo que ésto podría ser una solución.

Código:

If Trim(txtBuscar) = "" Then
  if rsProd.State = 1 then rsProd.Close
  rsProd.Open="SELECT * FROM tabla"
Else

  mi_consulta = "nomProd like '" & "*" + Trim(txtBuscar) + "*" & "'"
  rsProd.Filter = mi_consulta
  DataGrid1.Enabled = True

End If

Saludos

franko1809 · #3 (**permalink**) 14/03/2009, 12:50

Si tio tienes razon espero no surga ningun imprevisto

saludos

seba123neo · #4 (**permalink**) 14/03/2009, 14:18

Hola, para eliminar el filtro se hace asi:

Código vb:

Ver originalrsProd.Filter = adFilterNone

saludos.

franko1809 · #5 (**permalink**) 14/03/2009, 15:41

Buena respuesta tio, no habia escuchado sobre adFilterNone

saludos