Question

各位大哥！怎样把图片用“相对路径”存在access里，在From界面上显示图片？？（超级急）！

我想用Acess做一个简单的[个人基本信息查询系统]，因为个人信息里有‘照片’一项，所以我在把图片信息存进Access里和显示在From界面上时遇到了困难！不知道用什么方式把图片存进去，在怎么把Access里的图片（或者图片的路径）显示在From界面上！ 哪位大哥！！希望您能伸出援助之手！帮帮小弟！ 我学习用Access编程时间不长！麻烦尽量说的具体一点，最好有代码或者例子~！ 感激不尽！感激不尽！！

Answer 1

运行VB，新建一个工程。本程序采用ADO控件和动态链接库访问数据库，需要加入ADO的运行库，单击"工程\引用"菜单，出现引用对话框，选择Microsoft ActiveX Data Objects2.0 Library并确定。 添加一个Form，四个Label控件，两个TextBox控件，一个PictureBox控件，一个ADODC控件，三个CommandButton控件，一个CommandDialog控件，如果ADODC和CommandDialog控件没有出现在工具框上，请单击菜单"工程\部件"。点"控件"选项卡，在其中选中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0两项按"确定"按钮。 下面是以上各个控件的一些属性： Form1.MaxButton=False Label1.Caption=姓名： Label2.Caption=编号： Label3.Name= ResName Label3.BackColor= ＆H80000009＆ Label3.BorderStyle=1－Fixed Single Label3.DataField=姓名 Label3.DataSource= AdoCtr Label4.Name= ResNumb Label4.BackColor= ＆H80000009＆ Label4.BorderStyle=1－Fixed Single Label4.DataField=编号 Label4.DataSource= AdoCtr Text1.Name= Names Text2.Name= Numb CommonDialog1.Name= CDlg Adodc1.Name=AdoCtr CommonButton1.Name=PreView CommonButton1.Caption=预览 CommonButton2.Name=Save CommonButton2.Caption=保存 CommonButton3.Name= Update CommonButton3.Caption=更新 PictureBox1.Name= PicBox PictureBox1.AutoSize=False PictureBox1.AutoRedraw=False PictureBox1.DataField=照片 PictureBox1.DataSource=AdpCtr 下面是程序代码： ′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll) Dim Constr As String ′ODBC路径 Dim FileName As String ′图片文件名 Const BLOCKSIZE = 4096 ′每次读写块的大小 Dim ADOCon As New ADODB.Connection ′ADODB Connection对象 Dim ADORst As New ADODB.Recordset ′ADODB Recordset 对象 Dim ADOFld As ADODB.Field ′ADODB Field 对象 －－－－－－－－－－－－－－－－－－－－－－－－ Private Sub SaveToDB(ByRef Fld As ADODB.Field，DiskFile As String) Dim byteData() As Byte ′定义数据块数组 Dim NumBlocks As Long ′定义数据块个数 Dim FileLength As Long ′标识文件长度 Dim LeftOver As Long′定义剩余字节长度 Dim SourceFile As Long ′定义自由文件号 Dim i As Long ′定义循环变量 SourceFile = FreeFile ′提供一个尚未使用的文件号 Open DiskFile For Binary Access 查看原帖>>