buscar nombre en base de datos
Publicado por ana isabel (4 intervenciones) el 14/01/2008 18:36:56
hola , tengo una base de datos con nun monton de nombres y datos personales
ando hacendo un form que haga un filtro por nombre,
si me funciona el codigo pero tengo ke poner el nombre completo "norma garcia peña" para que aparezca, el caso es ke kiero poner por ejemplo norma y ke me ponga los datos de todas las normas ke hay, se puede? este es mi codigo
Private Sub Command1_Click()
Dim strSQL As String
Set db = OpenDatabase("datapersonas.mdb")
SQL = "perso"
strSQL = "SELECT * FROM perso WHERE nombres LIKE '" & Text1.Text & "'"
Set rs = db.OpenRecordset(strSQL)
'On Error GoTo error
'rs.MoveFirst
List1.Clear
Do Until rs.EOF
List1.AddItem rs("nombres")
rs.MoveNext
Loop
End Sub
lo malo es ke con esto tengo ke poner el nombre completo para ver los registros, pero si solo se que se llama norma y tengo varias normas? como puedo hacer ke aparezcan las demas? gracias, :)
ando hacendo un form que haga un filtro por nombre,
si me funciona el codigo pero tengo ke poner el nombre completo "norma garcia peña" para que aparezca, el caso es ke kiero poner por ejemplo norma y ke me ponga los datos de todas las normas ke hay, se puede? este es mi codigo
Private Sub Command1_Click()
Dim strSQL As String
Set db = OpenDatabase("datapersonas.mdb")
SQL = "perso"
strSQL = "SELECT * FROM perso WHERE nombres LIKE '" & Text1.Text & "'"
Set rs = db.OpenRecordset(strSQL)
'On Error GoTo error
'rs.MoveFirst
List1.Clear
Do Until rs.EOF
List1.AddItem rs("nombres")
rs.MoveNext
Loop
End Sub
lo malo es ke con esto tengo ke poner el nombre completo para ver los registros, pero si solo se que se llama norma y tengo varias normas? como puedo hacer ke aparezcan las demas? gracias, :)
Valora esta pregunta


0