我曾做过一个存在SQL SERVER中的,给出关键的源代码你参考一下,主要是APPENDCHUNK这个函数,详细的东西你可以去看一下MSDN:
`连接数据库
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
Dim STRconn As String
STRconn = "PROVIDER=MSDASQL;driver={SQL Server};server=" & sn & ";uid=" & uid & ";pwd=" & pw & ";database=" & dbn & ";"
db.Open STRconn
Dim adoRSet As Recordset
Set adoRSet = New ADODB.Recordset
adoRSet.Open "ArchivesEquipment", db, adOpenKeyset, adLockOptimistic, adCmdTable
'将图片复制到大块变量
Dim DataFile As Integer, Chunks As Integer
Dim Fragment As Integer, chunk() As Byte, i As Integer
Const ChunkSize As Integer = 16384
DataFile = 1
Open StrFN For Binary Access Read Write As DataFile
lngLogoSize = LOF(DataFile)
If lngLogoSize = 0 Then Close DataFile: Exit Sub
Chunks = lngLogoSize \ ChunkSize
Fragment = lngLogoSize Mod ChunkSize - 1
adoRSet!图片.AppendChunk Null
ReDim chunk(Fragment)
Get DataFile, , chunk()
adoRSet!图片.AppendChunk chunk()
ReDim chunk(ChunkSize - 1)
For i = 1 To Chunks
Get DataFile, , chunk()
adoRSet!图片.AppendChunk chunk()
Next i
Close DataFile
adoRSet.Update
Dim cnn1 As ADODB.Connection
Dim rstPubInfo As ADODB.Recordset
Dim strCnn As String
Dim strPubID As String
Dim strPRInfo As String
Dim lngOffset As Long
Dim lngLogoSize As Long
Dim varLogo As Variant
Dim varChunk As Variant
Const conChunkSize = 100
' 打开连接
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn