Mostrar filtro mediante TextBox y Combobox[VB.net]

[UNDR4]

Hola amigos, quisiera saber is me pueden pasar algún ejemplo de esto:

Filtrar un registro dependiendo del resultado de una consulta usando 2 Textbox y un Combobox (Ya sea juntos o de manera individual) Presionando un boton BTNBuscar, lo valores son clave,nombre y marcas, actualmente ya tengo funcionando el Combobox (Marcas) , pero no logro realizar el filtro con los Textbox, todo esto lo muesto en un data grid. Espero y puedan orientarme


Codigo:

Código vb:

Private Sub BTNPSea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPSea.Click
        'Crear Conexion
        Dim Conexion As MySqlConnection
        Conexion = New MySqlConnection
        Conexion.ConnectionString = "Server = localhost ; Database = test ; User Id=root ; Password=102530"
        'Crear Adaptador
        oDataAdapter = New MySqlDataAdapter("Select clave,nombre,descripcion,precioc,preciou from productos where id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre", Conexion)
        Dim Table As New DataTable
        'Crear CommandBuilder
        Try
            Dim oComBuild As MySqlCommandBuilder = New MySqlCommandBuilder(oDataAdapter)
            'Crear Dataset
            Me.oDataset = New DataSet
            'AbriConexion
            Conexion.Open()
            'Llenar adaptador 
            Me.oDataAdapter.Fill(Table)
            DTVProductos.DataSource = Table
            Conexion.Close()
        Catch ex As Exception
            MsgBox("Error")
        End Try
    End Sub
 

[Aquaventus]

Hola UNDR4, eso lo puedes validar en la acción click de tu boton de esta manera :

Código vb:

'Creas una variable string que contendra la consulta
Dim query As String
If txtTUTEXTBOX1.Text.Trim.Length == 0 And txtTUTEXTBOX2.Text.Trim.Length == 0 Then
query = "Select clave,nombre,descripcion,precioc,preciou from productos where id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
Else IF txtTUTEXTBOX1.Text.Trim.Length <> 0 And txtTUTEXTBOX2.Text.Trim.Length == 0 Then
query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave='" txtTUTEXTBOX1.Text.Trim & "' and id_marca ='" & CBMarca.SelectedValue.ToString & "' order by nombre"
Else IF txtTUTEXTBOX1.Text.Trim.Length == 0 And txtTUTEXTBOX2.Text.Trim.Length <> 0 Then
query = "Select clave,nombre,descripcion,precioc,preciou from productos where nombre='" txtTUTEXTBOX2.Text.Trim & "' and id_marca ='" & CBMarca.SelectedValue.ToString & "' order by nombre"
Else ' txtTUTEXTBOX1.Text.Trim.Length <> 0 And txtTUTEXTBOX2.Text.Trim.Length <> 0 Then
query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave='" txtTUTEXTBOX1.Text.Trim & "' and nombre = '" & txtTUTEXTBOX2.Text.Trim & "'and id_marca ='" & CBMarca.SelectedValue.ToString & "' order by nombre"
End If
 
'Y al final se lo pasas a tu adapter
'Crear Adaptador
oDataAdapter = New MySqlDataAdapter(query, Conexion)
 

Saludos!.

[UNDR4]

Gracias por el ejemplo amigo, esta bastante completo , otra pregunta es como poner el primer valor del ComoboBox vació, este es el codigo que eso para llenar el combo:

Código vb:

CBMarca.DataSource = dt
CBMarca.DisplayMember = "nombre"
CBMarca.ValueMember = "id_marca"
 

[ldcd]

Puedes ponerle el selected Index en -1, si mal no recuerdo con eso lo pone vacío, ahora, otra forma un poco mejor es que a la lista que pones en el Combo le agregues un elemento al inicio con un valor "Seleccione un elemento", se vería mejor

[UNDR4]

Iniciado por ldcd

Puedes ponerle el selected Index en -1, si mal no recuerdo con eso lo pone vacío, ahora, otra forma un poco mejor es que a la lista que pones en el Combo le agregues un elemento al inicio con un valor "Seleccione un elemento", se vería mejor

Lo eh intentado amigo pero aun así no me da por default el campo vacio y/o me muestra el mensaje Seleccionar...

este es el codigo completo con el que lleno el combobox

Código vb:

