请问怎么在ACCESS中加入图片，，怎么在VB中显示啊，，

[zhuang1982]

想显示一下人的照片，，怎么办啊，，用ACCESS

[wangintel]

有办法啊
用写文件的方法

[xinzhanwei]

这个我以前作过，现在忘了，好象是先把数据库的一个字段定义成能装图片的格式，只须加一个参数就行了，具体请看VB6数据库开发（清华出版社）

[76ersjy2]

王国容的书里好象讲过，或者用loadpicture

[ZHHUAI791015]

*******引用tangolibra(tango) *******
VB中用ADO控件可以：

先取得相应的纪录
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

要存入数据库的话，可以参考AppendChunk方法。


记住ole对象就是二进制。