sql数据库中怎么存储图片呀

Question

有image类型的字段。
用appendchuck方式填加该字段。

Answer 1

这里有一个类似的程序码，你看看，应该有启发的，太忙，没有时间另外写例程，抱歉！'    Dim t() As Byte
'    Dim strSQL As String
'    Dim SourceFile As Long
'
'    SourceFile = FreeFile
'    Open ImageFile For Binary Access Read As SourceFile
'    Totalsize = FileLen(ImageFile)
'    Chunks = Totalsize \ ChunkSize
'    Remainder = Totalsize Mod ChunkSize
'    ReDim t(Remainder)
'    Get SourceFile, , t()
'    Offset = Remainder
'    ImageFld.AppendChunk t()
'    ReDim t(ChunkSize)
'    Do While Offset < Totalsize
'        Get SourceFile, , t()
'        Offset = Offset + ChunkSize
'      ImageFld.AppendChunk t()
'    Loop
'
'    Close SourceFile

Answer 2

vicon(排骨面）你好!老兄你很历害。
关于你发来的代码我看了一扁,仍有些地方不明白：这里有一个类似的程序码，你看看，应该有启发的，太忙，没有时间另外写例程，抱歉！'    Dim t() As Byte
'    Dim strSQL As String
'    Dim SourceFile As Long
'
'    SourceFile = FreeFile  （什么是freefile?)
'    Open ImageFile For Binary Access Read As SourceFile  (imagefile应该可以指定吧）
'    Totalsize = FileLen(ImageFile)
'    Chunks = Totalsize \ ChunkSize  （chunksize从哪里得到）
'    Remainder = Totalsize Mod ChunkSize
'    ReDim t(Remainder)
'    Get SourceFile, , t()
'    Offset = Remainder
'    ImageFld.AppendChunk t()
'    ReDim t(ChunkSize)
'    Do While Offset < Totalsize
'        Get SourceFile, , t()
'        Offset = Offset + ChunkSize
'      ImageFld.AppendChunk t()    （imageFld是什么？）
'    Loop
'
'    Close SourceFile因为有以上的问题所以我还是没有看懂,请问从哪里可以找到这方面的书籍或资料？

Answer 3

ImageFile是文件名字，chunksize是自己定义的大小，ImageFld是数据库对象的名字，但是如果你要显示出来，还需要把数据读出来，保存成一个临时文件。

Answer 4

以下是我写的：
表结构要求为 ID 文本  Picture  图像   Type  文本在ImagList中显示   strID 为ID号，imgSource为imgList名称,strTable为表格名
Sub ShowPicture(strID As String, imgSource As image, strTable As String)
    On Error Resume Next
    Dim i As Integer
    Dim intFile As Integer
    Dim Chunks As Integer
    Dim Fragment As Integer
    Dim lngTotalSize As Long
    Dim lngOffset As Long
    Dim lngTemp As Long
    Dim strTempFile As String
    Dim Chunk() As Byte
    Dim recPicture As ADODB.Recordset
    Dim ChunkSize As Integer
    lngTemp = 16384
    ChunkSize = 16384
    Set recPicture = rsOpen("Select Id,Picture,Type From " & strTable & " Where Id='" & Trim(strID) & "'")
    If recPicture.RecordCount = 0 Then
        Set imgSource.Picture = LoadPicture("")
    Else
        If Trim(recPicture.Fields("Type")) <> "" Then
            strTempFile = App.Path & "\$temp" & Format(Minute(Now), "00") & Format(Second(Now), "00") & Int(Left(Rnd * 10000, 2)) & "." & recPicture.Fields("Type")
        Else
            strTempFile = App.Path & "\$temp" & Format(Minute(Now), "00") & Format(Second(Now), "00") & Int(Left(Rnd * 10000, 2))
        End If
        intFile = FreeFile
        Open strTempFile For Binary Access Write As intFile
        If Err.Number = 70 Then
            MsgBox "系统在读取该产品的图片资料时出错，该产品的图片资料可能已被损坏！", vbOKOnly + vbInformation, gstrInfTitle
            Err.Clear
            recPicture.Close
            Set recPicture = Nothing
            Exit Sub
        End If
        lngTotalSize = recPicture.Fields("Picture").ActualSize
        Chunks = lngTotalSize \ ChunkSize
        Fragment = lngTotalSize Mod ChunkSize
        ReDim Chunk(ChunkSize)
        Chunk() = recPicture.Fields("Picture").GetChunk(lngTemp)
        Put intFile, , Chunk()
        lngOffset = lngOffset + ChunkSize
        Do While lngOffset < lngTotalSize
            Chunk() = recPicture.Fields("Picture").GetChunk(lngTemp)
            Put intFile, , Chunk()
            lngOffset = lngOffset + lngTemp
        Loop
        Close intFile
        Set imgSource.Picture = LoadPicture(strTempFile)
        Kill strTempFile
    End If
    If Err.Number = 481 Then
        MsgBox "该员工的相片资料出错！", vbOKOnly + vbInformation, gstrInfTitle
        Err.Clear
    End If
End Sub保存   strID 为ID号，strTable为表格名
Sub SavePicture(strID As String, strFileName As String, strTable)
    On Error Resume Next
    Dim i As Integer
    Dim lngFileLen As Long
    Dim intFile As Integer
    Dim Chunks As Integer
    Dim Fragment As Integer
    Dim Chunk() As Byte
    Dim recPicture As ADODB.Recordset
    Dim ChunkSize As Integer
    ChunkSize = 16384
    Set recPicture = rsOpen("Select Id,Picture,Type From " & strTable & " Where Id='" & Trim(strID) & "' Order By Id")
    If recPicture.RecordCount = 0 Then
        recPicture.AddNew
        recPicture.Fields("Id") = Trim(strID)
    End If
    If strFileName <> "" And Dir(strFileName) <> "" Then
        i = InStrRev(strFileName, ".")
        If i <> 0 Then
            recPicture.Fields("Type") = Mid(strFileName, i + 1)
        Else
            recPicture.Fields("Type") = ""
        End If
        intFile = FreeFile
        Open strFileName For Binary Access Read As intFile
        lngFileLen = LOF(intFile)    ' 文件中数据长度
        If lngFileLen = 0 Then
            Close intFile
            Exit Sub
        End If
        Chunks = lngFileLen \ ChunkSize
        Fragment = lngFileLen Mod ChunkSize
        ReDim Chunk(Fragment)
        Get intFile, , Chunk()
        recPicture.Fields("Picture").AppendChunk Chunk()
        ReDim Chunk(ChunkSize)
        For i = 1 To Chunks
            Get intFile, , Chunk()
            recPicture.Fields("Picture").AppendChunk Chunk()
        Next i
        Close intFile
        recPicture.Update
        Set recPicture = Nothing
    End If
End Sub导出
Function ExportPicture(strID As String, strTable As String, Optional strFileName As String) As Boolean
    On Error Resume Next
    Dim i As Integer
    Dim intFile As Integer
    Dim Chunks As Integer
    Dim Fragment As Integer
    Dim lngTotalSize As Long
    Dim lngOffset As Long
    Dim lngTemp As Long
    Dim strTempFile As String
    Dim Chunk() As Byte
    Dim recPicture As ADODB.Recordset
    Dim ChunkSize As Integer
    lngTemp = 16384
    ChunkSize = 16384
    Set recPicture = rsOpen("Select Id,Picture,Type From " & strTable & " Where Id='" & Trim(strID) & "'")
    If recPicture.RecordCount = 0 Then
        ExportPicture = False
        Exit Function
    Else
        If Trim(strFileName) = "" Then
            strFileName = App.Path & "\" & Trim(strID)
            strTempFile = strFileName
        End If
        If Trim(recPicture.Fields("Type")) <> "" Then
            strTempFile = strFileName & "." & recPicture.Fields("Type")
        Else
            strTempFile = strFileName
        End If
        intFile = FreeFile
        Open strTempFile For Binary Access Write As intFile
        If Err.Number = 70 Then
            MsgBox "系统在读取该产品的图片资料时出错，该产品的图片资料可能已被损坏！", vbOKOnly + vbInformation, gstrInfTitle
            Err.Clear
            recPicture.Close
            Set recPicture = Nothing
            Exit Function
        End If
        lngTotalSize = recPicture.Fields("Picture").ActualSize
        Chunks = lngTotalSize \ ChunkSize
        Fragment = lngTotalSize Mod ChunkSize
        ReDim Chunk(ChunkSize)
        Chunk() = recPicture.Fields("Picture").GetChunk(lngTemp)
        Put intFile, , Chunk()
        lngOffset = lngOffset + ChunkSize
        Do While lngOffset < lngTotalSize
            Chunk() = recPicture.Fields("Picture").GetChunk(lngTemp)
            Put intFile, , Chunk()
            lngOffset = lngOffset + lngTemp
        Loop
        Close intFile
        ShellExecute 0, "open", strTempFile, vbNullString, vbNullString, SW_SHOW
        If Err.Number = 0 Then
            ExportPicture = True
        Else
            MsgBox "产品图片信息导出不成功！" & vbCrLf & "错误信息:" & Err.Description, vbOKOnly + vbInformation, gstrInfTitle
            ExportPicture = False
        End If
    End If
End Function

Answer 5

不过建议你把以上几个过程（显示图片，保存图片，导出图片等）修改一下，修改成使用ADO的stream流对象来读取写入，那样的话会快一点，另外ADO的流对象也是处一如图片等二进制数据的发展方向。
另外里面的rsOpen函数定义如下，主要用来打开记录集,conOpen为定义的ADO的Connection连接。'///////打开记录集，strSql接受查询字符串，返加一个记录集////
Public Function rsOpen(strSql As String) As ADODB.Recordset
    Dim recTemp As ADODB.Recordset
    Set recTemp = New ADODB.Recordset
    recTemp.Open strSql, conOpen, adOpenKeyset, adLockPessimistic
    Set rsOpen = recTemp
End Function
'/////////////////////////结束//////////////////////////