先取得相应的纪录
Dim rs As Recordset
Dim sCmd As String
Set rs = New Recordset
sCmd = "select * from XXX where XX=" & XX)
rs.Open sCmd, CN, adOpenKeyset, adLockOptimistic, adCmdText
Set GetKitchenInfo = rs
然后用数组取出图片,假定字段是"Picture"
Private Function FillPicture(P_rs As Recordset)
'fill Pictures
On Error GoTo ErrHndl
Dim BinContent() As Byte
Dim FreeFlNm As Integer
Dim i As Integer
If P_rs.EOF Then
chkPicture.Value = vbUnchecked
cmdExport.Enabled = False
Exit Function
Else
chkPicture.Value = vbChecked
cmdExport.Enabled = True
End If
If IsNull(P_rs("Picture")) Then
chkPicture.Value = vbUnchecked
cmdExport.Enabled = False
Exit Function
End If
BinContent() = P_rs("Picture")
FreeFlNm = FreeFile()
Open App.Path & "\TMP.pic" For Binary As #FreeFlNm
Put #FreeFlNm, , BinContent()
Close #FreeFlNm
imgProduct.Tag = App.Path & "\TMP.pic"
imgProduct.Picture = LoadPicture(App.Path & "\TMP.pic")
imgProduct.Refresh
GoTo Done
ErrHndl:
MsgBox "无效图片格式", vbOKOnly, "无效图片"
chkPicture.Value = vbChecked
cmdExport.Enabled = True
Exit Function
Done:
End Function