Problema con filtrado

principefreddy · #1 (**permalink**) 04/04/2009, 09:05

HOLA. TENGO UN PROBLEMA..

TENGO UN FORMULARIO REGISTRO Y OTRO FILTRO.. CUANDO ESTOY EN EL REGISTRO LLAMO AL FORMULARIO FILTRO PARA QUE ME FILTRE EN UN ListView..

EN EL FORMULARIO REGISTRO TENGO UN PROCEDIMIENTO QUE ES EL QUE ME CARGA LOS DATOS EN EL ListView.. LA MAYORIA HACE ESO EN UN MODULO PERO NO LO HICE ASI.. ENTONCES EN EL FORMULARIO FILTRO TENGO DOS COMBOS EN LOS CUALES EN EL COMBO1 DIRE POR QUE QUIERO FILTRAR Y EN EL CAMBO2 POR CUAL LO ORDENARE.

EN EL FORMULARIO FILTRAR TENGO LO SIGUIENTE:
Public Sub Filtrar()
Dim Campo, OrderByCampo, Orden As String
Dim SQL As String

If Combo1.ListIndex = -1 Then
Combo1.ListIndex = 0
End If
If Combo2.ListIndex = -1 Then
Combo2.ListIndex = 0
End If
If Combo1.ListIndex = 0 Then
Campo = "Codigo"
ElseIf Combo1.ListIndex = 1 Then
Campo = "Cedula"
ElseIf Combo1.ListIndex = 2 Then
Campo = "Nombre"
End If

Select Case Combo2.ListIndex
Case 0: OrderByCampo = "Codigo"
Case 1: OrderByCampo = "Cedula"
Case 2: OrderByCampo = "Nombre"
End Select

' si el recorset está abierto lo cierra
If rs.State = adStateOpen Then
rs.Close
End If

SQL = "SELECT * FROM expedientes Where " & _
Campo & " like '" & txtSearch & _
"%' order by " & OrderByCampo & " " & Orden

rs.Open SQL, nc, adOpenStatic, adLockOptimistic
'rs.Open "SELECT * FROM registro", nc, adOpenDynamic, adLockOptimistic
'**** EN ESTA LINEA ES QUE ME MUESTRA EL ERROR***********
Call CargarLista(FormRegistro.lvLista, rs)
ERROR DE COMPILACION: PROCEDIMIENTO SUB O FUNCTION NO DEFINIDO
************************************************** *********
End Sub

ESPERO ME AYUDEN..

seba123neo · #2 (**permalink**) 04/04/2009, 11:57

Hola, una sugerencia ¿ hace falta mostrar otro formulario para eso...? yo diria que no...le creas un panel con un frame al lado del listview o donde sea en el mismo formulario y ahi pones los filtros y un boton "Buscar" y listo... te queda todo en uno...he visto programas con mas de 20 filtros distintos en un mismo formulario y no pasa nada...

primero que nada en el codigo veo errores basicos de manual...por ejemplo al declarar las variables...

Código vb:

Ver originalDim Campo, OrderByCampo, Orden As String

ahi estas declarando 1 sola variable como string y las otra como Variant...

donde esta el procedimiento CargarLista ...??

saludos.

David · #3 (**permalink**) 04/04/2009, 12:01

Si la función CargarLista está en el formulario, debe ser:

Código vb:

Ver originalNombreForm.CargarLista FormRegistro.lvLista, rs

Además, la función no puede ser Private

principefreddy · #4 (**permalink**) 04/04/2009, 16:39

el procedimiento cargar_lista lo tengo en el formulario registro--

David · #5 (**permalink**) 04/04/2009, 16:42

¿Has intentado como te indiqué?

principefreddy · #6 (**permalink**) 05/04/2009, 09:34

el cargar lista no esta en el formulario donde estoy haciendo el filtro. y la funcion es public

David · #7 (**permalink**) 05/04/2009, 10:42

Al final quedé confundido.

En principio decías que estaba en el formulario pero ahora nos cuentas que no es así

.

¿Podrías aclararnos cómo exactamente lo tienes y cómo lo estás intentando?

principefreddy · #8 (**permalink**) 05/04/2009, 11:38

