Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

abrir 2 recordsets de 2 tablas distintas

27/09/2004 - 16:22 por nacho | Informe spam
Ayuda Hacer una pregunta
Hola amigos, necesito abrir 2 recordset de 2 tablas distintas en la misma
pagina.
Lo que se me ocurrió, que no sé si esta bien esto:

idrubro = trim(request("idrubro"))

set rsproductos = server.CreateObject("adodb.recordset")
rsproductos.activeconnection = conexion
csql = "SELECT * FROM productos WHERE rubro = '"&idrubro&"'"
rsproductos.open csql

set rsrubro = server.CreateObject("adodb.recordset")
rsrubro.activeconnection = conexion
csql2 = "SELECT * FROM rubros WHERE idrubro = '"&idrubro&"'"
rsrubro.open csql2

No anda ni para atrás, me tira el siguiente mensaje:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'conexion'
/cosas/lista-productos-rubros-proceso.asp, línea 6

A qie se puede deber?
gracias
nacho
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Sashka
27/09/2004 - 16:46 | Informe spam
Es que le dices
rsproductos.activeconnection = conexion
Y no pareces declararla no abrirla nunca...

Prueba algo así:

strProvider = cadena de conexion...
Set conexion= Server.CreateObject("ADODB.Connection")
Set rsproductos = Server.CreateObject("ADODB.Recordset")
Set rsrubro = Server.CreateObject("ADODB.Recordset")
conexion.Open strProvider
csql= "SELECT * FROM productos WHERE rubro = '"&idrubro&"'"
rsproductos.Open csql, conexion, 3,1
csql2 = "SELECT * FROM rubros WHERE idrubro = '"&idrubro&"'"
rsrubro.open csql2, conexion, 3,1


Sashka
MS MVP Access
MCP ASP.Net

"nacho" escribió en el mensaje
news:
Hola amigos, necesito abrir 2 recordset de 2 tablas distintas en la misma
pagina.
Lo que se me ocurrió, que no sé si esta bien esto:

idrubro = trim(request("idrubro"))

set rsproductos = server.CreateObject("adodb.recordset")
rsproductos.activeconnection = conexion
csql = "SELECT * FROM productos WHERE rubro = '"&idrubro&"'"
rsproductos.open csql

set rsrubro = server.CreateObject("adodb.recordset")
rsrubro.activeconnection = conexion
csql2 = "SELECT * FROM rubros WHERE idrubro = '"&idrubro&"'"
rsrubro.open csql2

No anda ni para atrás, me tira el siguiente mensaje:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'conexion'
/cosas/lista-productos-rubros-proceso.asp, línea 6

A qie se puede deber?
gracias
nacho



Preguntas similares

 

Busqueda sugerida :