Autor
Estoy haciendo un miniprograma que sirve para realizar busquedas de datos en una Base de datos hecha en Access, el formulario del programa contiene
1 Textbox (Text1)
1 Combobox (Combo1)
1 DataGrid (DataGrid1)
3 CommandButton (Command1, Command2, Command3)
1 Adodc (Adodc1)
Y estoy usando el siguiente codigo:
Código:
Public mensaje As String
Private Sub Combo1_Click()
Command1.Enabled = Not Combo1.Text = ""
End Sub
Private Sub Command1_Click()
If Form11.mensaje = "Escuela" Then
Form11.Adodc1.RecordSource = "Select *from Pasante Where " & Label1.Caption & "= '" & Combo1.Text & "'"
Else
Form11.Adodc1.RecordSource = "Select *from Pasante Where " & Label1.Caption & "= '" & Text1.Text & "'"
End If
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
Form2.Show
End Sub
Private Sub Command3_Click()
Form11.Adodc1.RecordSource = "Select *from Pasante"
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Text1_Change()
Command1.Enabled = Not Text1.Text = ""
End Sub
Pasante es la tabla donde se realiza la consulta
Lo pongo a correr y funciona perfectamente, pero quisiera darle una actualizacion
Supongamos que la Base de datos tiene 2 registros:
El primer registro con Nombre "Juan Carlos"
El segundo registro con Nombre "Juan Antonio"
Y yo, por medio del programa hago una busqueda del registro "Juan", y no me aparecen los dos (deberian porque estos tienen el mismo primer nombre), porque ninguno tiene segundo nombre ademas de "Juan", ajuro tengo que poner "Juan Carlos" o "Juan Antonio" para que me salga uno de los dos registros que tiene la Base de Datos
Pueden ayudarme, please
En línea
