
21/11/2008, 19:35
|
 | | | Fecha de Ingreso: junio-2007 Ubicación: Shikasta
Mensajes: 1.272
Antigüedad: 17 años, 8 meses Puntos: 49 | |
Respuesta: Realizar busqueda a la base de datos con varios campos de un formulario Esta fue la solución que plantee de todas maneras gracias
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'" |