Visual Basic - busqueda

Life is soft - evento anual de software empresarial
 
Vista:

busqueda

Publicado por omar (1 intervención) el 05/11/2003 21:14:39
hola: Les escribo porque tengo un problema, quisiera saber como hago para buscar desde visual a la base de datos( ACCESSS).
La pregunta es si en mi formulario del programa tengo un boton de comando buscar ¿quisira saber que codigo ingreso en ese boton?,yo me conecto a la base por medio del microsoft ado data control 6.0(oledb).
Desde ya muchas gracias, espero respuestas.
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:busqueda

Publicado por groval (225 intervenciones) el 05/11/2003 21:34:55
Este es un codigo para un boton de busqueda de una aplicacion que estoy haciendo, reemplaza donde prefieras y te easeguro que esto funciona.

MostrarDatos es un procedimiento para mostrar los datos en el mismo formulario. No se como tengas tu implementado el mostrar datos en el formulario.
El codigo es mas o menos asi..
Private Sub MostrarDAtos() 'listo

Text1 = IIf(IsNull(rstJurisdiccion("LOCALIZACION")), "**Ninguno**", Trim(rstJurisdiccion("LOCALIZACION")))
Text2 = IIf(IsNull(rstJurisdiccion("MONOGRAFIA")), "**Ninguno**", Trim(rstJurisdiccion("MONOGRAFIA")))
Text3 = IIf(IsNull(rstJurisdiccion("INFOFLUVIAL")), "**Ninguno**", Trim(rstJurisdiccion("INFOFLUVIAL")))
end sub
On Error Resume Next
rstJurisdiccion.Update
rstJurisdiccion.Find "lugar = '" & Trim(Text8.Text) & "'", 0, adSearchForward
'
If rstJurisdiccion.EOF = False Then
MostrarDAtos
Else
MsgBox "No hay registros que mostrar"
rstJurisdiccion.Requery
End If
espero te sirva..
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

GRACIAS

Publicado por Omar (2 intervenciones) el 07/11/2003 16:25:52
Muchas gracias:
La respuesta que me brindastes me sirvio muchisimo,
realmente te agradesco.
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