CreateObject("adodb.stream")的问题

foodbed 2002-07-02 06:21:37

set stream=CreateObject("adodb.stream")
1.这个东东怎么清空和关闭
2.能不能把一个字符串转换成二进制形式存入这个“流”

...全文

132 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

tolimit 2002-07-04

打赏
举报

set =nothing

foodbed 2002-07-02

打赏
举报

writeText(str)
怎么用啊

silentlamb 2002-07-02

打赏
举报

清空？
flush??
关闭用close()
写入字符串用writeText(str)

MeXP 2002-07-02

打赏
举报

1.
stream.close
set stream=nothing
2.
Sub recFields(r As Record, l As ListBox, t As TextBox)
Dim f As Field
Dim s As Stream
Set s = New Stream
Dim str As String

For Each f In r.Fields
l.AddItem f.Name & ": " & f.Value
Next
t.Text = ""
If r!RESOURCE_CONTENTCLASS = "text/plain" Then
s.Open r, adModeRead, adOpenStreamFromRecord
str = s.ReadText(1)
s.Position = 0
If Asc(Mid(str, 1, 1)) = 63 Then '//63 = "?"
s.Charset = "ascii"
s.Type = adTypeText
End If
t.Text = s.ReadText(adReadAll)
End If
End Sub
这个例子不知是不是你要的？

wzy9645 2002-07-02