Varias Bases de datos VB6 y ADO

[lokoman]

Hola!!

Primero: Cargar los datos del Estudiante "SELECT * FROM ESTUDIANTES WHERE ESTADO_PRESTADO='NO' "

Segundo: Cargar los datos de los Equipos "SELECT * FROM EQUIPOS WHERE ESTADO_PRESTADO='NO' "



Tercero: Insertar los datos en Prestamos "INSERT INTO PRESTAMOS (ID_EST, NOMBRE, ID_EQU, DESCRIP, FECHA) VALUES (" & ID_ESTUDIANTE & "," & NOMBRE & "," & ID_EQUIPO & "," & DESCRIPCION_EQUIPO & "," & DATEVALUE(DATE) & ")"

Luego para las devoluciones:

Cuarto: Insertar los datos en Devoluciones "INSERT INTO DEVOLUCIONES (ID_EST, NOMBRE, ID_EQU, DESCRIP, FECHA) VALUES (" & ID_ESTUDIANTE & "," & NOMBRE & "," & ID_EQUIPO & "," & DESCRIPCION_EQUIPO & "," & DATEVALUE(DATE) & ")"

Quinto: Borrar los datos de Prestamos "DELETE FROM PRESTAMOS WHERE ID_EST=" & ID_ESTUDIANTE & " AND ID_EQU=" & ID_EQUIPO & " AND FECHA=" & DATEVALUE(DATE)


Lo que está en azul lo haces con recordset y lo que está en rojo lo haces con la conexion:
Recordset: rstData.OPEN QUERY, CONEXION,.......
Conexion: CONEX.EXECUTE QUERY