Problema de filtro en Data Adapter

[41b3r70]

Hola. Estoy empezando con .net y tengo un par de dudas, a ver si podeis resolvermelas.

Realizo una conexion a una base de datos por medio de un dataadapter (creo que se dice asi). Este adaptador por lo que he entendido leyendo, lo que hace es meter en una variable llamada tabla los datos que obtengo de la base de datos.

Entonces en ese momento lo que estoy haciendo es cerrando la conexion a la base de datos y trabajando en modo desconectado, asi libero recursos del servidor y todo funciona mas rapido.

Pues aqui viene mi duda. Se como realizar un Select para obtener los datos de una base de datos. De hecho la variable tabla la lleno con todos los datos que necesito y los cargo en un listview que se llena al cargar el formulario. Pero ahora lo que quiero hacer es filtrar los registros segun lo que se rellene en unos textbox que tengo preparados a tal efecto y no se como hacerlo.

Supongo que al adaptador no se le podra enviar un segundo select. He descubierto la manera de filltrar por medio de un solo texbox con el siguiente codigo:

Código:

 
       Lst_HistoricoFabricacion.Items.Clear()

        For i As Integer = 0 To Tabla.Rows.Count - 1
            If (Tabla.Rows(i).Item("Referencia").ToString) = Txt_ReferenciaHistoricoFabricacion.Text Then
                Dim item As ListViewItem
                item = New ListViewItem(Tabla.Rows(i).Item("Referencia").ToString)
                'Agrego los demas datos a los SubItems de item
                item.SubItems.Add(Tabla.Rows(i).Item("Lote").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Nº_HR").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Cant_Inicial").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Fecha_Inicio").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Cant_Fin").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Fecha_Fin").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Obs_Produccion").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Obs_Pedido_Material").ToString)
                item.SubItems.Add(Tabla.Rows(i).Item("Reg").ToString)
                'Agrego el item a la colección de listViewItem's de Lst_Operaciones.
                Lst_HistoricoFabricacion.Items.Add(item)
            End If
        Next (i)

Pero el problema que no se resolver es como filtrar por varios campos a la vez. Ya que si filtro por el primero, si uso este codigo para el segundo me va a borrar los datos del primer filtro y me va a dejar solo los que coincidan con el segundo texbox. Hay alguna manera de solucionar esto o tengo que trabajar directamente con la base de datos sin utilizar un daptador por medio de un command??

[jhonjairo00]

Hola

Bueno, si lo que quieres es hacer filtros usando expresiones que tomas desde varios TextBox lo que puedes hacer es filtrar directamente el DataTable y luego llenas tu ListView con lo que te quede en la DataTable, usando el método Select de este objeto. Mira el ejemplo así es más gráfico

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim expression As String
        Dim sortOrder As String
 
        expression = "Referencia = '" & TextBox1.Text & "' and Lote = '" & TextBox2.Text &"'"
        ' También se pueden usar expresiones de ordenamiento.
        sortOrder = "Nº_HR DESC"
 
        ' Se retorna un arreglo de filas.
        Dim Rows() As DataRow = Tabla.Select(expression, sortOrder)
        
        For Each _row As DataRow In foundRows
            Dim item As ListViewItem
            item = New ListViewItem(_row.Item("Referencia").ToString)
            'Agrego los demas datos a los SubItems de item
            item.SubItems.Add(_row.Item("Lote").ToString)
            item.SubItems.Add(_row.Item("Nº_HR").ToString)
            item.SubItems.Add(_row.Item("Cant_Inicial").ToString)
            item.SubItems.Add(_row.Item("Fecha_Inicio").ToString)
            item.SubItems.Add(_row.Item("Cant_Fin").ToString)
            item.SubItems.Add(_row.Item("Fecha_Fin").ToString)
            item.SubItems.Add(_row.Item("Obs_Produccion").ToString)
            item.SubItems.Add(_row.Item("Obs_Pedido_Material").ToString)
            item.SubItems.Add(_row.Item("Reg").ToString)
            'Agrego el item a la colección de listViewItem's de Lst_Operaciones.
            Lst_HistoricoFabricacion.Items.Add(item)
        Next
                
    End Sub
 

De esta forma ya los datos que se muestran quedarán filtrados...

Espero te sirva...

