Busqueda registro en .mdb

Busqueda registro en .mdb

Postby Francisco Horta » Sun May 06, 2007 2:59 am

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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Re: Busqueda registro en .mdb

Postby wmormar » Sun May 06, 2007 4:20 am

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


fácil.

deja te hago un sample y te lo hago llegar por correo

saludos
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby sjingo » Sun May 06, 2007 4:24 am

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
User avatar
sjingo
 
Posts: 229
Joined: Sat Mar 18, 2006 3:42 pm
Location: Ibarra-Ecuador

Postby Francisco Horta » Mon May 07, 2007 2:21 pm

willy que buen detalle, lo espero
marcelo, es precisamente lo que buscaba
gracias a ambos
salu2
paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 38 guests