以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]照片的调用及存储问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79834)

--  作者:荟美绘姿
--  发布时间:2016/1/10 14:37:00
--  [求助]照片的调用及存储问题


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

 

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

 

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

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

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

 

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


--  作者:大红袍
--  发布时间:2016/1/10 14:38:00
--  
无法连接你的数据库,数据库上传上来。
--  作者:大红袍
--  发布时间:2016/1/10 14:44:00
--  

比如,直接写

 

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


--  作者:荟美绘姿
--  发布时间:2016/1/10 14:53:00
--  

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

 

 

sql2008版

 


 


--  作者:荟美绘姿
--  发布时间:2016/1/10 14:54:00
--  
请介绍的具体一点,谢谢
--  作者:大红袍
--  发布时间:2016/1/10 14:55:00
--  
就一句代码的事
--  作者:大红袍
--  发布时间:2016/1/10 15:04:00
--  
无语,没有必要弄那么多数据源啊,弄一个就行啊。
--  作者:荟美绘姿
--  发布时间:2016/1/10 15:08:00
--  
谢谢,不好意思,请帮助一下下
--  作者:大红袍
--  发布时间: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