[jhonjairo00]

Hola perdona, se me fueron un par de errores

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim expression As String
        Dim sortOrder As String
        Lst_HistoricoFabricacion.Items.Clear()
 
        expression = "Referencia = '" & TextBox1.Text & "' and Lote = '" & TextBox2.Text &"'"
        ' También se pueden usar expresiones de ordenamiento.
        sortOrder = "Nº_HR DESC"
 
        ' Se retorna un arreglo de filas.
        Dim Rows() As DataRow = Tabla.Select(expression, sortOrder)
        
        For Each _row As DataRow In Rows
            Dim item As ListViewItem
            item = New ListViewItem(_row.Item("Referencia").ToString)
            'Agrego los demas datos a los SubItems de item
            item.SubItems.Add(_row.Item("Lote").ToString)
            item.SubItems.Add(_row.Item("Nº_HR").ToString)
            item.SubItems.Add(_row.Item("Cant_Inicial").ToString)
            item.SubItems.Add(_row.Item("Fecha_Inicio").ToString)
            item.SubItems.Add(_row.Item("Cant_Fin").ToString)
            item.SubItems.Add(_row.Item("Fecha_Fin").ToString)
            item.SubItems.Add(_row.Item("Obs_Produccion").ToString)
            item.SubItems.Add(_row.Item("Obs_Pedido_Material").ToString)
            item.SubItems.Add(_row.Item("Reg").ToString)
            'Agrego el item a la colección de listViewItem's de Lst_Operaciones.
            Lst_HistoricoFabricacion.Items.Add(item)
        Next
                
    End Sub
 

[41b3r70]

Hola. Gracias jhonjairo00 por tu interes. He conseguido solucionarlo despues de darle muchas vueltas.

Lo que yo queria hacer era cargar todos los datos de la tabla mediante una sola conexion a la BBDD y que luego todos los filtros que se hicieran, no requiriesen de mas conexiones. Mas que nada porque la tabla contiene bastantes registros y al estar los filtros colocados en los eventos textchanged de los textbox, se ralentizaba un poco el tema. De ahi que quisiera usar un adptador y filtrar sobre el para no realizar mas conexiones.

Al final lo he solucionado asi:

Código:

  Private Sub FiltrarDatos()

        If Tabla.Rows.Count = 0 Then
            Exit Sub
        End If

        Dim StrFiltro As String = Nothing
        Dim FiltroCompleto As String = Nothing

        If Txt_ReferenciaHistoricoFabricacion.Text <> "" Then
            If StrFiltro = "" Then
                StrFiltro = StrFiltro & " Referencia= '" & Txt_ReferenciaHistoricoFabricacion.Text & "'"
            Else
                StrFiltro = StrFiltro & " and Referencia=  '" & Txt_ReferenciaHistoricoFabricacion.Text & "'"
            End If
        End If
        If Txt_HRHistoricoFabricacion.Text <> "" Then
            If StrFiltro = "" Then
                StrFiltro = StrFiltro & " Nº_HR=  '" & Txt_HRHistoricoFabricacion.Text & "'"
            Else
                StrFiltro = StrFiltro & " and Nº_HR=  '" & Txt_HRHistoricoFabricacion.Text & "'"
            End If
        End If

.............

     FiltroCompleto = StrFiltro
        Dim Filtro As New DataView(Tabla)
        Filtro.RowFilter = FiltroCompleto
        Dim i As Integer
        Dim Lista As ListViewItem = Nothing
        Dim fila As DataRowView
        Lst_HistoricoFabricacion.Items.Clear()
        For Each fila In Filtro
            For i = 0 To Lst_HistoricoFabricacion.Columns.Count - 1
                If i = 0 Then
                    Lista = Lst_HistoricoFabricacion.Items.Add(fila(i).ToString)
                    Lista.Tag = fila
                Else
                    Lista.SubItems.Add(fila(i).ToString)
                End If
            Next
        Next

Seguramente haya una forma mejor de hacerlo pero a mi me ha funcionado asi. Gracias otra vez

[jhonjairo00]

Hola 41b3r70

Pues me alegra que lo hayas solucionado, y aunque hayan otras formas "mejores o peores" lo importante es que funcione, al final al usuario eso es lo que le interesa...

Saludos