VB6中ADO流对象实现对二进制大型对象的读取方法

ADO流对象的作用：ADO流对象实现了对大文本、各种模式的图相的方便的读存方法。

先进入VB6菜单：工程---引用 勾选：Microsoft ActiveX Data Objects Library 2.5 这个版本的ADO对象定义了ADO流对象

ADO流对象的使用范例：

1、 利用ADO流对象把图相存入与ADODC相连接的类型为Binary的字段的记录中

Dim myStream As New ADODB.Stream

myStream.Type = adTypeBinary

myStream.Open

CommonDialog1.FileName = ""

CommonDialog1.Filter = "Bmp(*.bmp)|*.bmp"

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

myStream.LoadFromFile CommonDialog1.FileName

Adodc2.Recordset.Fields("相片").Value = myStream.Read

Adodc2.Recordset.Update

End If

正文