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

Mas problemas con registros

Estas en el tema de Mas problemas con registros en el foro de ASP Clásico en Foros del Web. Este es otro problema diferente al anterior. Tengo el siguiente código Set conex = Server.CreateObject("ADODB.Connection") Set reg = Server.CreateObject("ADODB.RecordSet") Set dat = Server.CreateObject("ADODB.RecordSet") conex.Open "entrar" ...
  #1 (permalink)  
Antiguo 19/02/2002, 07:50
 
Fecha de Ingreso: junio-2001
Mensajes: 38
Antigüedad: 23 años
Puntos: 0
Mas problemas con registros

Este es otro problema diferente al anterior. Tengo el siguiente código

Set conex = Server.CreateObject("ADODB.Connection")
Set reg = Server.CreateObject("ADODB.RecordSet")
Set dat = Server.CreateObject("ADODB.RecordSet")

conex.Open "entrar"
sql = "SELECT * FROM Tablero"

reg.open sql,conex,0,1

Do while NOT reg.Eof

if Not reg.Eof then
rgsql = "SELECT * from CENTRALES WHERE CENTRALES.Pieza='"& reg("Pieza") & "'"
dat.open rgsql,conex

else

end if

reg.movenext
loop


Y me da el siguiente error:
Error Type:
ADODB.Recordset (0x800A0E79)
Operation is not allowed when the object is open.

He probado a poner dos conexiones diferentes a la DB pero aun asi sigue dando el mismo problema.
Alguien sabe como resolverlo o dar alguna ideea ?

Muchas gracias
  #2 (permalink)  
Antiguo 19/02/2002, 08:31
Avatar de pramos  
Fecha de Ingreso: febrero-2002
Mensajes: 91
Antigüedad: 22 años, 4 meses
Puntos: 1
Re: Mas problemas con registros

Estás cometiendo un error en cuanto a la apertura del recordset.

Te muestro cómo lo haría yo:

set MiConexion=server.createobject("adodb.connect ion")
MiConexion.open("DSN=Mibase")
CadenaSQL="SELECT * FROM Centrales")

Set MiRecordset=MiConexion.execute(CadenaSQL)

MiRecordset.movefirst

...
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 21:37.