安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access ADO2.5比ADO2.1新增的两个实用对象

2002-08-14 04:00:00
zhuyiwen-Office交流网
原创
1442
摘要:Access ADO2.5比ADO2.1新增的两个实用对象 ADO在Access中使用非常多,现在ADO的版本也从2.1?或到 2.5? 2.6? 2.8 那从ADO2.5开始,多了什么内容和功能呢?

Access ADO2.5比ADO2.1新增的两个实用对象

ADO在Access中使用非常多,现在ADO的版本也从2.1 或到 2.5  2.6  2.8

那从ADO2.5开始,多了什么内容和功能呢?


OFFICE 2000 安装的数据访?#39318;?#20214;为 ADO 2.1
OFFICE XP 安装的数据访?#39318;?#20214;为 ADO 2.5

ADO 2.5 比 ADO 2.1 新增的两个实用对象: Record 和 Stream

一、Records 代表记?#25216;?#25991;件或文件系统目录中的一行。使用 Record 对象的一个例子是连接到一个URL的绝对或相对路径,并用 Record 对象管理相对路径的文件或目录。 Record 对象中的字?#38382;?#25991;件或目录。下例演示了连接到一个URL并迭代相对于URL的每一个文件。

Sub OpenRecord()
   Dim Record As New ADODB.Record

   Call Record.Open("","URL=http://localhost/",,adOpenIfExists Or adCreateCollection)

   Dim Recordset As New ADODB.Recordset
   Set Recordset = Record.GetChildren

   While Not Recordset.EOF
      Debug.Print Recordset(0)
      Recordset.MoveNext
   Wend

End Sub

注:要求本机安装了IIS才能测试本例

二、Stream 与采用它们的大多数语言中的流类似。流是定义来管理二进制流的类的名称。 Record 对象管理文件系?#24120;?#27969;管理单个文件。下例演示了使用一个 Stream 对象在 Intranet 上读取文本文件。

Sub OpenStream()

   Dim Record As New ADODB.Record
   Call Record.Open("Text.txt","URL=http://localhost/Access/",,adModeRead)

   Dim Stream As New ADODB.Stream
   Call Stream.Open(Record, adModeRead, adOpenStreamFromRecord)

   Dim Text As String
   Stream.Charset = "ascii"
   Text = Stream.ReadText(adReadAll)

   Debug.Print

End Sub

注:要求本机安装了IIS才能测试本例,且在虚拟目录 Access 下存在 Text.txt 文件

即使OFFICE 2000没有这个组件,可下载 MDAC 2.5 或更高版本来升级数据访?#39318;?#20214;。


(ADO_RDO-相关文章技巧链接):
ADO 2.5 比 ADO 2.1 新增的两个实用对象
通用模块:读取图片文件并保存到OLE字段中
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.23
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假