Realizar busqueda a la base de datos con varios campos de un formulario

[Carlojas]

Que tal compañeros buenos dias, al hacer el tipico SELECT de busqueda por un solo campo de un formulario ejemplo un TextBox no hay ningún problema, pero mi inquietud es como sería para por ejemplo plantear busquedas por cualquiera de los campos que tengo en mi formulario , busquedas por código y nombre y descripcion o solo por código y nombre o por todos los campos ETC., sin lugar a dura abria que recorrer todos los controles del formulario y verificar cual o cuales no estas vacios e ir armando una cadena de consulta a partir de los mismos, obviamente es un decir porque estoy un poco enredado con esto agradesco sus respuestas al respecto.



Saludos.

[David]

Sí, como bien dijiste, puedes recorrer todos los controles dentro de la ventana con un For Each. Por ejemplo:

Código vb:

Dim Objeto As Object
For Each Object In Me.Controls
   If TypeOf Object Is TextBox Then
      'Es un TextBox
   End If
Next Object
 

Esa sería una forma, aunque si no tienes muchos campos puedes ir comparándolos uno a uno e ir añadiendo a la consulta según esté vacío o no.

[Carlojas]

Muchas gracias por el comentario.






Saludos.

[aldo1982]

mira yo lo hago asi:

if txt_nombre <> "" then
sql_where_1 = " AND nombre like '"& txt_nombre &'" "
end if

if txt_provincia <> "" then
sql_where_2 = " AND nombre like '"& txt_provincia &'" "
end if

sql = " select estudios.*, pacientes.*"
sql = sql & " from estudios, pacientes"
sql = sql & "where estudios.id_paciente = pacientes.id_paciente "
sql = sql & sql_where_1 & sql_where_2


espero te sirva

[Carlojas]

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.

[aldo1982]

buenas de nuevo, bien, pero si tienes que consultar entre rango de precios o fechas necesitaras el operador logico AND y tu tienes

Código:

 If cControl.Tag = "nombre" Or cControl.Tag = "direccion" Or cControl.Tag = "pais" Or cControl.Tag = "profesion" Then

un detalle para que tengas en cuetna

salu2

[Carlojas]

Exacto muchas gracias por tu comentario lo tendré en cuenta


Saludos.