Problema con Botón Buscar en registro de BD VB6.0
Publicado por Gabriel (10 intervenciones) el 09/03/2017 06:10:51
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cn As New ADODB.ConnectionDim rs As New ADODB.https://www.lawebdelprogramador.com/img/img.png?10.2Recordset
Private Sub Buscar_Click()
'Botón de Buscar registro
If (DataGrid1.SelBookmarks.Count <> 0) Then
DataGrid1.SelBookmarks.Remove 0
End If
mensaje = InputBox("Introducir el ID de la persona...", "Busqueda")
If mensaje = "" Then Exit Sub
rs.Find "IDEstudiante = '" & mensaje & "'"
If rs.EOF = False And rs.BOF = False Then
D
End If
End Sub
Valora esta pregunta
0
