在窗体中加一个DAO,连接到一个ACCESS的数据库(存储图片的字段PIC用OLE数据类型) 加一个IMAGE控件,DATASOUCE设为DATA1,DATAFIELD设为PIC Private Sub Command1_Click() With Data1.Recordset.AddNew Image1.Picture = LoadPicture("c:\MYPIC.bmp")'文件的名称可以改变 Data1.Recordset.Update Data1.Refresh End Sub此处的关键就是一定要使用LOADPICTURE
加一个IMAGE控件,DATASOUCE设为DATA1,DATAFIELD设为PIC
Private Sub Command1_Click()
With Data1.Recordset.AddNew
Image1.Picture = LoadPicture("c:\MYPIC.bmp")'文件的名称可以改变
Data1.Recordset.Update
Data1.Refresh
End Sub此处的关键就是一定要使用LOADPICTURE