程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> Access數據庫入門 >> 在Access中使用“存儲過程”(二)

在Access中使用“存儲過程”(二)

編輯:Access數據庫入門

  使用存儲過程

  然後我們可以在 ASP 程序中調用這些存儲過程了。

  這裡可以看到為什麼我說 Access 中的查詢就是它的存儲過程——我們的 Command 對象的 CommandType 屬性設置的是 4,即 Stored Proc!

  so...

  以下的代碼很簡單:

  代碼:
  --------------------------------------------------------------------------------
  
<%
  Option Explicit

  Dim s
  Randomize
  s = Rnd * 100

  Dim conn, cmd
  Set conn = Server.CreateObject("ADODB.Connection")
  Set cmd = Server.CreateObject("ADODB.Command")

  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("sp.mdb")

  With cmd
  .ActiveConnection = conn
  .CommandType = &H0004 '存儲過程
  .CommandText = "AddNewData"
  End With

  cmd.Execute , Array(CStr(Now()), CSng(s))

  With cmd
  .ActiveConnection = conn
  .CommandType = &H0004 '存儲過程
  .CommandText = "GetData"
  End With

  Dim resultRS, resultArray
  Set resultRS = cmd.Execute(, Null)

  If Not resultRS.EOF Then
  resultArray = resultRS.GetRows()
End If

  Set resultRS = Nothing
  Set cmd = Nothing
  conn.Close
  Set conn = Nothing

  Response.Write "<ul>"
  Dim i
  For i = 0 To UBound(resultArray, 2)
  Response.Write "<li>" & resultArray(0, i)
  Response.Write " " & resultArray(1, i)
  Response.Write " " & resultArray(2, i)
  Response.Write "</li>"
  Next
  Response.Write "</ul>"
  %>

  --------------------------------------------------------------------------------

  運行結果。

  感覺起來,速度似乎很快,呵呵~

  不知道這樣在 Access 中使用存儲過程的意義大不大,不過確實很好玩

  ASP 正在沒落,不過我仍然很喜歡它的小快靈~

  聯系作者:[email protected] 或者 [email protected]

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved