Visual Basic - Hacer boton BUSCAR

Life is soft - evento anual de software empresarial
 
Vista:

Hacer boton BUSCAR

Publicado por Jaime Andres (4 intervenciones) el 31/07/2004 21:54:53
necesito hacer un boton buscar para "buscar" un registro de una base de datos hecha en access
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:Hacer boton BUSCAR

Publicado por tecniCam (186 intervenciones) el 01/08/2004 21:51:14
'Uso del método Find para localizar el registro
'*******************************************************
NewDyn.FindFirst "Apellidos = 'Pérez López'" (OJO si viene de una variable o cuadro de texto. Habrá que ponerle los & para concatenar)
'********************************************
'Comprobar la propiedad NoMatch para evitar un error
'********************************************
If NewDyn.NoMatch Then
MsgBox "No se encuentra"
Else
Lo que corresponda
End If
'****************************************************
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

RE:Hacer boton BUSCAR

Publicado por Jaime Andres (4 intervenciones) el 03/08/2004 03:58:46
listo lo acomode a mi manera de pensar pero no entendi muy bien, rpimero que todo quiero saber que es (NewDyn) y lo otro es que necesito buscar en un campo de caracteres sonde escribo numeros
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

RE:Hacer boton BUSCAR II

Publicado por tecniCam (186 intervenciones) el 01/08/2004 21:51:56
Usa el método Seek para desplazarse a un registro específico de la tabla
'*********************************************************
Dim OldDb As Database, OldTbl As Recordset
Dim OldWs As WorkSpace
Set OldWs = DBEngine.Workspaces(0)
Set OldDb = OldWs.OpenDatabase("C:\LAPERA.MDB")
Set OldTbl = OldDb.OpenRecordset("Clientes",dbOpenTable)
'************************************
'Establece la propiedad índice para la tabla
'************************************
OldTbl.Index = "Nombre"
'******************************************
'Ejecuta Seek con la condición requerida
'******************************************
OldTbl.Seek ">", "Vicente"
'*********************************************************
'Muestra la información o el mensaje "No se encuentra"
'*********************************************************
If OldTbl.NoMatch Then
MsgBox "No se encuentra"
Else
MsgBox OldTbl("Apellidos") & ", " & OldTbl("Nombre")
End If
'*********************************************************
'El método Seek busca el primer registro que coincida con Apellidos y Nombre indicados
'*********************************************************
OldTbl.Seek ">=", "Aguilar Bueno", "Vicente"
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