Forums Últimos mensajes - Powered by IBM
 

tema sin respuesta

27/03/2006 - 23:31 por jorge1644 | Informe spam
Re-envio ... (cualquier ayuda es de agradecer)

Hola a todos...

Me gustaria saber como puedo encontrar un valor habiendolo almacenado con el
metodo GetRows.

Se como buscar un valor en una tabla Access pero no como buscarlo en GetRows

O como Buscarlo en la Cache.

Aqui esta la base de datos.
http://www.geocities.com/jorge1644/MyDataBase.mdb

Y aqui el codigo de mi pagina ASP. GRACIAS POR TU AYUDA !

<%
Dim MyArray, Connec, RS, i
set Connec = server.createobject("adodb.connection")

Connec.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA
SOURCE=C:\Inetpub\wwwroot\MyDataBase.mdb"

SQL = "select * from Products"
Set RS = Connec.Execute(SQL)
MyArray=RS.GetRows
RS.Close
For i=0 to UBound(MyArray,2)
Response.Write "First Column = " & MyArray(0,i) & "<br>"
Response.Write "Second Column = " & MyArray(1,i) & "<br>"
Response.Write "Third Column = " & MyArray(2,i) & "<br>"
Response.Write "Fourth Column = " & MyArray(3,i) & "<br>"
Response.Write "Fiveth Column = " & MyArray(4,i) & "<p>"
Next
%>
<table border=1>
<tr>
<td>Cutomer/Cliente</td>
<td>Product/Producto</td>
<td>Third Column </td>
<td>Fourth Column </td>
<td>Fiveth Column </td>
</tr>
<%
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><font color="#FF0000">¿Como hago para mostrar aquí el valor Third
Column para este cliente y producto?</font></td>
<td> </td>
<td> </td>
</tr>
<%
rs.movenext
loop
rs.close
Connec.Close
Set RS = Nothing
Set Connec = Nothing
%>
</table>
 

Leer las respuestas

#1 Dani Castillo
28/03/2006 - 21:27 | Informe spam
no tienes metodo directo que yo sepa, de todas formas getrows te devuelve un
vector (bueno una matriz) es solo cuestion de barrer la matriz con un bucle
for que recorra todos los valores (lbound to ubound)

suerte

"jorge1644" escribió en el mensaje
news:
Re-envio ... (cualquier ayuda es de agradecer)

Hola a todos...

Me gustaria saber como puedo encontrar un valor habiendolo almacenado con
el
metodo GetRows.

Se como buscar un valor en una tabla Access pero no como buscarlo en
GetRows

O como Buscarlo en la Cache.

Aqui esta la base de datos.
http://www.geocities.com/jorge1644/MyDataBase.mdb

Y aqui el codigo de mi pagina ASP. GRACIAS POR TU AYUDA !

<%
Dim MyArray, Connec, RS, i
set Connec = server.createobject("adodb.connection")

Connec.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA
SOURCE=C:\Inetpub\wwwroot\MyDataBase.mdb"

SQL = "select * from Products"
Set RS = Connec.Execute(SQL)
MyArray=RS.GetRows
RS.Close
For i=0 to UBound(MyArray,2)
Response.Write "First Column = " & MyArray(0,i) & "<br>"
Response.Write "Second Column = " & MyArray(1,i) & "<br>"
Response.Write "Third Column = " & MyArray(2,i) & "<br>"
Response.Write "Fourth Column = " & MyArray(3,i) & "<br>"
Response.Write "Fiveth Column = " & MyArray(4,i) & "<p>"
Next
%>
<table border=1>
<tr>
<td>Cutomer/Cliente</td>
<td>Product/Producto</td>
<td>Third Column </td>
<td>Fourth Column </td>
<td>Fiveth Column </td>
</tr>
<%
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><font color="#FF0000">¿Como hago para mostrar aquí el valor Third
Column para este cliente y producto?</font></td>
<td> </td>
<td> </td>
</tr>
<%
rs.movenext
loop
rs.close
Connec.Close
Set RS = Nothing
Set Connec = Nothing
%>
</table>


Preguntas similares