Desde Excel a ASP

[ElAprendiz]

alguien sabe si se puede leer desde asp una hoja de excel para traspasar los datos a una bdd. ( o si no tendria que hacerlo a manopla )

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/elaprendiz.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-business--"></center>

[vic78]

Tus informacion de Excel la puedes pasar directamente a una Base de datos ya sea acces o SQl Server, solo tienes que importarla

Saludos

[ElAprendiz]

creo que no me entendiste victor, no quiero pasar la info directamente de excel a la bdd. sino que leer la info desde asp para, despues mediante codigo almancenarla en la BDD. espero haberme explicado.

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/elaprendiz.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-business--"></center>

[Yoston]

Hola..
Este script graba los datos de una database a una pag Microsoft Excel.


&lt;%@ Language=VBScript%&gt;
&lt;%
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Set RecSet = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Conn.Open &quot;DSN=Tu_DSN&quot;

RecSet.Open &quot;Select * From... &quot;, Conn
Response.ContentType = &quot;application/vnd.ms-excel&quot;
Response.Write &quot;&lt;table border=1&gt;&lt;tr bgcolor=cccccc&gt;&quot;
For x = 0 to RecSet.Fields.Count-1
Response.Write &quot;&lt;td&gt;&quot; &amp; RecSet.Fields(x).Name &amp; &quot; &lt;/td&gt;&quot;
Next
Response.Write &quot;&lt;/tr&gt;&quot;
While Not RecSet.EOF
Response.Write &quot;&lt;tr&gt;&quot;
For y = 0 to RecSet.Fields.Count-1
Response.Write &quot;&lt;td&gt;&quot; &amp; RecSet.Fields(y).Value &amp; &quot; &lt;/td&gt;&quot;
Next
Response.Write &quot;&lt;/tr&gt;&quot;
RecSet.MoveNext
Wend
Response.Write &quot;&lt;/table&gt;&quot;

RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
%&gt;

otra forma...

&lt;%@ Language=VBScript %&gt;
&lt;%
Set DB = Server.CreateObject(&quot;ADODB.Connection&quot;)
Set RS = Server.CreateObject(&quot;ADODB.Recordset&quot;)
DB.Open &quot;Tu_DSN&quot;
RS.Open &quot;select * from.. &quot;,DB
Response.ContentType = &quot;application/csv&quot;
Response.AddHeader &quot;Content-Disposition&quot;, &quot;filename=mydata.csv;&quot;
for i = 0 to RS.Fields.Count-1
if i = (RS.Fields.Count - 1) then
Response.Write RS.Fields(i).Name
else
Response.Write RS.Fields(i).Name &amp; &quot;,&quot;
end if
next
Response.write vbNewLine
Response.write vbNewLine
while not RS.EOF
for u=0 to RS.Fields.Count - 1
if u = (RS.Fields.Count - 1) then
Response.Write RS.Fields(u).Value
else
Response.Write RS.Fields(u).Value &amp; &quot;,&quot;
end if
next
response.write vbNewLine
rs.MoveNext
wend
Response.write vbNewLine
Response.write vbNewLine
Set RS = Nothing
Set DB = Nothing
%&gt;

Chausito...ojala te sirva de algo
:cantar:

[ElAprendiz]

genial Yoston, voy a probarlo y les cuento...

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/elaprendiz.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-business--"></center>