Recordset.asp

Recordset.asp

<%
Response.Buffer=true
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOleDb.1;Data Source=(local);User ID=sa;Password=;Initial Catalog=Pubs"
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")

'-----RecordSet 對象的方法-----
'遊標：adOpenForwordOnly:0 adOpenKeySet:1 adOpenDynamic:2 adOpenStatic:3
'0隻能一條條向前讀；1可以Move,MoveFirst,MoveLast；2和3可以實用所有功能(如RecordCount)。
'Lock：adLockReadOnly:1 adLockPessimistic:2 adLockOptimistic:3 adLockBatchOptimistic:4
'1隻讀，無法運行Update,AddNew,Delete等；2資料更新時鎖定，保持資料一致性；3可多使用者同步操作；4不用。
'Options：adCmdUnknow:-1 adCmdText:1 adCmdTable:2 adCmdStoredProc:3 (注意：Connection.Execute和Command.Execute裡面adCmdStoredProc:4)
rs.Open "SELECT * FROM authors",conn,1,2,1
'rs.Close
rs.MoveFirst
rs.MoveLast
rs.MoveNext
rs.MovePrevious
'Move(NumRecords,Start) Start取值：0預設，目前記錄；1以第一條記錄為準；2以最後一條為基準。
rs.Move 5,1
rs.Update
rs.CancelUpdate
'rs.AddNew
'rs.Delete
'rs.Requery
Set rs=rs.Clone
Dim arr
arr=rs.GetRows(5,,"au_id")
'-----RecordSet 對象屬性-----
rs.Close
rs.ActiveConnection=conn
'rs.Source=cmd 'RecordSet可以通過Source屬性來串連Command對象(Source可以是SQL命令，表，預存程序名)
rs.CursorType=1
rs.LockType=2
rs.Open
Response.Write("共有記錄" & rs.RecordCount & "條<p>")
Response.Write("遊標是否在開頭：" & rs.BOF & "<p>")
Response.Write("遊標是否在結尾：" & rs.EOF & "<p>")
rs.Move 5
rs.PageSize=5
Response.Write("頁面個數：" & rs.PageCount & "<p>")
Response.Write("當前遊標在Recordset對象中的絕對頁數：" & rs.AbsolutePage & "<p>")
Response.Write("當前遊標在Recordset對象中的記錄位置：" & rs.AbsolutePosition & "<p>")
'書籤實用執行個體，可以快速返回作了書籤的記錄
Dim book
book=rs.Bookmark
rs.Move 5
rs.Bookmark=book
rs.Filter="au_lname='Dull'"
rs.Filter=""
Response.Write("現在資料集狀態:" & rs.State) '1:Open 2:Closed
'rs.CacheSize=10

'-----測試語句-----
Dim i
Response.Write("<table><tr>")
For i=0 To rs.Fields.Count-1 
    Response.Write("<td>" & rs(i).Name & "</td>")
Next
Response.Write("</tr>")
Do While NOT rs.EOF 
    Response.Write("<tr>") 
    For i=0 To rs.Fields.Count-1 
        Response.Write("<td>" & rs(i) & "</td>") 
    Next 
    Response.Write("</tr>") 
    rs.MoveNext
Loop
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>