Consulta en ADO
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 materias sobre esto.
bye. [email protected]
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 materias sobre esto.
bye. [email protected]