Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二进制照片列存储过程中出现的问题，请指教


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

主题：二进制照片列存储过程中出现的问题，请指教
帅哥哟，离线，有人找我吗？
zstk7333
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		二进制照片列存储过程中出现的问题，请指教  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zstk7333
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		回复：（kylin）CurrentTable这样用不合适，请直接用T...  发帖心情 Post By：2017/1/29 22:04:00 [显示全部帖子]

谢谢指教，试试

 回到顶部
帅哥哟，离线，有人找我吗？
zstk7333
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		回复：（kylin）CurrentTable这样用不合适，请直接用T...  发帖心情 Post By：2017/1/30 10:34:00 [显示全部帖子]

测试过了，还是会出现这个问题。

 回到顶部
帅哥哟，离线，有人找我吗？
zstk7333
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		回复：（ajie5211）把数据表保存，换成数据行保存命令...  发帖心情 Post By：2017/1/30 11:28:00 [显示全部帖子]

还是不行呢

 回到顶部
帅哥哟，离线，有人找我吗？
zstk7333
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		  发帖心情 Post By：2017/1/30 22:15:00 [显示全部帖子]

还是有提示

 回到顶部
帅哥哟，离线，有人找我吗？
zstk7333
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		回复：（黄训良）是SQL数据表 吗?  发帖心情 Post By：2017/2/1 13:40:00 [显示全部帖子]

是的，SQL 2008 r2

 回到顶部
帅哥哟，离线，有人找我吗？
zstk7333
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		回复：（有点色）With Tables("表A")  &nbs...  发帖心情 Post By：2017/2/2 22:21:00 [显示全部帖子]

已经试过，可以。
发现另外一个问题：
按照帮助文件”二进制简答示例“中

3、将订单表的CurrentChanged事件代码设置为：

If Forms("窗口1").Opened Then '如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")
    If Tables("员工").Current Is Nothing Then
        pbx.Image = Nothing
    Else
        pbx.Image = Tables("员工").Current.DataRow.SQlLoadImage("照片") '从后台提取照片并显示
    End If
End If


去做查看窗口，就会一直出现之前的提示窗口，这是为什么呢？谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
zstk7333
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：2960 威望：0 精华：0 注册：2011/5/3 20:21:00 		回复：（有点色）加上判断 If nr.DataRow.Ro...  发帖心情 Post By：2017/2/4 23:45:00 [显示全部帖子]

谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09766 秒, 5 次数据查询