Ver Mensaje Individual
  #5 (permalink)  
Antiguo 21/11/2008, 07:58
Avatar de Carlojas
Carlojas
 
Fecha de Ingreso: junio-2007
Ubicación: Shikasta
Mensajes: 1.272
Antigüedad: 16 años, 11 meses
Puntos: 49
Respuesta: Realizar busqueda a la base de datos con varios campos de un formulario

Gracias por la respuesta compañero, ya lo solucione de esta forma por si a alguien le interesa, ConsultarDatos() es una función que cree para las diferentes consultas a la BD

Código:
Dim cControl As Control, cCriterio As String = ""
        For Each cControl In Me.Controls
            If (TypeOf cControl Is System.Windows.Forms.TextBox) Or (TypeOf cControl Is System.Windows.Forms.ComboBox) Then
                If cControl.Text <> "" Then
                    If cControl.Tag = "nombre" Or cControl.Tag = "direccion" Or cControl.Tag = "pais" Or cControl.Tag = "profesion" Then
                        cCriterio = cCriterio + cControl.Tag + " LIKE " + "'" + "%" + cControl.Text + "%" + "'" + " AND "
                    Else
                        cCriterio = cCriterio + cControl.Tag + " = " + cControl.Text + " AND "
                    End If
                End If
            End If
        Next cControl
        cCriterio = Mid(cCriterio, 1, cCriterio.Length - 4)
        ConsultarDatos("empleados", cCriterio) 
        Me.listado.DataSource = Sdatatable
Saludos.
__________________
"SELECT * FROM Mujeres WHERE situacion NOT IN ('CASADAS','CON HIJOS','ATORMENTADAS','CUASI-ENNOVIADAS') AND personalidad <> 'INTENSA'"

Última edición por Carlojas; 21/11/2008 a las 08:03