- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助图片保存到access数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187997)
-- 发布时间：2023/8/25 16:29:00
-- [求助图片保存到access数据
有一个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("照片"))
不能显示
请教
-- 发布时间：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”
-- 发布时间：2023/8/26 7:41:00
--
每一行对就一个图片，图片路径是写文件夹还是具体图片的位置
dim zp as image
改为
dim zp as string = “图片路径，比如：c:\\abc.jpg” 管个是某一张图片的位置的嘛
-- 发布时间：2023/8/26 8:08:00
--
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"
为什么这样写图片也不显示
-- 发布时间：2023/8/26 8:36:00
--
说明路径不正确，不存在这个路径的图片
-- 发布时间：2023/8/29 10:20:00
--
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"改成相对路径文件，在图片框中不显示，要如何修改 |
-- 发布时间：2023/8/29 10:21:00
--
意思就是打开对话框，选择文件时，图片要显示
-- 发布时间：2023/8/29 10:27:00
--
不要多此一举
pbx.Image = GetImage(dlg.FileName)
或者
pbx.ImageFile = dlg.FileName
-- 发布时间：2023/8/29 10:37:00
--
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/8/29 10:38:00
--
此主题相关图片如下：屏幕截图 2023-08-29 103800.png