Filtrar un listbox por varios criterios

[41b3r70]

Tengo un recordset que me busca los registros que se escriben en una caja de texto en una tabla de access y me los muestra en un listwiev en modo reporte. Al haber solo un criterio de busqueda lo hace perfectamente. El problema que tengo es que me es imprescindible poder filtrar por todos los campos de la tabla.

Es una tabla en la que tengo veinticuatro campos con mas de 50000 registros, osea es bastante grande y no hay dos registros exactamente igual, basicamente por que hay dos campos de fecha, uno para el inicio de la operacion y otro para el final de la operacion.

Lo que quiero hacer es un filtrado al estilo del autofiltro de excell y no se como hacerlo y si es posible.

Es una tabla en la que tengo veinticuatro campos con mas de 50000 registros, osea es bastante grande y no hay dos registros exactamente igual, basicamente por que hay dos campos de fecha, uno para el inicio de la operacion y otro para el final de la operacion.

Lo que quiero hacer es un filtrado al estilo del autofiltro de excell y no se como hacerlo y si es posible.

He probado con esta sentencia:

rs.Open "select * from Tabla_de_fabricacion where REFERENCIA = '" & Referencia & "' and '" & Operario & "'", cn

pero no funciona. Se queda colgado. SI uso solo solo un criterio, busca perfectamente pero al meter dos ya no y necesitaria meter por lo menos diez criterios de busqueda. Como puedo hacerlo?. A ver si por favor alguien me puede ayudar.

[Insomnia]

En la segunda condición te falta el campo con el que comparar el valor de Operario, es decir algo como:

where REFERENCIA = '" & Referencia & "' and OPERARIO='" & Operario & "'"

[41b3r70]

Gracias Insomnia. He probado y funciona. Pero me obliga a buscar por ambos campos. Yo lo que queria mas bien era poder buscar por uno, por otro o por los dos. Imagino que habra que programar cada una de las opciones, el problema es que son muchas combinaciones posibles de busqueda. Quiero buscar por fecha y por operario, por referencia y operario, solo por referencia, solo por operario.... etc etc. Lo mas parecido que he visto son los autofiltros de excell. Filtras una columna, luego filtras los resultados con otro filtro en otra columna y asi. es posible hacerlo???

[Insomnia]

Hola

Puedes crear un formulario con unos CheckBox con las posibles opciones de busqueda que quieras (fecha, operario, referencia,...). Luego vas revisando los checkbox seleccionados y construyendo la sentencia select. P.e.

Código vb:

Dim SQL as String
 
SQL = "select * from Tabla_de_fabricacion where "
If check1.value=1 'El usuario ha activado esta opción
   SQL=SQL & "referencia ='" & referencia & "'"
end if
if check2.value=1
.
.
.
 

De esta forma vas creando poco a poco la sentencia SQL, tendras que tener en cuenta si solo ha seleccionado un filtro o varios, en el caso de varios tendrás que añadir el AND antes de la condición.

--Saludos--

[41b3r70]

Vale gracias. Esta mañana he hecho eso mismo que me comentas, ir añadiendo checkbox y la idea que tenia era esa, ir contruyendo poco a poco los filtros pero pensaba que a lo mejor habia algo mas facil para hacerlo sin tener que añadir todos los posibles casos de busqueda. Lo ire haciendo poco a poco, supongo que quitare los criterios que no se vayan a usar para hacerlo mas corto. Ya te contare que tal. Gracias por tu tiempo.

[Insomnia]

De nada y suerte con el proyecto.

--Saludos--

[41b3r70]

Me he encontrado con un problema que no se resolver otra vez. Resulta que 3 de los campos que hay que rellenar para hacer las busquedas los cargo en 3 combobox mediante un recorset. Esto me funciona perfectamente y en los combos aparecen los valores que hay en la tabla de access. El problema surge cuando he seleccionado un valor de los combos. Osea el combo esta cerrado y con un valor dentro.

Intento hacer la busqueda con el valor ". text" del combo pero el programa se queda colgado.

'Buscar Solo por Operario
ElseIf Chk_Orden.Value = 0 And Chk_Fecha.Value = 0 And Chk_Codigo.Value = 0 And Chk_Referencia.Value = 0 And Chk_Operario.Value = 1 _
And Chk_Maquina.Value = 0 And Chk_Operacion.Value = 0 And Chk_Lote.Value = 0 And Chk_Visibles.Value = 0 And Chk_Archivadas.Value = 0 Then
rs.Open "select * from TablaAlberto where Nombre = '" & Cbb_Operario.Text & "'", cn


Tampoco me funciona al hacer la busqueda por fecha.

'Buscar Solo por fecha
'ElseIf Chk_Orden.Value = 0 And Chk_Fecha.Value = 1 And Chk_Codigo.Value = 0 And Chk_Referencia.Value = 0 And Chk_Operario.Value = 0 _
And Chk_Maquina.Value = 0 And Chk_Operacion.Value = 0 And Chk_Lote.Value = 0 And Chk_Visibles.Value = 0 And Chk_Archivadas.Value = 0 Then
'rs.Open "select * from TablaAlberto where FHInicio = '" & Txt_Fecha & "'", cn