EN EL FORMULARIO REGISTRO TENGO UN PROCEDIMIENTO QUE ES EL QUE ME CARGA LOS DATOS EN EL ListView.. y en el formulario filtrar tengo la funcion para que me filtre en el ListView que esta en el formulario registro.... siempre lo he dicho.

y............ en esta linea de codigo me muestra el error.

'**** EN ESTA LINEA ES QUE ME MUESTRA EL ERROR***********
Call CargarLista(FormRegistro.lvLista, rs)
ERROR DE COMPILACION: PROCEDIMIENTO SUB O FUNCTION NO DEFINIDO
************************************************** *********

la funcion cargar_lista este en el formulario registro.. y el ListView se llama lvLista esta en el fomulario registro tambien.. espero que ahora si me ayuden

David · #9 (**permalink**) 05/04/2009, 11:41

Como te dije, si está en el formulario registro. Debe ser:

Código vb:

Ver originalCall FormRegistro.CargarLista(FormRegistro.lvLista, rs)

seba123neo · #10 (**permalink**) 05/04/2009, 11:49

si te dice que no esta, es porque no esta... no hay otra...fijate bien el nombre de la funcion si es la misma...porque ahi pusiste cargar_lista y antes CargarLista ...que no es lo mismo...fijate bien porque es solo un error de nombre de la funcion...de ultima proba de las 2 formas y listo...y proba como te dice David que ya lo dijo 8 veces...

principefreddy · #11 (**permalink**) 05/04/2009, 11:51

no funciona.

David · #12 (**permalink**) 05/04/2009, 11:55

Estimado, principefreddy.

Debes entender que con un simple "no funciona", no podemos deducir o adivinar cuál es el problema. Por favor, trata de explicar un poco más los errores que te da, cómo intentaste aplicar el código, y cómo tienes definida la función.

Saludos.

principefreddy · #13 (**permalink**) 05/04/2009, 11:55

como dice david no me funciona.

cuando coloco FormRegistro. (no me aparece el nombre de la funcion)

y ya revice los nombres.- todo esta de manera correcta.

David · #14 (**permalink**) 05/04/2009, 11:56

¿La función está definida como Public?

principefreddy · #15 (**permalink**) 05/04/2009, 11:57

correcto. la funcion esta definida como public

David · #16 (**permalink**) 05/04/2009, 11:59

¿Podrías poner el código de esa función? Así podemos ver si el error no viene de otro lado.

principefreddy · #17 (**permalink**) 05/04/2009, 12:03

lo siguiente esta en el formulario filtrar...
Public Sub Filtrar()
Dim Campo, OrderByCampo, Orden As String
Dim SQL As String

If Combo1.ListIndex = -1 Then
Combo1.ListIndex = 0
End If
If Combo2.ListIndex = -1 Then
Combo2.ListIndex = 0
End If
If Combo1.ListIndex = 0 Then
Campo = "Codigo"
ElseIf Combo1.ListIndex = 1 Then
Campo = "Cedula"
ElseIf Combo1.ListIndex = 2 Then
Campo = "Nombre"
End If

Select Case Combo2.ListIndex
Case 0: OrderByCampo = "Codigo"
Case 1: OrderByCampo = "Cedula"
Case 2: OrderByCampo = "Nombre"
End Select

' si el recorset está abierto lo cierra
If rs.State = adStateOpen Then
rs.Close
End If

SQL = "SELECT * FROM expedientes Where " & _
Campo & " like '" & txtSearch & _
"%' order by " & OrderByCampo & " " & Orden

rs.Open SQL, nc, adOpenStatic, adLockOptimistic

'Call FormRegistro.CargarLista(FormRegistro.lvLista, rs)
'Call CargarLista(FormRegistro.lvLista, rs)

End Sub

David · #18 (**permalink**) 05/04/2009, 12:09

Me refiero al código de la función CargarLista. Si podrías mostrarnos cómo la tienes, tal vez podamos ver la causa del error.

principefreddy · #19 (**permalink**) 05/04/2009, 12:17

Private Sub Cargar_Lista()

'Esto nos permitirá acceder a las tablas y a sus registros.
Dim rs As New ADODB.Recordset
Dim iEle As Integer
rs.Open "SELECT * FROM registro", nc, adOpenDynamic, adLockOptimistic
'Ahora biene lo bueno...

'Limpiamos el objeto LISTVIEW...
lvLista.ListItems.Clear

