儲存圖片問題

Question

我現在用image將圖片儲存在SQL裡。
可將儲存的圖片讀取到image裡時總是出錯。
請問大家有沒有好的方法給我。

Answer 1

图片——读取字节——存入sql——读取字节——生成图片文件

Answer 2

图片文件 => 读取字节 => 用二进制类型存入SQL数据集查询 => 捆绑数据集到PictureBox控件 => 将PictureBox的Picture赋值给Image的Picture

Answer 3

Const ChunkSize As Long = 100
Const BlockSize As Long = 100
Const TempFile As String = "tempfile.tmp" '定义临时文件Dim byteData() As Byte '定义数据块数组
Dim DiskFile As String '图像文件名
Dim NumBlocks As Long  '定义数据块个数
Dim FileLength As Long '标识文件长度
Dim LeftOver As Long   '定义剩余字节长度
Dim SourceFile As Long '定义自由文件号
Dim byteChunk() As Byte
Dim i As Long '定义循环变量Public Sub ShowImage(Image1 As Image, Adodc1 As Recordset) 'Adodc1我使用了ADO控件  Erase byteChunk()
  FieldSize = Adodc1.Fields("照片").ActualSize
  If FieldSize = 0 Then
  Exit Sub
  End If
  '提供一个尚未使用的文件号
  SourceFile = FreeFile
  '打开文件
  Open TempFile For Binary Access Write As SourceFile
  '计算数据块
  NumBlocks = FieldSize \ BlockSize
  LeftOver = FieldSize Mod BlockSize '得到剩余字节数
  '分块读取图像数据，并写入到文件中
  If LeftOver <> 0 Then
    ReDim byteChunk(LeftOver)
    byteChunk() = Adodc1.Fields("照片").GetChunk(LeftOver)
    Put SourceFile, , byteChunk()
  End If
  For i = 1 To NumBlocks
    ReDim byteChunk(BlockSize)
    byteChunk() = Adodc1.Fields("照片").GetChunk(BlockSize)
    Put SourceFile, , byteChunk()
  Next i
  Close SourceFile
  '将文件装入到Image1控件中
  Image1.Picture = LoadPicture(TempFile)
  '删除临时文件
  Kill (TempFile)
End SubPublic Sub SaveImage(ByVal ImageFile As String, Adodc1 As Recordset)
  
 ' If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then
  '  Exit Sub
  'End If
  If ImageFile = "" Then
    Adodc1.Fields("照片").AppendChunk ""
  Else
  '提供一个尚未使用的文件号
  SourceFile = FreeFile
  '打开文件
  Open ImageFile For Binary Access Read As SourceFile
  '得到文件长度
  FileLength = LOF(SourceFile)
  '判断文件是否存在
  If FileLength = 0 Then
    Close SourceFile
    MsgBox DiskFile & "无内容或不存在!"
  Else
    NumBlocks = FileLength \ BlockSize '得到数据块的个数
    LeftOver = FileLength Mod BlockSize '得到剩余字节数
    Adodc1.Fields("照片").Value = Null  '数据库的字段的值=空值
    ReDim byteData(BlockSize) '重新定义数据块的大小
    For i = 1 To NumBlocks
      Get SourceFile, , byteData() '读到内存块中
      Adodc1.Fields("照片").AppendChunk byteData()  '写入FLD
    Next i
    ReDim byteData(LeftOver) '重新定义数据块的大小
    Get SourceFile, , byteData() '读到内存块中
    Adodc1.Fields("照片").AppendChunk byteData()  '写入FLD
    Close SourceFile '关闭源文件
  End If
 End If
End Sub
Public Sub delImage(ByVal txtsql As String, Image1 As Image) '定义Image1为IMAGE控件
 Dim mrc As Recordset '以及ADO2.6对象
 Set mrc = ExecuteSQL(txtsql)
  mrc.Fields("照片").AppendChunk ""
  mrc.Update
  Image1.Picture = LoadPicture("")
  mrc.Close
  Set mrc = Nothing
End Sub