alguien que me ayude con el codigo de busqueda en vb 6.0
esto hacinedo una base de datos para registro de alumnos de mis grupos y quiero utilizar una busqueda para encontrarlos con numero de lista o nombre y apellido les agradezco la ayuda
Esto es para visual basic 6 y DAO :
rs as recorset
db as database
set db=opendatabase("C: ...etc")
set rs=db.openrecordset("nombretabla")
rs.index="NombreIndiceNumerodelista"
ó?
rs.index "NombreInd..ista" Con esto fijas la clave
rs.seek "=",val(numerolista) 'estas buscando comparando con un texbox (el val es por si en tu base el campo es numérico)
if rs.nomatch then ..' ejecuta codigo si no encuentra coincidencia
ahora tienes un registro de tu base en rs
rs.fields ("nombrecampo") para sacar el valor de un campo
ó rs.fields (numerodecampo) '(empezando por 0)
para el nombre y apellido igual pero la clave son dos campos
osea:
rs.index "nombre","apellido" (estos son los nombres de los indices que pusistes en tu base)
rs.seek "=",TXTnombre,TXTapellido
SALU2
rs as recorset
db as database
set db=opendatabase("C: ...etc")
set rs=db.openrecordset("nombretabla")
rs.index="NombreIndiceNumerodelista"
ó?
rs.index "NombreInd..ista" Con esto fijas la clave
rs.seek "=",val(numerolista) 'estas buscando comparando con un texbox (el val es por si en tu base el campo es numérico)
if rs.nomatch then ..' ejecuta codigo si no encuentra coincidencia
ahora tienes un registro de tu base en rs
rs.fields ("nombrecampo") para sacar el valor de un campo
ó rs.fields (numerodecampo) '(empezando por 0)
para el nombre y apellido igual pero la clave son dos campos
osea:
rs.index "nombre","apellido" (estos son los nombres de los indices que pusistes en tu base)
rs.seek "=",TXTnombre,TXTapellido
SALU2