Por que me pasa esto? Con otros campos y otras busquedas funciona perfectamente. He de decir que el campo fecha es logicamente para fechas y el campo operario es solo texto "apellidos, nombre".

[lokoman]

Por que no haces la sentencia y luego la pasas? es un poquito mas entendible...

dim strCabecera as string, strSelect as string, strSentencia as string

strCabecera = "SELECT * FROM TABLAALBERTO WHERE "

IF Chk_Operario.Value = 1 THEN
IF strSelect<>"" then
strSelect=strSelect & " Nombre = '" & Cbb_Operario.Text & "'"
else
strSelect=strSelect & " AND Nombre = '" & Cbb_Operario.Text & "'"
end if
end if

IF Chk_Fecha.Value = 1 THEN
IF strSelect<>"" then
strSelect=strSelect & " FHInicio = '" & Txt_Fecha & "'"
else
strSelect=strSelect & " AND FHInicio = '" & Txt_Fecha & "'"
end if
end if
...
...
...
strSentencia=strCabecera & strSelect '<---- DETEN EL PROGRAMA AQUI PARA EVALUAR LA SENTENCIA
rs.Open strSentencia, cn
..
..

Asi puedes evaluar la sentencia antes del RS.OPEN

[Insomnia]

Hola

Eso es, trata de hacerlo como dice lokoman, ya que si lo haces a tu forma las posibles combinaciones serian un montón (no pongo cuantas porque de estadística ando un poco flojo) de la otra forma "solo" tienes tantos if como condiciones a mirar.

En la select del nombre no veo ningún error, en el de la fecha puede que tengas algunos problemas con los formatos de la fecha.

Como dice lokoman, comprueba el valor de la variable que contiene la sentencia SQL final, luego puedes pegar esa sentencia directamente en la base de datos de access y ejecutarla para ver el posible error

--Saludos--

[41b3r70]

Hola. He probado a hacerlo como dice lokoman. No funciona me dice que la sentencia select tiene una sintaxis no valida. Os pongo el codigo que tengo, bueno una parte que es largo. Os pongo las dos primeras opciones y luego la busqueda en el recordset a ver si veis el fallo porque yo no he sido capaz.

If Chk_Orden.Value = 1 Then
If strSelect <> "" Then
strSelect = strSelect & " Orden = '" & Txt_Orden & "'"
Else
strSelect = strSelect & " and Orden = '" & Txt_Orden & "'"
End If
End If

If Chk_Fecha.Value = 1 Then
If strSelect <> "" Then
strSelect = strSelect & " FHInicio = '" & Txt_Fecha & "'"
Else
strSelect = strSelect & " and FHInicio = '" & Txt_Fecha & "'"
End If
End If

Dim clmAdd As ColumnHeader
Dim itmAdd As ListItem

Set rs = New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Documents _
and Settings\Alberto\Escritorio\Goitek_Logic.mdb"

rs.Source = "TablaAlberto"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

If rs.State = 0 Then
strCabecera = "Select * from TablaAlberto Where"
strSentencia = strCabecera & strSelect

rs.Open strSentencia, cn

End If




Y el error que me da:

Error '-2147217900 (80040e14)' en tiempo de ejecucion:
Error de sintaxis (falta operador) en la expresion de consulta 'and Orden='090044'

090044 es el numero de orden que busco.

[Insomnia]

Hola

Acostumbra a utilizar los puntos de interrupción, coloca uno en la linea "strSentencia = strCabecera & strSelect" y revisa el valor que coge la sentencia SQL. A primera vista, me parece que las condiciones están al revés, es decir, creo que tienes que cambiar el <> por =

Código vb:

If Chk_Orden.Value = 1 Then
   If strSelect = "" Then
      strSelect = strSelect & " Orden = '" & Txt_Orden & "'"
   Else
      strSelect = strSelect & " and Orden = '" & Txt_Orden & "'"
   End If
End If
 
If Chk_Fecha.Value = 1 Then
   If strSelect = "" Then
      strSelect = strSelect & " FHInicio = '" & Txt_Fecha & "'"
   Else
      strSelect = strSelect & " and FHInicio = '" & Txt_Fecha & "'"
   End If
End If
 

De todas formas, repito, utiliza puntos de interrupción para depurar la aplicación, ya que es un sistema muy sencillo de depurar errores.

--Saludos--

[41b3r70]

Ya lo he conseguido. Empece a usar los puntos de interupcion para ver el valor de las variables y me di cuanta que los fallos estaban en las comillas de las sentencias. Asi que lo he ido arreglando y funciona perfecto. Muchas gracias a los dos.

[Insomnia]

Me alegro que todo funcione correctamente

--Saludos--