使用图片框绑定或ole绑定存储,也可以先转化为文件在存储,由于windows的磁盘缓冲实际的速度还可以。

解决方案 »

  1.   

    '将图片写入数据库,首先将文件读入一字节数组
        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没问题的,加分啊:)