關於Recordset 持久性的一點點研究

來源:互聯網
上載者:User

使用記錄集持久性,可以將 Recordset 資料和中繼資料儲存為檔案。隨後,使用持久檔案來重建立立 Recordset 對象。持久檔案可以儲存在本地磁碟機、網路伺服器上或者作為 URL 儲存在 Web 網站上。

另外,GetString 方法將 Recordset 對象轉換成表單,在表單中列和行使用指定的字元分界。

今天看資料時發現了這個東東,不知道以前有人使用過沒,剛隨便寫了2個小例子,可以將資料記錄集作為檔案(ADTG)儲存在硬碟上,使用的時候可以直接開啟檔案進行記錄操作,這樣就可以把一些常用的記錄集儲存起來,使用的時候就不用煩瑣的開啟資料庫,查詢表,可以直接開啟資料圖表檔案,豈不是省事多了,沒有做更多的測試和研究,寫出來讓大家都來看看。互相學習學習。

:建立資料檢視檔案.RsSave.asp
<%
Dim DBPATH
Dim Conn,Rs
DBPATH = Server.MapPath( "Test.mdb" )
Set Conn = New ConnEx  ‘ConnEx是一個自己寫的類,集合了一些對資料庫操作的方法,以前發過的
Conn.DBpath = DBPATH
Conn.Init()
Set Rs = Conn.GetRsBySql( "Select * from admin" )  '返回記錄集
Rs.Save Server.MapPath(".")&"\yourFile.adtg", adPersistADTG  '建立資料檢視在目前的目錄,不過建立的時候最好先判斷一下檔案是否存在,否則會報錯的.~_~
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>

:使用資料試視圖檔案 RsOpen.asp
<%
Dim DBPATH
Dim Rs
Set Rs = Server.CreateObject( "Adodb.RecordSet" )
Rs.Open Server.MapPath(".")&"\yourFile.adtg" ', adPersistADTG ’開啟資料檢視檔案,詳細說明見附錄
'Rs.MoveNext
Response.Write( Rs(1) ) '這裡使用就和使用普通的記錄集一樣方便(不完全測試,希望有人能完全測試一下,謝了),HOHO,方便吧
Rs.Close
Set Rs = Nothing
%>


詳細資料

Microsoft OLE DB Persistence Provider 支援使用 Recordset 對象 Save 方法將 Recordset 對象儲存在檔案中。隨後,使用 Recordset 對象的 Open、或 Connection 對象的 Execute 方法可恢複持久檔案。

Recordset 對象被轉換為能被儲存在檔案中的表單。Recordset 對象可以按所擁有的進階資料圖表 (ADTG) 格式儲存,或者按開啟的可延伸標記語言 (XML) (XML) 格式儲存。

掛起更改儲存在持久檔案中。因此,發行就緒查詢返回 Recordset 對象、編輯記錄集、儲存該記錄集和掛起變化、以後恢複該記錄集、然後使用儲存的掛起變化更新資料來源。

用法

儲存記錄集:

Dim rs as New ADODB.Recordset
rs.Save "c:\yourFile.adtg", adPersistADTG

使用 Recordset.Open 開啟持久檔案:

dim rs as New ADODB.Recordset
rs.Open "c:\yourFile.adtg", "Provider=MSPersist",,,adCmdFile

可選地,如果 Recordset 沒有活動的串連,則都可以接受所有的預設值和簡單的代碼:

dim rs as New ADODB.Recordset
rs.Open "c:\yourFile.adtg"

使用 Connection.Execute 開啟持久檔案:

dim conn as New ADODB.Connection
dim rs as New ADODB.Recordset
conn.Open "Provider=MSPersist"
set rs = conn.execute("c:\yourFile.adtg")

使用 RDS.DataControl 開啟持久檔案:

在這種情況下,沒有設定 Server 屬性。

Dim dc as New RDS.DataControl
dc.Connection = "Provider=MSPersist"
dc.SQL = "c:\yourFile.adtg"
dc.Refresh



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。