Foxtable(狐表)用户栏目专家坐堂 → [求助图片保存到access数据


  共有3965人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
riyuan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
[求助图片保存到access数据  发帖心情 Post By: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("照片"))
不能显示
请教

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/8/26 7:41:00 [显示全部帖子]

每一行对就一个图片,图片路径是写文件夹还是具体图片的位置
dim zp as image
改为
dim zp as string = “图片路径,比如:c:\abc.jpg”  管个是某一张图片的位置的嘛

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By: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"
为什么这样写图片也不显示

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/8/29 10:21:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/8/29 10:38:00 [显示全部帖子]


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

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/8/29 10:39:00 [显示全部帖子]

运行结果 就是种
图片中不显示

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/8/29 10:43:00 [显示全部帖子]

谢谢,可以了

 回到顶部