vb 查询数据库 显示图片

来源：百度知道 编辑：UC知道 时间：2024/05/24 07:44:30
数据库中XX表中有如下字段：Name、Num、time、pic等字段
查询Name字段，显示后面所有信息，包括图片。一直不能正确显示，希望大家帮帮忙。。我用image控件显示XX表中pic字段。pic是以二进制保存的。

rivate Sub 查询_Click()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from XX where Name like '" & Text1.Text & "'"
Adodc1.Refresh

If Not Adodc1.Recordset.EOF Then
Label1.Caption = Adodc1.Recordset.Fields("Name")
Label2.Caption = Adodc1.Recordset.Fields("Num")
Label3.Caption = Adodc1.Recordset.Fields("time")

End If
End Sub
其他信息显示完整，怎么让图片一起出来呢？
请根据我的代码补充下。。。请注明代码的含义。谢谢
如有QQ请留下QQ,我想了解得更细致点.希望各位老师帮助!
在线等~~~~~~~~~！！！！！

rivate Sub 查询_Click()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from XX where Name like '" & Text1.Text & "'"
Adodc1.Refresh

If Not Adodc1.Recordset.EOF Then
Label1.Caption = Adodc1.Recordset.Fields("Name")
Label2.Caption = Adodc1.Recordset.Fields("Num")
Label3.Caption = Adodc1.Recordset.Fields("time")
Image1.Picture = LoadPicture(App.Path & "/" & Adodc1.Recordset.Fields("pic"))//很简单啊！就这样。
End If
End Sub