- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 二进制照片列存储过程中出现的问题，请指教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95653)
-- 发布时间：2017/1/29 10:39:00
-- 二进制照片列存储过程中出现的问题，请指教
目前可以实现批量导入照片，并以二进制的形式存储到SQL，但是每次导入照片都有如下提示，请老师指教，如何解决这个问题，谢谢！附代码
If Tables("表A").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("表A").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png;*.tif;*.dcm"
If dlg.ShowDialog = DialogResult.OK Then
For Each fl As String In dlg.FileNames
Tables("表A").AddNew()
Tables("表A").DataTable.Save()
CurrentTable.Current.DataRow.SQLInsertFile("文件",fl) \'插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(fl)
Dim s As String = FileSys.GetName(fl)
Dim parts() As String = s.split(".")
CurrentTable.Current("姓名") = parts(0)
CurrentTable.Current("序号") = Format(Date.Now,"yyyyMMddhhmmss") & "-" & CurrentTable.Rows.Count
Next
End If
将CurrentTable改为Tables("XXX") 也是会出现如下提示，请给予帮助，谢谢！！
此主题相关图片如下：无标题.jpg
[此贴子已经被作者于2017/1/30 10:32:42编辑过]
-- 发布时间：2017/1/29 15:57:00
--
CurrentTable这样用不合适，请直接用Tables("XXX")
-- 发布时间：2017/1/29 22:04:00
-- 回复：（kylin）CurrentTable这样用不合适，请直接用T...
谢谢指教，试试
-- 发布时间：2017/1/30 10:34:00
-- 回复：（kylin）CurrentTable这样用不合适，请直接用T...
测试过了，还是会出现这个问题。
-- 发布时间：2017/1/30 11:13:00
--
把数据表保存，换成数据行保存命令试一下。
-- 发布时间：2017/1/30 11:28:00
-- 回复：（ajie5211）把数据表保存，换成数据行保存命令...
还是不行呢
-- 发布时间：2017/1/30 21:07:00
--
Tables("表A").DataTable.Save()改为
Tables("表A").Current.Save()
-- 发布时间：2017/1/30 22:15:00
--
还是有提示
-- 发布时间：2017/1/30 23:44:00
--
是SQL数据表 吗?
-- 发布时间：2017/2/1 13:40:00
-- 回复：（黄训良）是SQL数据表 吗?
是的，SQL 2008 r2