Error

Hola, recibo este error cuando intento leer un recordset (una consulta, en
access)

(0x80020009)
Exception occurred.

este es el fragmento de mi codigo:

' abre consulta con Totales
Set mdbconn = Server.CreateObject("ADODB.CONNECTION")
mdbconn.Open = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=C:\Projects\Symbol\Base.mdb"
Set rsaccess = Server.CreateObject("ADODB.Recordset")
'rsaccess.LockType = 3
sqlaccess = "select * from Pedido_Total where idNum= " &
Request.QueryString("Pedido_id")
rsaccess.Open sqlaccess, mdbconn


'pasas los valores de la access recordset a variables

Dim LastID
Dim v_fact_num
Dim LastID2
LastID = CCDLookup("max(Fact_Num)","Pedidos","",DBConnection3)
v_fact_num = LastID + 1
LastID2 = LastID + 1

v_status= Trim(rsaccess.fields("status")) ' en esta linea envia el error
v_co_cli= Trim(rsaccess.fields("co_cli"))
v_co_tran= Trim(rsaccess.fields("co_tran"))
v_forma_pag= Trim(rsaccess.fields("forma_pag"))
v_co_sucu= Trim(rsaccess.fields("co_sucu"))
v_fec_emis= Trim(rsaccess.fields("fec_emis"))
v_co_ven= Trim(rsaccess.fields("co_ven"))
v_feccom= Trim(rsaccess.fields("fec_emis"))

Generalmente, este error sucede cuando la base de datos ha sido leida
exclusivamente por otro usuario o por access mismo.

En primera instancia arroja un error de que la llave temporal es inaxesible
o algo parecido, o si no que la base de datos esta en modo de solo lectura.

Luego, el error que sigue, es el que muestras.

En los mejores de los casos, se soluciona con una reiniciada de ordenador,
para que todos los pemisos se liberen.

Por es es recomendable, que, cuando se trabaja con access no se coloque
dicha base de datos, dentro del directorio web.

Saludos,

Matias Iacono
Microsoft MVP



"Rookie" wrote in message
news:
> Hola, recibo este error cuando intento leer un recordset (una consulta, en
> access)
>
> (0x80020009)
> Exception occurred.
>
> este es el fragmento de mi codigo:
>
> ' abre consulta con Totales
> Set mdbconn = Server.CreateObject("ADODB.CONNECTION")
> mdbconn.Open = "DRIVER={Microsoft Access Driver
> (*.mdb)};DBQ=C:\Projects\Symbol\Base.mdb"
> Set rsaccess = Server.CreateObject("ADODB.Recordset")
> 'rsaccess.LockType = 3
> sqlaccess = "select * from Pedido_Total where idNum= " &
> Request.QueryString("Pedido_id")
> rsaccess.Open sqlaccess, mdbconn
>
>
> 'pasas los valores de la access recordset a variables
>
> Dim LastID
> Dim v_fact_num
> Dim LastID2
> LastID = CCDLookup("max(Fact_Num)","Pedidos","",DBConnection3)
> v_fact_num = LastID + 1
> LastID2 = LastID + 1
>
> v_status= Trim(rsaccess.fields("status")) ' en esta linea envia el error
> v_co_cli= Trim(rsaccess.fields("co_cli"))
> v_co_tran= Trim(rsaccess.fields("co_tran"))
> v_forma_pag= Trim(rsaccess.fields("forma_pag"))
> v_co_sucu= Trim(rsaccess.fields("co_sucu"))
> v_fec_emis= Trim(rsaccess.fields("fec_emis"))
> v_co_ven= Trim(rsaccess.fields("co_ven"))
> v_feccom= Trim(rsaccess.fields("fec_emis"))

Encontre la instruccion Server.MapPath pero no logro implementarla en mi
codigo... como lo hago?

"Matias Iacono" wrote:

> Generalmente, este error sucede cuando la base de datos ha sido leida
> exclusivamente por otro usuario o por access mismo.
>
> En primera instancia arroja un error de que la llave temporal es

> o algo parecido, o si no que la base de datos esta en modo de solo

>
> Luego, el error que sigue, es el que muestras.
>
> En los mejores de los casos, se soluciona con una reiniciada de

> para que todos los pemisos se liberen.
>
> Por es es recomendable, que, cuando se trabaja con access no se coloque
> dicha base de datos, dentro del directorio web.
>
> Saludos,
>
> Matias Iacono
> Microsoft MVP
>
>
>
> "Rookie" wrote in message
> news:
> > Hola, recibo este error cuando intento leer un recordset (una

> > access)
> >
> > (0x80020009)
> > Exception occurred.
> >
> > este es el fragmento de mi codigo:
> >
> > ' abre consulta con Totales
> > Set mdbconn = Server.CreateObject("ADODB.CONNECTION")
> > mdbconn.Open = "DRIVER={Microsoft Access Driver
> > (*.mdb)};DBQ=C:\Projects\Symbol\Base.mdb"
> > Set rsaccess = Server.CreateObject("ADODB.Recordset")
> > 'rsaccess.LockType = 3
> > sqlaccess = "select * from Pedido_Total where idNum= " &
> > Request.QueryString("Pedido_id")
> > rsaccess.Open sqlaccess, mdbconn
> >
> >
> > 'pasas los valores de la access recordset a variables
> >
> > Dim LastID
> > Dim v_fact_num
> > Dim LastID2
> > LastID = CCDLookup("max(Fact_Num)","Pedidos","",DBConnection3)
> > v_fact_num = LastID + 1
> > LastID2 = LastID + 1
> >
> > v_status= Trim(rsaccess.fields("status")) ' en esta linea envia el

> > v_co_cli= Trim(rsaccess.fields("co_cli"))
> > v_co_tran= Trim(rsaccess.fields("co_tran"))
> > v_forma_pag= Trim(rsaccess.fields("forma_pag"))
> > v_co_sucu= Trim(rsaccess.fields("co_sucu"))
> > v_fec_emis= Trim(rsaccess.fields("fec_emis"))
> > v_co_ven= Trim(rsaccess.fields("co_ven"))
> > v_feccom= Trim(rsaccess.fields("fec_emis"))
>
>
>