图形数据写入数据库 用FileStream对象读模式打开图形文件 Dim 文件对象 As New FileStream(图形文件名, FileMode.Open, FileAccess.Read) 定义字节类型的数组(大小为文件长度) Dim 数组() As Byte ReDim 数组(文件对象.Length ) 读文件到数组 文件对象.Read(数组, 0, 文件对象.Length) 文件对象.Close() 写入到数据源 数据集.Tables(数据表).Rows(记录号).Item(图形字段