[求助图片保存到access数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有一个image控件，access数据中的照片字段设置为了超链接，

请教如何用sql语句把图片保存到access数据库，并在单击数据时，把图片再读取到控件中

保存照片语句：

dim zp as image

cmd.CommandText = "Insert Into 党员信息表 (党员编号,姓名,身份证号,性别,出生日期,民族,籍贯,现居住地,户口所在地派出所,联系电话,学历,毕业学校,电子邮箱,QQ号码,毕业时间,教育类别,参加工作时间,工作单位,党内职务,党内任职日期,申请入党时间,入学时间,预备党员时间,转正时间,入党介绍人,所属党组织,到当前单位时间,转出党组织名称,转出时间,工作岗位,转入党组织名称,转入时间,当前身份,档案所在单位,亡故时间,在册状态,党龄,备注,照片) values ('" & bh & "','" & xm & "','" & sfz & "','" & xb & "','" & csrq & "','" & mz & "','" & jg & "','" & xjzd & "','" & hkszd & "','" & dh & "','" & xl & "','" & byxx & "','" & dzyx & "','" & qq & "','" & bysj & "','" & jylb & "','" & cjgzsj & "','" & gzdw & "','" & dnzw & "','" & dnrzsj & "','" & sqrdsj & "','" & rxsj & "','" & ybdysj & "','" & zzsj & "','" & rdjsr & "','" & ssdzz & "','" & ddqdwsj & "','" & zcdzzmc & "','" & zcsj & "','" & gzgw & "','" & zrdzzmc & "','" & zrsj & "','" & dqsf & "','" & daszd & "','" & wgsj & "','" & zczt & "','" & dl & "','" & bz & "'，'" & zp & "')"

cmd.ExecuteNonQuery()

其他字段都能正常写入。只有照片字段不能

读取照片语句：

e.Form.Controls("zp").Image = GetImage(Tables("adddy_table1").Current("照片"))

不能显示

请教

如果照片是二进制列，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154713

如果照片值字符列，存储的是图片路径

把

dim zp as image

改为

dim zp as string = “图片路径，比如：c:\abc.jpg”

每一行对就一个图片，图片路径是写文件夹还是具体图片的位置

dim zp as image

改为

dim zp as string = “图片路径，比如：c:\abc.jpg” 管个是某一张图片的位置的嘛

Dim pbx As WinForm.PictureBox

pbx = Forms("image").Controls("PictureBox1")

'pbx = GetImage("D:\dygl\管理项目1\Attachmentsp\czr.jpg")

pbx.ImageFile = "D:\dygl\管理项目1\Attachmentsp\czr.jpg"

为什么这样写图片也不显示

说明路径不正确，不存在这个路径的图片

Dim pbx As WinForm.PictureBox

pbx = Forms("image").Controls("PictureBox1")

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "图片文件|*.jpg|图片文件|*.png"

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

pbx.ImageFile = "D:\dygl\管理项目1\Attachments\czr.jpg"

MessageBox.Show("你选择的是：" & dlg.FileName, "提示") '提示用户选择的文件

e.Form.Controls("label1").Text = dlg.FileName

pbx.Image = GetImage("dlg.FileName")

pbx.ImageFile = "dlg.FileName\*.jpg"

End If

如果把pbx.ImageFile = "D:\dygl\管理项目1\Attachments\czr.jpg"改成相对路径文件，在图片框中不显示，要如何修改

意思就是打开对话框，选择文件时，图片要显示

不要多此一举

pbx.Image = GetImage(dlg.FileName)

或者

pbx.ImageFile = dlg.FileName

Dim pbx As WinForm.PictureBox

pbx = Forms("image").Controls("PictureBox1")

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "图片文件|*.jpg|图片文件|*.png"

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

'pbx.Image = GetImage("dlg.FileName")

MessageBox.Show("你选择的是：" & dlg.FileName, "提示") '提示用户选择的文件

e.Form.Controls("label1").Text = dlg.FileName

pbx.Image = GetImage("dlg.FileName")

End If

此主题相关图片如下：屏幕截图 2023-08-29 103800.png

主题：[求助图片保存到access数据