Tengo una base de datos de access, con una tabla, dentro de la tabla tengo un campo RFC de texto, pero no es llave; tengo un get en un dialogo donde capuro el rfc y ese lo tengo que buscar en la tabla para luego traer los datos a un arreglo, como le hago para hacer la busqueda?
utilizo ADO para hacer la conexion.
salu2
paco
Busqueda registro en .mdb
-
- Posts: 845
- Joined: Sun Oct 09, 2005 5:36 pm
- Location: la laguna, mexico.
Re: Busqueda registro en .mdb
fácil.Francisco Horta wrote:Tengo una base de datos de access, con una tabla, dentro de la tabla tengo un campo RFC de texto, pero no es llave; tengo un get en un dialogo donde capuro el rfc y ese lo tengo que buscar en la tabla para luego traer los datos a un arreglo, como le hago para hacer la busqueda?
utilizo ADO para hacer la conexion.
salu2
paco
deja te hago un sample y te lo hago llegar por correo
saludos
William, Morales
Saludos
méxico.sureste
Saludos
méxico.sureste
Hola Francisco
Se puede hacer con una consulta SQL:
cRFC:="CapturadodesdeelGet"
cQuery:="Select * from tabla where RFC='"+cRFC+"'"
Luego de realizar la conexión y crear el objeto recordset, lo abrimos:
oRs:Open( cQuery , cConnection, adOpenKeyset, adLockOptimistic )
este devuelve un arreglo con los registros que encontró en la consulta, y los puedes pasar a un array:
oRs:MoveFirst() // equivale a GO TOP
adatos:={} //Arreglo en el que se recuperan los datos
WHILE !oRs:Eof()
aReg := {""}
for nPos := 0 to oRs:Fields:Count() -1
AAdd(aReg,oRs:Fields(nPos):Value)
next
AAdd(aDatos,aReg)
oRs:MoveNext()
END
Espero que sea lo que necesitas.
Esto me funciona en MySQL, supongo que debe funcionar en acces.
Un saludo
Marcelo Jingo
Se puede hacer con una consulta SQL:
cRFC:="CapturadodesdeelGet"
cQuery:="Select * from tabla where RFC='"+cRFC+"'"
Luego de realizar la conexión y crear el objeto recordset, lo abrimos:
oRs:Open( cQuery , cConnection, adOpenKeyset, adLockOptimistic )
este devuelve un arreglo con los registros que encontró en la consulta, y los puedes pasar a un array:
oRs:MoveFirst() // equivale a GO TOP
adatos:={} //Arreglo en el que se recuperan los datos
WHILE !oRs:Eof()
aReg := {""}
for nPos := 0 to oRs:Fields:Count() -1
AAdd(aReg,oRs:Fields(nPos):Value)
next
AAdd(aDatos,aReg)
oRs:MoveNext()
END
Espero que sea lo que necesitas.
Esto me funciona en MySQL, supongo que debe funcionar en acces.
Un saludo
Marcelo Jingo
-
- Posts: 845
- Joined: Sun Oct 09, 2005 5:36 pm
- Location: la laguna, mexico.