Aplicacion error

27/03/2006 - 22:24 por jorge1644 | Informe spam
Hola

Intento hacer guardar los datos de una base de datos en la Memoria pero me
dá un error...

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos

Exactamente falla donde en la linea "Dim parametrosP(2)"
Alguien me puede decir que he de cambiar?

Gracias !


set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from Products")
rs.open ssqlrs,Connec,3,3
do while not rs.eof

parametrosP = rs("ProductCode")
Dim parametrosP(2)
parametrosP(0) = rs("ProductDescription")
parametrosP(1) = rs("PriceFrom5Units")
parametrosP(2) = rs("PriceFrom10Units")

Application.Lock
Application(rs("ProductCode")) = parametrosP
Application.UnLock

Apliparam = Application(rs("ProductCode"))

Response.write Apliparam(0) & "<br>"
Response.write Apliparam(1) & "<br>"
Response.write Apliparam(2) & "<br>"

rs.movenext
loop
rs.close

Preguntas similare

Leer las respuestas

#1 jorge1644
27/03/2006 - 23:38 | Informe spam
Hola Matias y gracias por tu ayuda!

Esta es la tabla Products
ProductCode ProductDescription PriceFrom1Units PriceFrom5Units PriceFrom10Units PriceFrom20Units
zanahoriapolvo Carrot Powder 1 0.99 0.95 .90
Z1016700 Sacarin 1.2 1.15 1.1 1.05

Este es el codigo completo

<%
Application.Contents.RemoveAll()
Server.ScriptTimeOut = 12000

set Connec = server.createobject("adodb.connection")
Connec.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA
SOURCE=C:\Inetpub\wwwroot\Webs\MyDataBase.mdb"

set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from Products")
rs.open ssqlrs,Connec,3,3
do while not rs.eof

parametrosP = rs("ProductCode")
Dim parametrosP(2)
parametrosP(0) = rs("ProductDescription")
parametrosP(1) = rs("PriceFrom5Units")
parametrosP(2) = rs("PriceFrom10Units")

Application.Lock
Application(rs("ProductCode")) = parametrosP
Application.UnLock

Apliparam = Application(rs("ProductCode"))

Response.write Apliparam(0) & "<br>"
Response.write Apliparam(1) & "<br>"
Response.write Apliparam(2) & "<br>"

rs.movenext
loop
rs.close
%>



"Matías Iacono" escribió:

Mostrar la cita
#2 Matías Iacono
28/03/2006 - 02:36 | Informe spam
Estas haciendo algo mas con ese vector?

La declaración parece correcta. Puede que el error este en otra parte.
Podrias colocar un poco mas de tu codigo?

Matías Iacono
Microsoft MVP ASP/ASP.net
DCE3 v.2003 - DCE2 v.2005
Coordinador de evento Comunidad MSDN Bolivia
"jorge1644" escribió en el mensaje
news:
Mostrar la cita
#3 German Saer
28/03/2006 - 04:59 | Informe spam
Estas definiendo la variable parametrosP como escalar primero...

parametrosP = rs("ProductCode")

...y luego la dimensionas:

Dim parametrosP(2)

Creo que esto es el error. parametrosP ya es un escalar y no puede ser
dimensionado como vector despues de haber sido definida.

Thanks,

_______________
German Saer
Orlando, FL 32810




"jorge1644" wrote in message
news:
Mostrar la cita
PriceFrom10Units PriceFrom20Units
Mostrar la cita
pero me
Mostrar la cita
#4 jorge1644
29/03/2006 - 23:16 | Informe spam
Hola German y Matias

Solucioné el problema

Les comentaba que me daba un error
Exactamente en la linea "Dim parametrosP(2)"

La verdad es que ya arregle el problema. EL fallo estaba ahi, exactamente en
el DIM. No es DIM, sino REDIM lo que hay que escribir.

Etsoy un poco sorprendido viendo sus conociemientos que no acertaran con lo
que habia que cambiar en el codigo (siendo tan sencillo)

Saludos







"German Saer" escribió:

Mostrar la cita
Ads by Google
Search Busqueda sugerida