Error 80004005

Asi como asi, no le veo nada.

Pero, porque, en vez de generar un tipo recordset, no ejecutas la consulta
directamente.

He visto muchos problemas con el objeto recordset, que se solucionan,
simplemente, no usandolos.

La cosa quedaria mas o menos asi:

> ' definición de la conexión
> Set conn = Server.CreateObject("ADODB.Connection") 'crear objeto para
> conexión
> conn.Mode = 3
> conn.provider="Microsoft.Jet.OLEDB.4.0" 'definir proveedor de
> conexión
> conn.Open (server.mappath("Aplicaciones.mdb")) 'abrir base de datos
> ...

> If Not IsNull(Request.QueryString("ID"))then
> strSQL = "SELECT Codigo, Tag, Descriptor " _
> & "FROM qryTagsDescriptor " _
> & "WHERE Codigo='" + Request.QueryString("ID") & "' " _
> & "ORDER BY Tag"
> response.Write(strSQL)
set rstTags = conn.execute(strSQL)

> End If


Saludos,


Matías Iacono
Microsoft MVP ASP/ASP.net - DCE3

Profile: http://aspnet2.com/mvp.ashx?MatiasIacono
"Emilio" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
news:
> Hola a ,
> ya sé que este es un error bastante común y he encontrado en google 267
> mensajes al respecto, pero creo que ninguno como el mío, así que me temo
> que
> es un error "comodin", lo que me ocurre es lo siguiente
>
> tengo una asp atacando a una base de datos, nada complicado, en

> funciona bien hasta que decido cambiar un recordset que trae dos campos

> una tabla, uno de ellos es el clave, al añadir un tercer campo

> de otra tabla, para lo cual llamo a una consulta en vez de a una tabla,
>
> mi código es el siguiente
>
> ...
> ' definición de la conexión
> Set conn = Server.CreateObject("ADODB.Connection") 'crear objeto para
> conexión
> conn.Mode = 3
> conn.provider="Microsoft.Jet.OLEDB.4.0" 'definir proveedor de
> conexión
> conn.Open (server.mappath("Aplicaciones.mdb")) 'abrir base de datos
> ...
> Set rstTags = Server.CreateObject("ADODB.Recordset")
> If Not IsNull(Request.QueryString("ID"))then
> strSQL = "SELECT Codigo, Tag, Descriptor " _
> & "FROM qryTagsDescriptor " _
> & "WHERE Codigo='" + Request.QueryString("ID") & "' " _
> & "ORDER BY Tag"
> response.Write(strSQL)
> rstTags.Open strSQL, conn
> End If
> ...
>
> desde el momento en que hago el cambio me produce el siguiente error
>
> SELECT Codigo, Tag, Descriptor FROM qryTagsDescriptor WHERE

> ORDER BY Tag error '80004005'
> Unspecified error
>
> /proyecto pi/basedatos/Aplicaciones/ayuda.asp, line 36
>
> y si lo deshago, vuelve a funcionar correctamente.
> Repito que mientras trabajaba contra una tabla, en vez de contra una
> consulta, todo iba bien, por supuesto la select es correcta y se ejecuta
> sin
> problemas en la base de datos.
>
> ¿Alguna idea para sacarme del atasco?
>
> Muchisimas gracias a
>
> Saludos
> Emilio
> miliuco56 ALGARROBA hotmail.com
> http://www.mvp-access.com/foro
> http://www.mvp-access.com/emilio
>
>
>

' definición de la conexión
Set conn = Server.CreateObject("ADODB.Connection") 'crear objeto para
conexión
conn.Mode = 3
conn.provider="Microsoft.Jet.OLEDB.4.0" 'definir proveedor de
conexión
conn.Open (server.mappath("Aplicaciones.mdb")) 'abrir base de datos
...

If Not IsNull(Request.QueryString("ID"))then
strSQL = "SELECT Codigo, Tag, Descriptor " _
& "FROM qryTagsDescriptor " _
& "WHERE Codigo='" + Request.QueryString("ID") & "' " _
& "ORDER BY Tag"
response.Write(strSQL)

End If

Hola a ,
ya sé que este es un error bastante común y he encontrado en google 267
mensajes al respecto, pero creo que ninguno como el mío, así que me temo
que
es un error "comodin", lo que me ocurre es lo siguiente

tengo una asp atacando a una base de datos, nada complicado, en principio
funciona bien hasta que decido cambiar un recordset que trae dos campos de
una tabla, uno de ellos es el clave, al añadir un tercer campo proveniente
de otra tabla, para lo cual llamo a una consulta en vez de a una tabla,

mi código es el siguiente

...
' definición de la conexión
Set conn = Server.CreateObject("ADODB.Connection") 'crear objeto para
conexión
conn.Mode = 3
conn.provider="Microsoft.Jet.OLEDB.4.0" 'definir proveedor de
conexión
conn.Open (server.mappath("Aplicaciones.mdb")) 'abrir base de datos
...
Set rstTags = Server.CreateObject("ADODB.Recordset")
If Not IsNull(Request.QueryString("ID"))then
strSQL = "SELECT Codigo, Tag, Descriptor " _
& "FROM qryTagsDescriptor " _
& "WHERE Codigo='" + Request.QueryString("ID") & "' " _
& "ORDER BY Tag"
response.Write(strSQL)
rstTags.Open strSQL, conn
End If
...

