Update foglio excel tramite ASP

[optime]

come apri il foglio? (connessione e select)

[wegawhite]

Originariamente inviato da optime
come apri il foglio? (connessione e select)

Codice completo:

 <%@ 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 myRange1"
        objRS.Open
   %>
   

   <%
      Response.Write("Dati originali")

      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>")

      objRS.MoveFirst
      objRS.Fields(0).Value = "11"
      objRS.Fields(1).Value = "12"
      objRS.Fields(2).Value = "13"
      objRS.Update
      
      objRS.MoveNext
      objRS.Fields(0).Value = "14"
      objRS.Fields(1).Value = "15"
      objRS.Fields(2).Value = "16"
      objRS.Update
      
      objRS.MoveNext
      objRS.Fields(0).Value = "17"
      objRS.Fields(1).Value = "18"
      objRS.Fields(2).Value = "19"
      objRS.Update

      Response.Write("
Dati aggiornati")
      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>")

      objRS.Close
      Set objRS = Nothing

      objConn.Close
      Set objConn = Nothing
   %>

[optime]

dopo l'ultimo update, prova a chiudere e riaprire il file

[wegawhite]

Originariamente inviato da optime
dopo l'ultimo update, prova a chiudere e riaprire il file

Non ti capisco...

[optime]

rs.close

rs.open

[wegawhite]

OK, adesso funziona... tante grazie Optime !

[optime]

optime!