VB把文件存入数据库IMAGE字段

3. VB把文件存入数据库IMAGE字段

Sub savepic(FileName As String, IndexNumber As Long)
   Dim DcnNWind As New ADODB.Connection
   Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
   DcnNWind.CursorLocation = adUseClient
   DcnNWind.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CUSTOM;Data Source=SERVER"
   rs.CursorType = adOpenKeyset
   rs.LockType = adLockOptimistic
   rs.Open "CustomInfo", DcnNWind, , adCmdTable
   rs.Move (IndexNumber)
   Call FileToBlob(rs.Fields("Image"), FileName, FileLen(FileName))
   rs.UpdateBatch adAffectCurrent
End Sub

Private Sub FileToBlob(fld As ADODB.Field, FileName As String, Optional ChunkSize As Long )
   Dim fnum As Integer, bytesLeft As Long, bytes As Long
   Dim tmp() As Byte