Visual Basic - REALIZAR BUSQUEDA

HOLA AL FORO

ALGUIEN PODRIA AYUDARME A REALIZAR UN CODIGO PARA REALIZAR UNA BUSQUEDA EN UNA BASE DE DATOS. YA Q NO TENGO UNA IDEA CLARA DE COMO REALIZARLO (SOY NUEVO EN PROGRAMACION), ESTOY USANDO CONEXION DAO.

PROBLEMA. DE UNA BASE DE DATOS AL COMPRAR NOMBRE, APELLIDO PATERNO Y MATERNO, SI COINCIDE CON LO PUESTO EN 3 TEXT BOX, DESPLEGAR LOS DATOS SIGUIENTES DE LA PERSONA Q CONCUERDEN LOS DATOS DADOS, LOS DATOS SE MUESTRAN EN TEXT BOX... AGRADEZCO DE ANTEMANO SU APRECIABLE AYUDA.

agregame al msn, ya que la respuesta es un poco larga, pero en general va así
1. Crea una base de datos llamada ejemplo.mdb en el directorio c:\
2. en la base de datos crea una tabla llamada "tabla" con los campos "nombre" que se a texto y edad que sea numerico. Agregale algunos datos de ejemplo, los nombre y edades de tud amigos por ejemplo
3. Abre un proyecto en VB 6
4. en el proyecto agrega la referencia (en menu proyecto - referencias) "microsoft DAO 2.5/3.5 libra ..."
2. agrega el componente (en menu proyecto- componentes, abajo de referencias) el control "Microsoft flex grid control"
3. Pon un control de texto (se llamara text1), una grilla (cambiale el nombre en el cuadro porpiedades a grilla1 para que sea más fácil la programación) y un control data (que se llamara data1). En la ventana propiedades a la grilla1 pon en la propiedad datasource data1
4. pincha sobre text1. te abrirá la ventana de codigo en el control text1 y el evento change, bien, cambia el change por keydown (en el cuadro de lista arriba a la izquierda). esto es para que el programa sepa cuando precionas teclas en el control text1. El codigo en esta parte sería el siguiente:

Private Sub Text1_KeyDown( KeyCode As Integer, Shift As Integer)

end sub

private sub buscaenbasededatos()
dim mibase as database
dim tabla as recordset
set mibase= workspaces(0).opendatabase("c:\ejemplo.mdb")
set tabla= mibase.openrecordset("select * from tabla",dbopendynaset)

agregame al msn, ya que la respuesta es un poco larga, pero en general va así
1. Crea una base de datos llamada ejemplo.mdb en el directorio c:\
2. en la base de datos crea una tabla llamada "tabla" con los campos "nombre" que se a texto y edad que sea numerico. Agregale algunos datos de ejemplo, los nombre y edades de tud amigos por ejemplo
3. Abre un proyecto en VB 6
4. en el proyecto agrega la referencia (en menu proyecto - referencias) "microsoft DAO 2.5/3.5 libra ..."
2. agrega el componente (en menu proyecto- componentes, abajo de referencias) el control "Microsoft flex grid control"
3. Pon un control de texto (se llamara text1), una grilla (cambiale el nombre en el cuadro porpiedades a grilla1 para que sea más fácil la programación) y un control data (que se llamara data1). En la ventana propiedades a la grilla1 pon en la propiedad datasource data1
4. pincha sobre text1. te abrirá la ventana de codigo en el control text1 y el evento change, bien, cambia el change por keydown (en el cuadro de lista arriba a la izquierda). esto es para que el programa sepa cuando precionas teclas en el control text1. El codigo en esta parte sería el siguiente:

Private Sub Text1_KeyDown( KeyCode As Integer, Shift As Integer)

end sub

private sub buscaenbasededatos()
dim mibase as database
dim tabla as recordset
set mibase= workspaces(0).opendatabase("c:\ejemplo.mdb")
set tabla= mibase.openrecordset("select * from tabla",dbopendynaset)

agregame al msn, ya que la respuesta es un poco larga, pero en general va así
1. Crea una base de datos llamada ejemplo.mdb en el directorio c:\
2. en la base de datos crea una tabla llamada "tabla" con los campos "nombre" que se a texto y edad que sea numerico. Agregale algunos datos de ejemplo, los nombre y edades de tud amigos por ejemplo
3. Abre un proyecto en VB 6
4. en el proyecto agrega la referencia (en menu proyecto - referencias) "microsoft DAO 2.5/3.5 libra ..."
2. agrega el componente (en menu proyecto- componentes, abajo de referencias) el control "Microsoft flex grid control"
3. Pon un control de texto (se llamara text1), una grilla (cambiale el nombre en el cuadro porpiedades a grilla1 para que sea más fácil la programación) y un control data (que se llamara data1). En la ventana propiedades a la grilla1 pon en la propiedad datasource data1
4. pincha sobre text1. te abrirá la ventana de codigo en el control text1 y el evento change, bien, cambia el change por keydown (en el cuadro de lista arriba a la izquierda). esto es para que el programa sepa cuando precionas teclas en el control text1. El codigo en esta parte sería el siguiente:

Private Sub Text1_KeyDown( KeyCode As Integer, Shift As Integer)

end sub

private sub buscaenbasededatos()
dim mibase as database
dim tabla as recordset
set mibase= workspaces(0).opendatabase("c:\ejemplo.mdb")
set tabla= mibase.openrecordset("select * from tabla",dbopendynaset)

agregame al msn, ya que la respuesta es un poco larga, pero en general va así
1. Crea una base de datos llamada ejemplo.mdb en el directorio c:\
2. en la base de datos crea una tabla llamada "tabla" con los campos "nombre" que se a texto y edad que sea numerico. Agregale algunos datos de ejemplo, los nombre y edades de tud amigos por ejemplo
3. Abre un proyecto en VB 6
4. en el proyecto agrega la referencia (en menu proyecto - referencias) "microsoft DAO 2.5/3.5 libra ..."
2. agrega el componente (en menu proyecto- componentes, abajo de referencias) el control "Microsoft flex grid control"
3. Pon un control de texto (se llamara text1) y otro text2, una grilla (cambiale el nombre en el cuadro porpiedades a grilla1 para que sea más fácil la programación) y un control data (que se llamara data1). En la ventana propiedades a la grilla1 pon en la propiedad datasource data1
4. pincha sobre text1. te abrirá la ventana de codigo en el control text1 y el evento change, bien, cambia el change por keydown (en el cuadro de lista arriba a la izquierda). esto es para que el programa sepa cuando precionas teclas en el control text1. El codigo en esta parte sería el siguiente:

Private Sub Text1_KeyDown( KeyCode As Integer, Shift As Integer)
select keycode
case 13 'cuando se presiona enter
if isnumeric(text1)=true then
buscaenbasededatos
else
text1.text=empty
end if

case 27 ' cuando se presiona escape

end select
end sub

private sub buscaenbasededatos()
dim mibase as database
dim tabla as recordset
set mibase= workspaces(0).opendatabase("c:\ejemplo.mdb")
set tabla= mibase.openrecordset("select * from tabla where edad = " &_ text1.text,dbopendynaset)
'esto filtra tu tabla
set data1.recordset=tabla
end sub

'para buscar un dato determinado usa

tabla.findfirst ("edad=" & text1.text)
if tabla.nomatch = true then
msgbox "no existen nadie con esa edad"
else
text2.text = tabla!nombre
end if

más serios, o es que pretendes estar el primero de los "expertos"?

si no paortan a su rincon los kiltros

si no aportan a su rincon los kiltros

¿Se puede ser mas "ibécile" que tú? Primero aprende a escribir y después a hacer preguntas y a continuación a responder. Porque de las tres no tienes ni idea.
Mira meu neno, dedícate a otra profesión que no sea la programación y evita dar consejos porque no hay otra cosa mas atrevida que la ignorancia.
Sócrates (s.2 a.c.)