程序員論壇

 找回密碼
 立即註冊
搜索
熱搜: 活動 交友 discuz
查看: 288|回復: 0

ASP如何查詢和更新Excel數據使用ADO

[複製鏈接]

8121

主題

1

好友

2萬

積分

版主

Rank: 7Rank: 7Rank: 7

發表於 2014-8-18 16:32:20 |顯示全部樓層
  1.       <!-- Begin ASP Source Code -->
  2.       <%@ LANGUAGE="VBSCRIPT" %>
  3.       <%
  4.               dim excelf
  5.               excelf = Server.MapPath("NewOrders.xls")
  6.         Set objConn = Server.CreateObject("ADODB.Connection")
  7.         'objConn.Open "ADOExcel"

  8.         'Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & excelf
  9.                    'objConn.Open Provider

  10.                    Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & excelf & ";Extended Properties=Excel 8.0;"
  11.                    objConn.Open Provider

  12.                    Set objRS = Server.CreateObject("ADODB.Recordset")
  13.         objRS.ActiveConnection = objConn
  14.         objRS.CursorType = 3                    'Static cursor.
  15.         objRS.LockType = 2                      'Pessimistic Lock.
  16.         'objRS.Source = "Select * from myRange1"
  17.         objRS.Source = "Select * from [Sheet1$]"
  18.         objRS.Open
  19.    %>
  20.    

  21.    <%
  22.       Response.Write("Original Data")

  23.       'Printing out original spreadsheet headings and values.

  24.       'Note that the first recordset does not have a "value" property
  25.       'just a "name" property.  This will spit out the column headings.

  26.       Response.Write("<TABLE><TR>")
  27.       For X = 0 To objRS.Fields.Count - 1
  28.          Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")
  29.       Next
  30.       Response.Write("</TR>")
  31.       objRS.MoveFirst

  32.       While Not objRS.EOF
  33.          Response.Write("<TR>")
  34.          For X = 0 To objRS.Fields.Count - 1
  35.             Response.write("<TD>" & objRS.Fields.Item(X).Value)
  36.          Next
  37.          objRS.MoveNext
  38.          Response.Write("</TR>")
  39.       Wend
  40.       Response.Write("</TABLE>")

  41.       'The update is made here

  42.       objRS.MoveFirst
  43.       objRS.Fields(0).Value = "change"
  44.       objRS.Fields(1).Value = "look"
  45.       objRS.Fields(2).Value = "30"
  46.       objRS.Update

  47.       'Printing out spreadsheet headings and values after update.

  48.       Response.Write("
  49. Data after the update")
  50.       Response.Write("<TABLE><TR>")
  51.       For X = 0 To objRS.Fields.Count - 1
  52.          Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")
  53.       Next
  54.       Response.Write("</TR>")
  55.       objRS.MoveFirst

  56.       While Not objRS.EOF
  57.          Response.Write("<TR>")
  58.          For X = 0 To objRS.Fields.Count - 1
  59.             Response.write("<TD>" & objRS.Fields.Item(X).Value)
  60.          Next
  61.          objRS.MoveNext
  62.          Response.Write("</TR>")
  63.       Wend
  64.       Response.Write("</TABLE>")

  65.       'ADO Object clean up.

  66.       objRS.Close
  67.       Set objRS = Nothing

  68.       objConn.Close
  69.       Set objConn = Nothing
  70.    %>
  71.    <!-- End ASP Source Code -->
複製代碼
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

程序員論壇

GMT+8, 2019-11-21 18:52 , Processed in 0.063817 second(s), 20 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回頂部
Pocket Money Easy