Aplicacion error

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ó:

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:
> 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

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:

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

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:

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ó:

> 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:
> > 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
>
>
>

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ó:

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:
> 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ó:
>
> > 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:
> > > 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
> >
> >
> >