Consulta en ADO

Guillermo
03 de Diciembre del 2003
Hola amigos gracias por su ayuda

Este es mi codigo de mi consulta

With rdc1

.Source = "SELECT * FROM Emporio1 WHERE[Spc_Acct] Like '%" & st & "%'"
.ActiveConnection = cnEmporio
.CursorType = adOpenStati
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
rdc1.Open
Cargo la consulta en variables y despues las mando a una tabla en access, este es el codigo siguiente.
Confp = rdc1.Fields("Conf")
Roomp = rdc1.Fields("Room")
Namep = rdc1.Fields("Name")
Adup = rdc1.Fields("A")
ninop = rdc1.Fields("N")
Cntyp = rdc1.Fields("Cnty")
Natlp = rdc1.Fields("Natl")
Rp = rdc1.Fields("R")
Cityp = rdc1.Fields("City_St")
PSrcp = rdc1.Fields("PSrc")
Mktp = rdc1.Fields("Mkg")
'Pkgp = rdc1.Fields("Pkg")
Calc_Ratep = rdc1.Fields("Calc_Rat")
Over_Ratep = rdc1.Fields("Over_Rate")
Spc_Acctp = rdc1.Fields("Spc_Acct")
TAp = rdc1.Fields("TA")
stp = rdc1.Fields("st")

With consulta
.AddNew
!Conf = Confp
!Room = Roomp
!Name = Namep
!A = Adup
!n = ninop
!Cnty = Cntyp
!Natl = Natlp
!R = Rp
!City_St = Cityp
!PSrc = PSrcp
!Mkg = Mktp
!Calc_Rat = Calc_Ratep
!Over_Rate = Over_Ratep
!Spc_Acct = Spc_Acctp
!TA = TAp
!st = stp
.Update
'.MoveNext
.Bookmark = .Bookmark
End With

lo que no se es como buscar mas datos en la tabla de donde se va hacer la consulta, para posteriormente cargarlo en la suiguiente tabla.
Ha otra pregunta cuates alguien sabe donde puedo encontrar manuales de Cristal Repor 7.0 en español.

Gracias amigos espero me puedan ayudar ya que estoy iniciando en esto y no tengo mucho material sobre esto.
bye. [email protected]


kaykay
03 de Diciembre del 2003
Es facil, el recordset es un cusror, es como un array de Types, el cual lo cargas con el open.
Tienes la instuccion MoveNext,MovePrevious, MoveLast etc...

Aqui tu harias :

While not rdc1.EOF 'Que no se el final

...... Codigo tuyo

rdc1.MoveNext

Wend

marto
03 de Diciembre del 2003
aver...

cargas el recordset pero no sabes navegarlo?
parece que tiras cada campo en una unica variable.
mejor hace un array dinamico con cada una de esas variables, con el total de registros del recodset. despues con un do loop anda cargando todo el recorset en el array.

seria:

dim !Conf()

'cargo el recorset llamado rs'

redim preserve !Conf(rs.recordcount)

for x = 0 to rs.recodcount

!Conf(x)=rs.field("conf")
rs.movenext
next x

listo creo que eso debe de andar
creo

chaus