While Not rs.EOF
'Se comporta como un archivo...
iEle = (lvLista.ListItems.Count) + 1

With lvLista

.ListItems.Add , , rs!codigo
.ListItems(iEle).SubItems(1) = rs!nacionalidad
.ListItems(iEle).SubItems(2) = rs!cedula
.ListItems(iEle).SubItems(3) = rs!Nombre
.ListItems(iEle).SubItems(4) = rs!sexo
.ListItems(iEle).SubItems(5) = rs!estadocivil
.ListItems(iEle).SubItems(6) = CLng(rs!edad)
.ListItems(iEle).SubItems(7) = rs!alias
.SelectedItem.Selected = False

End With

'Esto no debe faltar...
rs.MoveNext
'es para moverse entre los registros.

Wend

'cerramos el recurso.
rs.Close
'y lo destruimos o sacamos de la memoria...
Set rs = Nothing
End Sub

seba123neo · #20 (**permalink**) 05/04/2009, 12:55

Hombre...esta definida como Private !!!!!!!!!!!!!! y esta con guion bajo y antes no lo ponias asi cuando la llamabas...errores pavos..

PD: indenta un poco el codigo...

principefreddy · #21 (**permalink**) 06/04/2009, 11:35

despues de haber colocado la funcion que Cargar_Lista bien escrita y como public pues no me filtra todavia.

que problema.. con esta liena de codigo..

Call FormRegistro.Cargar_Lista(FormRegistro.lvLista, rs)

David · #22 (**permalink**) 06/04/2009, 11:41

¿Te da algún error?

Además, por lo que veo, tu función Cargar_Lista no pide ningún parámetro. Mientras que estabas tratando de pasarle dos paráetros al llamarla.

principefreddy · #23 (**permalink**) 06/04/2009, 13:14

hola david. mira he conseguido que filtrara. pero solo por una de los tres opciones que tengo en el combo. mas no logro que ordene. te paso el coodigo.

el siguiente codigo esta en el FormRegistro:
Public Sub Cargar_Lista()

'Esto nos permitirá acceder a las tablas y a sus registros.
Dim rs As New ADODB.Recordset
Dim iEle As Integer
'rs.Open "SELECT * FROM registro", nc, adOpenDynamic, adLockOptimistic
*********************** aqui es donde le digo con el where que me filtre por cedula************ ese fue todo el cambio. *****************************
rs.Open "SELECT * FROM registro Where Cedula Like '%" & FormFiltrar.txtSearch & "%'", nc, adOpenDynamic, adLockOptimistic

'Ahora biene lo bueno...

'Limpiamos el objeto LISTVIEW...
FormRegistro.lvLista.ListItems.Clear

While Not rs.EOF
'Se comporta como un archivo...
iEle = (FormRegistro.lvLista.ListItems.Count) + 1

With FormRegistro.lvLista

.ListItems.Add , , rs!codigo
.ListItems(iEle).SubItems(1) = rs!nacionalidad
.ListItems(iEle).SubItems(2) = rs!Cedula
.ListItems(iEle).SubItems(3) = rs!Nombre
.ListItems(iEle).SubItems(4) = rs!sexo
.ListItems(iEle).SubItems(5) = rs!estadocivil
.ListItems(iEle).SubItems(6) = CLng(rs!edad)
.SelectedItem.Selected = False

End With

'Esto no debe faltar...
rs.MoveNext
'es para moverse entre los registros.

Wend

'cerramos el recurso.
rs.Close
'y lo destruimos o sacamos de la memoria..
Set rs = Nothing
'End Sub
End Sub

y el siguiente codigo esta en el FormFiltrar:
Public Sub Filtrar()
Dim Campo, OrderByCampo, Orden As String
Dim SQL As String

If Combo1.ListIndex = -1 Then
Combo1.ListIndex = 0
End If
If Combo2.ListIndex = -1 Then
Combo2.ListIndex = 0
End If
If Combo1.ListIndex = 0 Then
Campo = "Codigo"
ElseIf Combo1.ListIndex = 1 Then
Campo = "Cedula"
ElseIf Combo1.ListIndex = 2 Then
Campo = "Nombre"
End If

Select Case Combo2.ListIndex
Case 0: OrderByCampo = "Codigo"
Case 1: OrderByCampo = "Cedula"
Case 2: OrderByCampo = "Nombre"
End Select

