
Pasar ciertos datos de 3 tablas diferentes a otra tabla (vacia)
Publicado por Luis (6 intervenciones) el 28/09/2015 18:20:09
Tengo 4 tablas: control1, usuarios, horarios y una vacia que es estudiantes.
Quiero tomar datos de cada tabla y pasarlos a la tabla de estudiantes.
y todo lo tengo que hacer en un .prg
esto es lo que intente pero no me queda bien.
CLEAR
Select usuarios
Go Top
Do While !eof()
fac = usuarios.facultad
car = usuarios.carrera
Select estudiantes
Append Blank
Replace estudiantes.facultad With fac
Replace estudiantes.carrera With car
Select usuarios
Skip
Enddo
SELECT control1
Go Top
Do While !eof()
lab = control1.laboratorio
fec = control1.fecha
hor = control1.hora_inicial
Select estudiantes
Append Blank
Replace estudiantes.salon With lab
Replace estudiantes.fecha With fec
Replace estudiantes.hora WITH hor
Select control1
Skip
Enddo
CLEAR
SELECT horarios
Go Top
Do While !eof()
cur = horarios.curso
nom = horarios.nombre_cate
com = horarios.comentarios
Select estudiantes
Append Blank
Replace estudiantes.curso1 With cur
Replace estudiantes.docente With nom
Replace estudiantes.comentario WITH com
Select horarios
Skip
Enddo

y lo que pasa es que me pasa los datos de una tabla primero y los datos de la siguiente tabla me los pasa abajo, y yo quiero que los datos me queden juntos.
como puedo lograr esto con un .prg
Quiero tomar datos de cada tabla y pasarlos a la tabla de estudiantes.
y todo lo tengo que hacer en un .prg
esto es lo que intente pero no me queda bien.
CLEAR
Select usuarios
Go Top
Do While !eof()
fac = usuarios.facultad
car = usuarios.carrera
Select estudiantes
Append Blank
Replace estudiantes.facultad With fac
Replace estudiantes.carrera With car
Select usuarios
Skip
Enddo
SELECT control1
Go Top
Do While !eof()
lab = control1.laboratorio
fec = control1.fecha
hor = control1.hora_inicial
Select estudiantes
Append Blank
Replace estudiantes.salon With lab
Replace estudiantes.fecha With fec
Replace estudiantes.hora WITH hor
Select control1
Skip
Enddo
CLEAR
SELECT horarios
Go Top
Do While !eof()
cur = horarios.curso
nom = horarios.nombre_cate
com = horarios.comentarios
Select estudiantes
Append Blank
Replace estudiantes.curso1 With cur
Replace estudiantes.docente With nom
Replace estudiantes.comentario WITH com
Select horarios
Skip
Enddo

y lo que pasa es que me pasa los datos de una tabla primero y los datos de la siguiente tabla me los pasa abajo, y yo quiero que los datos me queden juntos.
como puedo lograr esto con un .prg
Valora esta pregunta


0