Dúvida Excel X Asp

[Guest - Tiago Correa -]

Fala pessoal beleza ... então to querendo saber como faço pra inserir dados em uma planilha do excel ... pois estou desenvolvendo um programa e só pode ser salvo em uma planilha em vez de um banco de dados .... Tem como manipular uma planilha do excel com insert, delete e update ....

valeu

[cyberalexxx]

É possivel sim, olha aqui um exemplo explicando como fazer a conexão, como fazer uma leitura e um update

      <%@ LANGUAGE="VBSCRIPT" %>

      <%

        Set objConn = Server.CreateObject("ADODB.Connection")

        objConn.Open "ADOExcel"

        Set objRS = Server.CreateObject("ADODB.Recordset")

        objRS.ActiveConnection = objConn

        objRS.CursorType = 3                   

        objRS.LockType = 2     

        objRS.Source = "Select * from planilha"

        objRS.Open

  %>

  <br>

  <%

      Response.Write("Original Data")

      'Printing out original spreadsheet headings and values.

      'Note that the first recordset does not have a "value" property

      'just a "name" property.  This will spit out the column headings.

      Response.Write("<TABLE><TR>")

      For X = 0 To objRS.Fields.Count - 1

        Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")

      Next

      Response.Write("</TR>")

      objRS.MoveFirst

      While Not objRS.EOF

        Response.Write("<TR>")

        For X = 0 To objRS.Fields.Count - 1

            Response.write("<TD>" & objRS.Fields.Item(X).Value)

        Next

        objRS.MoveNext

        Response.Write("</TR>")

      Wend

      Response.Write("</TABLE>")

      'The update is made here

      objRS.MoveFirst

      objRS.Fields(0).Value = "change"

      objRS.Fields(1).Value = "look"

      objRS.Fields(2).Value = "30"

      objRS.Update

      'Printing out spreadsheet headings and values after update.

      Response.Write("<br>Data after the update")

      Response.Write("<TABLE><TR>")

      For X = 0 To objRS.Fields.Count - 1

        Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")

      Next

      Response.Write("</TR>")

      objRS.MoveFirst

      While Not objRS.EOF

        Response.Write("<TR>")

        For X = 0 To objRS.Fields.Count - 1

            Response.write("<TD>" & objRS.Fields.Item(X).Value)

        Next

        objRS.MoveNext

        Response.Write("</TR>")

      Wend

      Response.Write("</TABLE>")

      'ADO Object clean up.

      objRS.Close

      Set objRS = Nothing

      objConn.Close

      Set objConn = Nothing

  %>

[Guest - Tiago Correa -]

Então pessoal estou testando desta forma ... mas até agora não deu certo .... como pederia funcionar ... uma conexao com o excel ... xls .... da uma força ai galera !!!

<%

const caminho = "c:/flac/produtos.xls"

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "driver={microsoft excel driver (*.xls)dbq=" &caminho '"ADOExcel"

Set reprod = Server.CreateObject("ADODB.Recordset")

rsprod.open

'objRS.ActiveConnection = objConn

'objRS.CursorType = 3

'objRS.LockType = 2

'objRS.Source = "Select * from planilha"

'objRS.Open

%>

<%= rsprod.fields("referencia")%><br>

<%= rsprod.fields("codigo")%>

<%= rsprod.fields("produto")%>