Application OK Application(0) Falla

29/03/2006 - 23:33 por jorge1644 | Informe spam
Por favor si alguien me puede decir que he de cambiar en el codigo siguiente
se lo agradeceré de verdad. Se el Problema, pero no le encuentro solucion, ni
explicacion (A tener en cuenta que soy un aficionado)

Tal y como está el codigo aqui y la base de datos
http://www.geocities.com/jorge1644/MyDataBase.mdb FUNCIONA. Pero si cambio el
codigo de producto en la tabla Products (Por ejemplo Product_A a
Product_ABCD) ya no funciona.

Aqui esta el codigo:
<%
Application.Contents.RemoveAll()
Server.ScriptTimeOut = 12000

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

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

Application.Lock
Application(""&rs("ProductCode")&""&"DescripcionLineaEntera") =
rs("ProductDescription") & " - " & rs("PriceFrom1Units")& " - " &
rs("PriceFrom5Units") & Chr(13)
Application.Unlock

Redim parametros(4)
parametros(0) = rs("ProductDescription")
parametros(1) = rs("PriceFrom1Units")
parametros(2) = rs("PriceFrom5Units")
parametros(3) = rs("PriceFrom10Units")
parametros(4) = rs("PriceFrom20Units")

Application.Lock
Application(""&rs("ProductCode")&"") = parametros
Application.UnLock

rs.movenext
loop
rs.close
%>

<table border=1>
<%
set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from ProductsByCustomers order by CustomerCode")
rs.open ssqlrs,Connec,3,3
do while not rs.eof
%>
<tr>
<td><%=rs("CustomerCode")%></td>
<td><%=rs("ProductCode")%></td>
<td><% Response.write
Application(rs("ProductCode")&"DescripcionLineaEntera") %></td>
<td><% Response.write Application(""&rs("ProductCode")&"")(0) %></td>
</tr>
<%
rs.movenext
loop
rs.close
Connec.Close
Set RS = Nothing
Set Connec = Nothing
%>
</table>

Preguntas similare

Leer las respuestas

#1 Matías Iacono
30/03/2006 - 18:07 | Informe spam
Sería bueno que dijeras donde se genera el error.

Cambiando que cosa, y donde.

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:
Por favor si alguien me puede decir que he de cambiar en el codigo
siguiente
se lo agradeceré de verdad. Se el Problema, pero no le encuentro solucion,
ni
explicacion (A tener en cuenta que soy un aficionado)

Tal y como está el codigo aqui y la base de datos
http://www.geocities.com/jorge1644/MyDataBase.mdb FUNCIONA. Pero si cambio
el
codigo de producto en la tabla Products (Por ejemplo Product_A a
Product_ABCD) ya no funciona.

Aqui esta el codigo:
<%
Application.Contents.RemoveAll()
Server.ScriptTimeOut = 12000

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

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

Application.Lock
Application(""&rs("ProductCode")&""&"DescripcionLineaEntera") > rs("ProductDescription") & " - " & rs("PriceFrom1Units")& " - " &
rs("PriceFrom5Units") & Chr(13)
Application.Unlock

Redim parametros(4)
parametros(0) = rs("ProductDescription")
parametros(1) = rs("PriceFrom1Units")
parametros(2) = rs("PriceFrom5Units")
parametros(3) = rs("PriceFrom10Units")
parametros(4) = rs("PriceFrom20Units")

Application.Lock
Application(""&rs("ProductCode")&"") = parametros
Application.UnLock

rs.movenext
loop
rs.close
%>

<table border=1>
<%
set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from ProductsByCustomers order by CustomerCode")
rs.open ssqlrs,Connec,3,3
do while not rs.eof
%>
<tr>
<td><%=rs("CustomerCode")%></td>
<td><%=rs("ProductCode")%></td>
<td><% Response.write
Application(rs("ProductCode")&"DescripcionLineaEntera") %></td>
<td><% Response.write Application(""&rs("ProductCode")&"")(0) %></td>
</tr>
<%
rs.movenext
loop
rs.close
Connec.Close
Set RS = Nothing
Set Connec = Nothing
%>
</table>
Respuesta Responder a este mensaje
#2 Jorge1644
30/03/2006 - 18:53 | Informe spam
El error se genera en exactamente en la linea
Response.write Application(""&rs("ProductCode")&"")(0)
Si es que no existe dicha aplicacion.

En otras palabras si te bajas la base de datos
http://www.geocities.com/jorge1644/MyDataBase.mdb y la copias en C:\
ejecutas el codigo que hay en esta pagina abajo. FUNCIONA

Si en la tabla Products (Por ejemplo Product_A a Product_ABCD) NO FUNCIONA.





"Matías Iacono" escribió:

Sería bueno que dijeras donde se genera el error.

Cambiando que cosa, y donde.

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:
> Por favor si alguien me puede decir que he de cambiar en el codigo
> siguiente
> se lo agradeceré de verdad. Se el Problema, pero no le encuentro solucion,
> ni
> explicacion (A tener en cuenta que soy un aficionado)
>
> Tal y como está el codigo aqui y la base de datos
> http://www.geocities.com/jorge1644/MyDataBase.mdb FUNCIONA. Pero si cambio
> el
> codigo de producto en la tabla Products (Por ejemplo Product_A a
> Product_ABCD) ya no funciona.
>
> Aqui esta el codigo:
> <%
> Application.Contents.RemoveAll()
> Server.ScriptTimeOut = 12000
>
> set Connec = server.createobject("adodb.connection")
> Connec.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA
> SOURCE=C:\MyDataBase.mdb"
>
> set rs = server.createobject("adodb.recordset")
> ssqlrs = ("select * from Products")
> rs.open ssqlrs,Connec,3,3
> do while not rs.eof
>
> Application.Lock
> Application(""&rs("ProductCode")&""&"DescripcionLineaEntera") > > rs("ProductDescription") & " - " & rs("PriceFrom1Units")& " - " &
> rs("PriceFrom5Units") & Chr(13)
> Application.Unlock
>
> Redim parametros(4)
> parametros(0) = rs("ProductDescription")
> parametros(1) = rs("PriceFrom1Units")
> parametros(2) = rs("PriceFrom5Units")
> parametros(3) = rs("PriceFrom10Units")
> parametros(4) = rs("PriceFrom20Units")
>
> Application.Lock
> Application(""&rs("ProductCode")&"") = parametros
> Application.UnLock
>
> rs.movenext
> loop
> rs.close
> %>
>
> <table border=1>
> <%
> set rs = server.createobject("adodb.recordset")
> ssqlrs = ("select * from ProductsByCustomers order by CustomerCode")
> rs.open ssqlrs,Connec,3,3
> do while not rs.eof
> %>
> <tr>
> <td><%=rs("CustomerCode")%></td>
> <td><%=rs("ProductCode")%></td>
> <td><% Response.write
> Application(rs("ProductCode")&"DescripcionLineaEntera") %></td>
> <td><% Response.write Application(""&rs("ProductCode")&"")(0) %></td>
> </tr>
> <%
> rs.movenext
> loop
> rs.close
> Connec.Close
> Set RS = Nothing
> Set Connec = Nothing
> %>
> </table>



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida