图形数据写入数据库，Filletream

图形数据写入数据库

用FileStream对象读模式打开图形文件

Dim 文件对象 As New FileStream(图形文件名, FileMode.Open, FileAccess.Read)

 定义字节类型的数组(大小为文件长度)

Dim 数组() As Byte

ReDim 数组(文件对象.Length )

 读文件到数组

文件对象.Read(数组, 0, 文件对象.Length)

文件对象.Close()

 写入到数据源

数据集.Tables(数据表).Rows(记录号).Item(图形字段名) =数组