- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]删除图片 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143635)
-- 发布时间：2019/11/30 8:17:00
-- [求助]删除图片
老师，下面代码是在二进制列添加图片。求，我要彻底删除图片（包括文件夹中的图片）谢谢老师了。
If Tables("通讯录").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("通讯录").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("照片",dlg.FileName) \'插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\\蓝峰\\Attachments\\个人证件\\证件照\\" & FileSys.GetName(dlg.fileName),True)
End If
[此贴子已经被作者于2019/11/30 8:17:49编辑过]
-- 发布时间：2019/11/30 8:42:00
--
参考：http://www.foxtable.com/webhelp/topics/2954.htm
-- 发布时间：2019/11/30 9:05:00
--
老师，我要同时删除文件夹中的图片。
If Tables("通讯录").Current IsNot Nothing Then
Tables("通讯录").Current.DataRow.SQLSetValue("照片",Nothing) \'从后台删除照片列内容
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = Nothing
End If
-- 发布时间：2019/11/30 9:14:00
--
你要有一个列保存文件名称，否则无法知道删除哪个文件
-- 发布时间：2019/11/30 10:08:00
--
老师，我在通讯录表加名为“图片存储”的列。下面的添加图片代码怎样修改。感谢老师。
If Tables("通讯录").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("通讯录").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("照片",dlg.FileName) \'插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\\蓝峰\\Attachments\\个人证件\\证件照\\" & FileSys.GetName(dlg.fileName),True)
End If
[此贴子已经被作者于2019/11/30 10:08:12编辑过]
-- 发布时间：2019/11/30 10:18:00
--
Tables("通讯录").Current(“图片存储) = 某某文件名
-- 发布时间：2019/11/30 11:10:00
--
老师，怎样获取某某文件名。
If Tables("通讯录").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("通讯录").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("个人电子信息_照片",dlg.FileName) \'插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\\蓝峰\\Attachments\\凭证管理\\个人证件图片\\证件照\\" & FileSys.GetName(dlg.fileName),True)
End If
-- 发布时间：2019/11/30 11:37:00
--
就扶你！
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("个人电子信息_照片",dlg.FileName) \'插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\\蓝峰\\Attachments\\凭证管理\\个人证件图片\\证件照\\" & FileSys.GetName(dlg.fileName),True)
Tables("通讯录").Current(“图片存储) = FileSys.GetName(dlg.fileName)
End If
-- 发布时间：2019/11/30 12:14:00
--
谢谢了，老师。
-- 发布时间：2019/11/30 12:32:00
--
老师好，扶我吧。感恩。
此主题相关图片如下：image 1.png