desde el momento en que hago el cambio me produce el siguiente error

SELECT Codigo, Tag, Descriptor FROM qryTagsDescriptor WHERE Codigo='FA075'
ORDER BY Tag error '80004005'
Unspecified error

/proyecto pi/basedatos/Aplicaciones/ayuda.asp, line 36

y si lo deshago, vuelve a funcionar correctamente.
Repito que mientras trabajaba contra una tabla, en vez de contra una
consulta, todo iba bien, por supuesto la select es correcta y se ejecuta
sin
problemas en la base de datos.

¿Alguna idea para sacarme del atasco?

Muchisimas gracias a

Saludos
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Gracias Matías

que no quiere, exactamente lo mismo de una manera que de otra, y si lo

contra la tabla en vez de contra la consulta, funciona bien, ¿tendré que
acabar combinando los datos en una tabla temporal?

Muchas gracias de nuevo

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"Matias Iacono" escribió en el mensaje
news:
> Asi como asi, no le veo nada.
>
> Pero, porque, en vez de generar un tipo recordset, no ejecutas la

> directamente.
>
> He visto muchos problemas con el objeto recordset, que se solucionan,
> simplemente, no usandolos.
>
> La cosa quedaria mas o menos asi:
>
> > ' definición de la conexión
> > Set conn = Server.CreateObject("ADODB.Connection") 'crear objeto

> > conexión
> > conn.Mode = 3
> > conn.provider="Microsoft.Jet.OLEDB.4.0" 'definir proveedor de
> > conexión
> > conn.Open (server.mappath("Aplicaciones.mdb")) 'abrir base de

> > ...
>
> > If Not IsNull(Request.QueryString("ID"))then
> > strSQL = "SELECT Codigo, Tag, Descriptor " _
> > & "FROM qryTagsDescriptor " _
> > & "WHERE Codigo='" + Request.QueryString("ID") & "' " _
> > & "ORDER BY Tag"
> > response.Write(strSQL)
> set rstTags = conn.execute(strSQL)
>
> > End If
>
>
> Saludos,
>
>
> Matías Iacono
> Microsoft MVP ASP/ASP.net - DCE3
>
> Profile: http://aspnet2.com/mvp.ashx?MatiasIacono
> "Emilio" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
> news:
> > Hola a ,
> > ya sé que este es un error bastante común y he encontrado en google

> > mensajes al respecto, pero creo que ninguno como el mío, así que me

> > que
> > es un error "comodin", lo que me ocurre es lo siguiente
> >
> > tengo una asp atacando a una base de datos, nada complicado, en
principio
> > funciona bien hasta que decido cambiar un recordset que trae dos

de
> > una tabla, uno de ellos es el clave, al añadir un tercer campo
proveniente
> > de otra tabla, para lo cual llamo a una consulta en vez de a una

> >
> > mi código es el siguiente
> >
> > ...
> > ' definición de la conexión
> > Set conn = Server.CreateObject("ADODB.Connection") 'crear objeto

> > conexión
> > conn.Mode = 3
> > conn.provider="Microsoft.Jet.OLEDB.4.0" 'definir proveedor de
> > conexión
> > conn.Open (server.mappath("Aplicaciones.mdb")) 'abrir base de

> > ...
> > Set rstTags = Server.CreateObject("ADODB.Recordset")
> > If Not IsNull(Request.QueryString("ID"))then
> > strSQL = "SELECT Codigo, Tag, Descriptor " _
> > & "FROM qryTagsDescriptor " _
> > & "WHERE Codigo='" + Request.QueryString("ID") & "' " _
> > & "ORDER BY Tag"
> > response.Write(strSQL)
> > rstTags.Open strSQL, conn
> > End If
> > ...
> >
> > desde el momento en que hago el cambio me produce el siguiente error
> >
> > SELECT Codigo, Tag, Descriptor FROM qryTagsDescriptor WHERE
Codigo='FA075'
> > ORDER BY Tag error '80004005'
> > Unspecified error
> >
> > /proyecto pi/basedatos/Aplicaciones/ayuda.asp, line 36
> >
> > y si lo deshago, vuelve a funcionar correctamente.
> > Repito que mientras trabajaba contra una tabla, en vez de contra una
> > consulta, todo iba bien, por supuesto la select es correcta y se

> > sin
> > problemas en la base de datos.
> >
> > ¿Alguna idea para sacarme del atasco?
> >
> > Muchisimas gracias a
> >
> > Saludos
> > Emilio
> > miliuco56 ALGARROBA hotmail.com
> > http://www.mvp-access.com/foro
> > http://www.mvp-access.com/emilio
> >
> >
> >
>
>