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>
 

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>

Preguntas similares