Foros del Web » Programando para Internet » ASP Clásico »

Consultas SQL "Anidadas"

Estas en el tema de Consultas SQL "Anidadas" en el foro de ASP Clásico en Foros del Web. Vereis, tengo un codigo, que, basicamente, es tal que asi: Do While Not MR.EOF or MR.BOF strSQL = "SELEC * FROM TABLA" sET MRG = ...
  #1 (permalink)  
Antiguo 18/05/2003, 05:14
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Consultas SQL "Anidadas"

Vereis, tengo un codigo, que, basicamente, es tal que asi:
Do While Not MR.EOF or MR.BOF
strSQL = "SELEC * FROM TABLA"
sET MRG = MyConn.Execute(strSQL)
MRG.Close
MR.MoveNext
Loo`p
MR.Close


Bien. Con las primeras sentencias muestro una serie de informafcion por la pantalla. Luego, ejecuto otra sentenica sql dentro de la primera, cogiendoparametros que me ha devuelto la sql1.

Sin embargo, cuando paso a un 2º registro de la primera, me da error....
No se si me he explicado... MMmmm.. mejor os pego todo el codigo para que lo veais bien...

Código:
strSQLSecc = "Select ID, CONTENIDO, SECC_JUEGO, TITULO FROM GAMES_INFO"
strSQLSecc = strSQLSecc & " WHERE ID_JUEGO =" & txtGameEsID 
strSQLSecc = strSQLSecc & " AND ID_SECCION=" &  txtGameSeccID

Do While NOT MyRecordSet.EOF

txtContenido = Myrecordset("CONTENIDO")
   txtTitulo = MyRecordset("TITULO")
   txtSubSecc = MyRecordset("ID")

response.write("<tr><td width=""465"" align=""left"">")
   response.write("<br><font class=""CABECERA"">")
   response.write(txtTitulo & "<br>")
   'response.write(aqui la linea separadora)
   response.write("</font>")
   response.write("<font class=""NORMAL"">")
    response.write(txtContenido)
   response.write("</font>")

' ** ¡¡ Aqui para sacar la Galeria de Imagenes !!

      strSQLGal = "SELECT ID FROM GAMES_IMAG WHERE ID_JUEGO="&txtGameEsID&" AND ID_SECC="&txtGameSeccID
      strSQLGal = strSQLGal &" AND ID_SUBSECC=" & txtSubSecc
response.write strSQLGal
       
          Set MRG = MyConn.Execute(strSQLGal)
                      Do While Not MRG.EOF or MR.BOF
              ' ** Coger los datos    
         MRG.MoveNext
            Loop
          MRG.Close
' ** ¡¡ Fin Galeria de Imagenes !! 

 response.write("</td></tr>")
' ** ¡¡ FIN DE LA IMPRESION DE CONTENIDOS ** 
     CuantosRegistros=CuantosRegistros+1 
 MyRecordset.MoveNext
  Loop 
   MyRecordset.Close
    response.write("</table>")
Me da un error en la linea de Set MRG=MyConn.Execute(strSQLGal) de: ADODB.Recordset error '800a0e78'

La operación solicitada por la aplicación no está permitida si el objeto está cerrado.

/amp_secc.asp, line 166

__________________
Tu portal de manga y anime.

Última edición por meru-kun; 18/05/2003 a las 05:22
  #2 (permalink)  
Antiguo 18/05/2003, 09:33
Avatar de nazkatuta  
Fecha de Ingreso: julio-2002
Ubicación: EH - BCN
Mensajes: 222
Antigüedad: 21 años, 10 meses
Puntos: 0
en el código no veo que abras la conexion MyConn por ningun lado.
__________________
Cita:
Gaur ere nahi nuke...
zure ondoan esnatu
  #3 (permalink)  
Antiguo 18/05/2003, 12:53
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
MyConn viene definida en un archivo inc_database... Y se esta usando durante todo el proceso...
__________________
Tu portal de manga y anime.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:20.