Buscar registros en una base de datos
Deseo buscar un registro por medio de un código escrito en un textbox, estoy utilizando una base de datos en Access con el control ADO y un textbox para cada campo.
Ayúdame porfavorcito...
Ayúdame porfavorcito...
1 Respuesta
Respuesta de netvaio
1
Bueno lo que puedes hacer para la búsqueda de tu registro.. sera lo siguiente.. como dices que utilizas ADO sera lo siguiente en el text pones el nombre que quieres buscar luego en el botón programas lo siguiente
Private Sub Buscar_Click()
CentrarFormulario
Dim buscando As String, Criterio As String
buscando = InputBox("¿Que nombre quieres buscar?")
If buscando = "" Then Exit Sub
Criterio = "Nombre Like '*" & buscando & "*'"
'Buscar desde el siguiente registro a la posoción actual
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
' Buscar desde el principio
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub
Private Sub Buscar_Click()
CentrarFormulario
Dim buscando As String, Criterio As String
buscando = InputBox("¿Que nombre quieres buscar?")
If buscando = "" Then Exit Sub
Criterio = "Nombre Like '*" & buscando & "*'"
'Buscar desde el siguiente registro a la posoción actual
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
' Buscar desde el principio
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub
