快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

关于RECORDSET 持久性的一点点研究

使用记录集持久性,可以将 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) 格式保存。

挂起更改保存在持久文件中。因此,可以发布查询返回 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
返回类别: 教程
上一教程: ADO如何取得资料表栏位资讯(BIG5)
下一教程: 利用FSO取得BMP,JPG,PNG,GIF文件信息

您可以阅读与"关于RECORDSET 持久性的一点点研究"相关的教程:
· 关于INDEX SERVER+ASP建立查询引擎的一点心得
· 关于DROPDOWNLIST绑定数据的一点熟悉
· 关于BUILDDOC函数的一点改进,增强分页打印效果
· 关于在ASP中使用INCLUDE的一些问题
· 关于SESSION的一些技巧
    微笑服务 优质保证 索取样品