adodb.Stream对象用法一例

adodb.Stream对象用法一例
下面的示例使用名为 Test.txt 的名为 Test 的虚拟目录中的文档。

虚拟目录可以包含其他文件夹和文档。

在Visual Basic 中创建新的标准EXE。

默认情况下会创建一个名为 Form1 的窗体。

对 Microsoft ActiveX 数据对象库中设置的项目引用。

向 Form1 中添加两个命令按钮。

默认情况下创建 Command1 和Command2。

向 Form1 中添加一个文本框。

默认情况下会创建文本 1。

将文本1 的多行属性设置为True。

将文本 1 的滚动条属性设置为两个,在代码窗口中，粘贴以下代码在 Form1 的通用声明部分中：
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim rec As ADODB.Record
Set rec = New ADODB.Record
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
Text1.Text = ""
'You must use Serverside cursors with Internet Publishing provider
rs.CursorLocation = adUseServer
'Specify adCmdTableDirect when opening a document or folder
rs.Open "test.txt", "Provider=MSDAIPP.DSO;" & "Data Source=http://localhost/test", _
adOpenForwardOnly, adLockReadOnly, adCmdTableDirect 'Read the current row of the Recordset into a Record
rec.Open rs
Text1.Text = rec.Fields("RESOURCE_CONTENTCLASS").Value 'An ADO Stream may be Text or Binary
stm.Type = adTypeText
'You must specify a Character set to display text
stm.Charset = "ascii"
'Read the Record into the stream
stm.Open rec, adModeRead, adOpenStreamFromRecord
'Now, read the stream into the text box
'Use the Steam's ReadText method for text, Read for binary Text1.Text = Text1.Text & vbCrLf & stm.ReadText
stm.Close
Set stm = Nothing
rec.Close
Set rec = Nothing
rs.Close
Set rs = Nothing
End Sub
Private Sub Command2_Click()
Dim rec As ADODB.Record
Set rec = New ADODB.Record
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
Text1.Text = ""
'Alternate connection string.
'If the provider is specified, you cannot use the URL syntax. 'If URL syntax is used, MSDAIPP.DSO is assumed, and
' provider cannot be specified
rec.Open "test.txt", "URL=http://localhost/test", , ,
adCmdTableDirect
stm.Type = adTypeText
stm.Charset = "ascii"
stm.Open rec, adModeRead, adOpenStreamFromRecord
Text1.Text = stm.ReadText
stm.Close
Set stm = Nothing
rec.Close
Set rec = Nothing
End Sub。