Do Until rs.EOF
If rs.Fields(0).Value = Item.Text Then
Exit Do
End If
rs.MoveNext
Loop
If rs.Fields(7).ActualSize = 0 Then
Image1.Picture = LoadPicture(App.Path & "\NotPic.jpg")
Else
Dim PicFile As String '聲明圖片路徑變量
Dim byt() As Byte '聲明二進制數組接收數據庫信息
Dim lngch As Long
PicFile = App.Path & "\BokPic\" & rs.Fields(0).Value & ".jpg"
'給該變量符值用圖書書號作文件名創建壹個圖片文件
ReDim byt(rs.Fields(7).ActualSize)
'ActualSize指示字段的值的實際長度
byt = rs.Fields(7).Value
'得到數據庫圖片信息
lngch = FreeFile '取得空閑的文件號
'將二進制數組byt符值給PicFile的文件
Open PicFile For Binary As #lngch
Put #lngch, , byt
Close #lngch
Image1.Picture = LoadPicture(PicFile)
End If
rs.Close
Set rs = Nothing
以前寫的SQL數據庫存圖片的程序,其中Image1為PictureBox控件。
SQL中存圖片表的字段類型應為image類型。
另外item應該是壹個文本框用來輸入圖片的文件名。
該程序的數據庫中以圖片的有存儲文件名及圖片的兩個字段,該程序的作用就是輸入圖片的文件名從數據庫中查找到該圖片,讀取並顯示。