office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access ADO2.5比ADO2.1新增的兩個實用對象

2002-08-14 04:00:00
zhuyiwen-Office交流網
原創
1991
摘要: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 安裝的數據訪問組件為 ADO 2.1
OFFICE XP 安裝的數據訪問組件為 ADO 2.5

ADO 2.5 比 ADO 2.1 新增的兩個實用對象: Record 和 Stream

一、Records 代表記錄集、文件或文件系統目錄中的一行。使用 Record 對象的一個例子是連接到一個URL的絕對或相對路徑,并用 Record 對象管理相對路徑的文件或目錄。 Record 對象中的字段是文件或目錄。下例演示了連接到一個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 對象管理文件系統,流管理單個文件。下例演示了使用一個 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 或更高版本來升級數據訪問組件。


(ADO_RDO-相關文章技巧鏈接):
ADO 2.5 比 ADO 2.1 新增的兩個實用對象
通用模塊:讀取圖片文件并保存到OLE字段中
分享
北京十一选五基本走势