Bases de Datos - BUSCAR con ADO

   
Vista:

BUSCAR con ADO

Publicado por Jose (1 intervención) el 06/10/2007 01:57:23
Hola amigos, estoy haciendo un programa en VB,estoy usando ADO para conectar la base de datos de access..el problema que tengo es que no me funciona el boton de buscar...alguien me puede ayudar...por fa'
este es el codigo del boton de "BUSCAR"

Private Sub Command2_Click()
Dim COMILLAS As String
Dim FUENTE As String
Dim CRITERIO As String
COMILLAS = Chr$(34)
20 FUENTE = InputBox("Teclea el tambo a modificar", "busqueda")
lon = Len(FUENTE)
If FUENTE = "" Then Exit Sub
If lon <> 5 Then
MsgBox ("Debes introducir un id de 5 digitos")
Exit Sub
End If
CRITERIO = "ID=" & COMILLAS & FUENTE & COMILLAS
Adodc1.Recordset.Find CRITERIO
If Adodc1.Recordset.EOF Then
MsgBox ("No se encontró registro")
Adodc1.Recordset.MoveLast
End If
Text2.SetFocus
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:BUSCAR con ADO

Publicado por Llaverin (6 intervenciones) el 08/10/2007 09:20:38
Hola Jose:
Lo primero, porque utilizas la variable COMILLAS, no seria necesario, entiendo que el ID, es numerico, ponlo de esta manera y me comentas si te vale:

CRITERIO = "ID=" & FUENTE

Saludos
Ana
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar