'将图片写入数据库,首先将文件读入一字节数组 Dim bit() As Byte Open "C:\WINDOWS\安装程序.bmp" For Binary As #1 ReDim bit(LOF(1)) As Byte Get 1, 1, bit Close 1 '然后将字节数组的内容写入数据库即可 Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(local)" rst.Open "T1", cnn, adOpenKeyset, adLockOptimistic rst.AddNew rst("F1").AppendChunk bit rst.Update没问题的,加分啊:)
Dim bit() As Byte
Open "C:\WINDOWS\安装程序.bmp" For Binary As #1
ReDim bit(LOF(1)) As Byte
Get 1, 1, bit
Close 1
'然后将字节数组的内容写入数据库即可
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(local)"
rst.Open "T1", cnn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst("F1").AppendChunk bit
rst.Update没问题的,加分啊:)