Foxtable(狐表)用户栏目专家坐堂 → [求助]照片的调用及存储问题


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

主题:[求助]照片的调用及存储问题

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


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
[求助]照片的调用及存储问题  发帖心情 Post By:2016/1/10 14:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160109153210.png
图片点击可在新窗口打开查看

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:交通行政执法管理系统.foxdb

 

要求:从一个文件夹内调用一张照片并在PictureBox1中显示;

        点击[保存]控件后将照片以车牌号码加违章时间为文件名保存到另一个文件夹内;

        照片对应的数据库列是"wzzp"。

 

求大侠们这个代码和解决方法,跪求,谢谢大侠们


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/10 14:38:00 [只看该作者]

无法连接你的数据库,数据库上传上来。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/10 14:44:00 [只看该作者]

比如,直接写

 

e.form.controls("picturebox1").image.Save(projectPath & "test\" & dr("车牌") & dr(违章时间) & ".jpg")


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


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/10 14:53:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:backup.zip

 

 

sql2008版

 


 


 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/10 14:54:00 [只看该作者]

请介绍的具体一点,谢谢

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/10 14:55:00 [只看该作者]

就一句代码的事

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/10 15:04:00 [只看该作者]

无语,没有必要弄那么多数据源啊,弄一个就行啊。

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


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/10 15:08:00 [只看该作者]

谢谢,不好意思,请帮助一下下

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/10 15:18:00 [只看该作者]

Dim img = e.form.controls("picturebox1").image
If img IsNot Nothing Then
    Dim path As String = projectPath & e.Form.Controls("TextBox6").text & format(e.Form.Controls("DateTimePicker1").value, "yyyyMMddHHmmss") & ".jpg"
    img.Save(path)
    Tables("wztz").current("wzzp")=path
End If


 回到顶部