Try
    da = New MySqlDataAdapter(sSel, CConexion)
     dt = New DataTable
     'Llenar la tabla con los datos indicados
     da.Fill(dt)
Catch ex As Exception
     MsgBox("Error")
End Try
 
CBMarca.SelectedIndex = -1
CBMarca.DataSource = dt
CBMarca.DisplayMember = "nombre"
CBMarca.ValueMember = "id_marca"
 

la única forma que encontrado de dejar vació el combobox por defecto es la de CBMarca.ResetText() pero eso solo lo uso en el botón de limpiar datos, ya que al cargar el formulario no me funciona del todo.

[Aquaventus]

Hola UNDR4, el CBMarca.SelectedIndex = -1, colocalo al final despues de cargarlo por eso que no refleja. Saludos!..

Código vb:

CBMarca.DataSource = dt
CBMarca.DisplayMember = "nombre"
CBMarca.ValueMember = "id_marca"
CBMarca.SelectedIndex = -1
 

[UNDR4]

Iniciado por Aquaventus

Hola UNDR4, el CBMarca.SelectedIndex = -1, colocalo al final despues de cargarlo por eso que no refleja. Saludos!..

seré idiota, tienes razón, muchas gracias por contestar

Solo una ultima cosa, al hacer esto me viene un problema con los filtros: Referencia a objeto no establecida como instancia de un objeto con CBMarca.SelectedValue.ToString en la linea 9

Así es como eh puesto los filtros de registros

Código vb:

Dim Query As String
        If TBPClave.Text.Trim.Length = 0 And TBPNombre.Text.Trim.Length = 0 Then
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
        ElseIf TBPClave.Text.Trim.Length = 0 And CBMarca.SelectedIndex.Equals(-1) Then
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like '" & TBPClave.Text & "' order by nombre"
        ElseIf TBPClave.Text.Trim.Length = 0 And CBMarca.SelectedIndex.Equals(-1) Then
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like '" & TBPNombre.Text & "' order by nombre"
        ElseIf TBPClave.Text.Trim.Length <> 0 And TBPNombre.Text.Trim.Length = 0 Then
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like '" & TBPClave.Text & "' and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
        ElseIf TBPClave.Text.Trim.Length = 0 And TBPNombre.Text.Trim.Length <> 0 Then
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where nombre like '" & TBPNombre.Text & "' and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
        Else
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like'" & TBPClave.Text & "' and nombre like '" & TBPNombre.Text & "'and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
        End If
        'Crear Adaptador
        oDataAdapter = New MySqlDataAdapter(Query, Conexion)
 

También eh intentado con (CBMarca.Text = "") supongo que estaré haciendo algo mal, pero necesito verificar que el combobox este vació para poder implementar mejor los filtros

[Aquaventus]

Hola UNDR4!, eso se debe a que no estas validando bien... mira esta linea que creo que es en la que se cae :

Código vb:

ElseIf TBPClave.Text.Trim.Length <> 0 And TBPNombre.Text.Trim.Length = 0 Then
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like '" & TBPClave.Text & "' and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
 

Como ves tu campo clave puede tener contenido y el nombre puede estar vacío... hasta allí bien, pero que pasa si además tu combobox está como indice -1?? pasa a la siguiente linea tú obligadamente jalas su valor cuando en realidad no nay nada ningun valor instanciado. por eso es que te sale eferencia a objeto no establecida como instancia de un objeto. Para ello lo que tendrás que hacer es tbm decir en tu condicional que tu combobox sea distinto a -1 :

Código vb:

ElseIf TBPClave.Text.Trim.Length <> 0 And TBPNombre.Text.Trim.Length = 0 And CBMarca.SelectedIndex <> -1 Then
 

Saludos!.

[UNDR4]

Aquaventus gracias por responder, tu código funciona perfecto, pero que pasa en la ultima linea

Código vb:

Else
            Query = "Select clave,nombre,descripcion,precioc,preciou from productos where clave like'" & TBPClave.Text & "' and nombre like '" & TBPNombre.Text & "'and id_marca='" & CBMarca.SelectedValue.ToString & "' order by nombre"
End If
 

al implementar otro condicional ElseIF me genera un error en la variable Query dando una referencia nula y por lo tanto un error al momento de ejecutarla

Código vb:

'Crear Adaptador
        oDataAdapter = New MySqlDataAdapter(Query, Conexion)