以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助图片保存到access数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187997)

--  作者:riyuan
--  发布时间: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”

--  作者:riyuan
--  发布时间:2023/8/26 7:41:00
--  
每一行对就一个图片,图片路径是写文件夹还是具体图片的位置
dim zp as image
改为
dim zp as string = “图片路径,比如:c:\\abc.jpg”  管个是某一张图片的位置的嘛

--  作者:riyuan
--  发布时间: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
--  
说明路径不正确,不存在这个路径的图片
--  作者:riyuan
--  发布时间: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"改成相对路径文件,在图片框中不显示,要如何修改


--  作者:riyuan
--  发布时间:2023/8/29 10:21:00
--  
意思就是打开对话框,选择文件时,图片要显示
--  作者:有点蓝
--  发布时间:2023/8/29 10:27:00
--  
不要多此一举

pbx.Image = GetImage(dlg.FileName)

或者 
pbx.ImageFile = dlg.FileName

--  作者:riyuan
--  发布时间: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

--  作者:riyuan
--  发布时间:2023/8/29 10:38:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-08-29 103800.png
图片点击可在新窗口打开查看