[浏览完整版]
标题：[求助图片保存到access数据
1楼
riyuan 发表于：2023/8/25 16:29:00有一个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("照片"))
不能显示
请教
2楼
有点蓝 发表于：2023/8/25 16:38:00如果照片是二进制列，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154713
如果照片值字符列，存储的是图片路径
把
dim zp as image
改为
dim zp as string = “图片路径，比如：c:\abc.jpg”
3楼
riyuan 发表于：2023/8/26 7:41:00每一行对就一个图片，图片路径是写文件夹还是具体图片的位置
dim zp as image
改为
dim zp as string = “图片路径，比如：c:\abc.jpg” 管个是某一张图片的位置的嘛
4楼
riyuan 发表于：2023/8/26 8:08:00Dim 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"
为什么这样写图片也不显示
5楼
有点蓝 发表于：2023/8/26 8:36:00说明路径不正确，不存在这个路径的图片
6楼
riyuan 发表于：2023/8/29 10:20:00Dim 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"改成相对路径文件，在图片框中不显示，要如何修改 |
7楼
riyuan 发表于：2023/8/29 10:21:00意思就是打开对话框，选择文件时，图片要显示
8楼
有点蓝 发表于：2023/8/29 10:27:00不要多此一举
pbx.Image = GetImage(dlg.FileName)
pbx.Image = GetImage(dlg.FileName)
或者
pbx.ImageFile = dlg.FileName
9楼
riyuan 发表于：2023/8/29 10:37:00Dim 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
10楼
riyuan 发表于：2023/8/29 10:38:00
此主题相关图片如下：屏幕截图 2023-08-29 103800.png