' si el recorset está abierto lo cierra
If rs.State = 1 Then
rs.Close
End If

SQL = "SELECT * FROM registro Where " & _
Campo & " like '" & txtSearch & _
"%' order by " & OrderByCampo & " " & Orden
Call FormRegistro.Cargar_Lista '(FormRegistro.lvLista, rs)
rs.Open SQL, nc, adOpenStatic, adLockOptimistic
End Sub

seba123neo · #24 (**permalink**) 06/04/2009, 21:23

en este momente pienso un monton de cosas para hacerlo, pero para salir del paso proba pasarle como parametro la cadena de conexion y asi se conecta segun lo que vos le pases...por ejemplo(y por favor indentar el codigo y usar la etiqueta del codigo del foro!!!!!!!), mira que bueno que soy que hasta te acomode el codigo..¿no se lee mejor asi?

Código vb:

Ver originalPublic Sub Cargar_Lista(ByVal vSQL As String)
    'Esto nos permitirá acceder a las tablas y a sus registros.
    Dim rs As New ADODB.Recordset
    Dim iEle As Integer
    
    '*********************** aqui es donde le digo con el where que me filtre por cedula************ ese fue todo el cambio. *****************************
    If vSQL = "" Then
        'si no hay parametro se conecta por defecto asi
        rs.Open "SELECT * FROM registro Where Cedula Like '%" & FormFiltrar.txtSearch & "%'", nc, adOpenDynamic, adLockOptimistic
    Else
        'si hay parametro(o sea viene del formualario filtro) te conectas con la cadena que le pasaste..
        rs.Open vSQL, nc, adOpenDynamic, adLockOptimistic
    End If
    
    'Ahora biene lo bueno...
    
    'Limpiamos el objeto LISTVIEW...
    FormRegistro.lvLista.ListItems.Clear
    
    While Not rs.EOF
        'Se comporta como un archivo...
        iEle = (FormRegistro.lvLista.ListItems.Count) + 1
        With FormRegistro.lvLista
            .ListItems.Add , , rs!codigo
            .ListItems(iEle).SubItems(1) = rs!nacionalidad
            .ListItems(iEle).SubItems(2) = rs!Cedula
            .ListItems(iEle).SubItems(3) = rs!Nombre
            .ListItems(iEle).SubItems(4) = rs!sexo
            .ListItems(iEle).SubItems(5) = rs!estadocivil
            .ListItems(iEle).SubItems(6) = CLng(rs!edad)
            .SelectedItem.Selected = False
        End With
        'Esto no debe faltar...
        rs.MoveNext
        'es para moverse entre los registros.
    Wend
    'cerramos el recurso.
    rs.Close
    'y lo destruimos o sacamos de la memoria..
    Set rs = Nothing
    'End Sub
End Sub

Código vb:

Ver originalPublic Sub Filtrar()
    Dim Campo, OrderByCampo, Orden As String
    Dim SQL As String
    
    If Combo1.ListIndex = -1 Then
        Combo1.ListIndex = 0
    End If
    If Combo2.ListIndex = -1 Then
        Combo2.ListIndex = 0
    End If
    If Combo1.ListIndex = 0 Then
        Campo = "Codigo"
    ElseIf Combo1.ListIndex = 1 Then
        Campo = "Cedula"
    ElseIf Combo1.ListIndex = 2 Then
        Campo = "Nombre"
    End If
    
    Select Case Combo2.ListIndex
        Case 0: OrderByCampo = "Codigo"
        Case 1: OrderByCampo = "Cedula"
        Case 2: OrderByCampo = "Nombre"
    End Select
    
    ' si el recorset está abierto lo cierra
    If rs.State = 1 Then
        rs.Close
    End If
    
    SQL = "SELECT * FROM registro Where " & Campo & " like '" & txtSearch & "%' order by " & OrderByCampo & " " & Orden
    Call FormRegistro.Cargar_Lista(SQL)
    'rs.Open SQL, nc, adOpenStatic, adLockOptimistic
End Sub

probalo...

saludos.

principefreddy · #25 (**permalink**) 07/04/2009, 13:33

Gracias a todos por la ayuda. seba123neo ya esta listo. funciono como queria.