Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/12/2003, 05:05
jorge_esp
 
Fecha de Ingreso: noviembre-2002
Mensajes: 80
Antigüedad: 22 años, 7 meses
Puntos: 0
Debes tener una sola conexion por base de datos. Dentro de esa conexion puedes establecer tantos objetos recordset como quieras, incluyendo en cada instruccion SQL referencias a una tabla o a las tablas que quieras mediante inner join.

Ejemplo:

Set objConnection=Server.CreateObject("ADODB.Connectio n")
objConnection.Open "nombrebasedatosenODBC"

fraseSQL="SELECT ID_TEMA FROM SESIONES WHERE(ID_SESION='" & misesion & "');"
Set rssesion = Server.CreateObject("ADODB.Recordset")
Set rssesion=objConnection.Execute(fraseSQL)

'Tambien puedes hacer sobre la misma conexion otro select con inner join que asu vez no incluya registros de otro select (Not in (SELECT ....

fraseSQL="SELECT PREGUNTAS_SESION.*, PREGUNTAS.* "
fraseSQL=fraseSQL & "FROM PREGUNTAS_SESION INNER JOIN PREGUNTAS ON PREGUNTAS_SESION.COD_PREG = PREGUNTAS.COD_PREG "
fraseSQL=fraseSQL & "WHERE (((PREGUNTAS_SESION.USUARIO_PREG)<>" & usuario & ") AND ((PREGUNTAS_SESION.ID_SESION)='" & misesion & "') AND ((PREGUNTAS_SESION.ESTADO_PREG)=1) AND "
fraseSQL=fraseSQL & "((PREGUNTAS_SESION.COD_PREG) Not In (SELECT COD_PREGUNTA FROM RECHAZOS_ACIERTOS WHERE(RECHAZOS_ACIERTOS.ID_SESION='" & misesion & "' "
fraseSQL=fraseSQL & "AND COD_USUARIO=" & usuario & " AND RECHAZOS_ACIERTOS.TERMINADA=1))));"
Set rspreg = Server.CreateObject("ADODB.Recordset")
Set rspreg=objConnection.Execute(fraseSQL)

Salu2.