Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于二进制列


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

主题：关于二进制列
帅哥哟，离线，有人找我吗？
zhy400137
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		关于二进制列  发帖心情 Post By：2017/8/27 12:06:00 [只看该作者]

我在公司ERP里用分布式查询组合了一个库存表，里面有一列图片的二进制列，现在我想在窗口中放一个按钮，
将库存表查进窗口Table1里，然后点商品ID列，可以弹出图片，但现在查询是没有问题，但显示图片会出现
未将对象引用到……的错误，请教为什么？
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:08:00 [只看该作者]

Dim s As String = "Provider=SQLOLEDB.1;Password=369.;Persist Security Info=True;User ID=by;Initial Catalog=自动报表系统;Data Source=226.121.846.110"
If Connections.Contains("byfind") Then
    Connections.Delete("byfind")
End If
If Connections.TryConnect(s) = True Then
    Connections.Add("byfind",s)
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    cmd.C
    cmd.CommandText = "SE L ECT TOP 10 部门名称,地区名称,商品ID,库存数量,库存金额,商品编码,商品名称,条码,规格,产地,品牌,库存成本单价,成本价格段,商品大类,商品分类,五级分类,库龄,地区,自营与代销,零售价 FR OM 带零售价商品库存2017年"
    dt = cmd.ExecuteReader
    If dt.DataRows.Count>0 Then
        Tables("测试_Table1").DataSource = dt    
    Else
        MessageBox.show("无法获取数据,请手动输入","提示!")
    End If
    
Else
    MessageBox.show("无法连接数据源,请手动输入","提示!")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:09:00 [只看该作者]

查询按钮的代码，这个是可以顺利执行将表查询进来的

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


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:09:00 [只看该作者]

Dim dr As Row = Tables("测试_Table1").Current
If dr IsNot Nothing Then
    If Forms("图片").Opened Then '如果窗口已经打开
        Dim pbx As WinForm.PictureBox = Forms("图片").Controls("PictureBox1")
        If dr Is Nothing Then
            pbx.Image = Nothing
        Else
            Dim val As String
            val = dr.DataRow.SQLGetValue("商品图片")
               msgbox(Val)
            pbx.Image = dr.DataRow.SQlLoadImage("商品图片") '从后台提取照片并显示
        End If
    End If
End If

currentChanged 事件代码，就是执行这个会错了
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:10:00 [只看该作者]

doubleclick 代码
If e.Col.Name ="商品ID" Then
    e.Cancel=True
    Forms("图片").open
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:11:00 [只看该作者]

图片窗口 afterload 的代码
Tables("测试_Table1").RaiseCurrentChanged() '强行触发CurrentChanged事件
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:12:00 [只看该作者]

错误提示是：未将对象引用设置到对象的实例

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


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:16:00 [只看该作者]

对了那个库存表我是用视图的形式，是不是因为这个不能用.SQlLoadImage("商品图片") ，这个能处理吗？

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


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 12:23:00 [只看该作者]

           val = dr.DataRow.SQLGetValue("商品图片")
               msgbox(Val)
这句查询出来的是空值，但我看数据库里是有数据的OX开头的二进制数据
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/8/27 15:14:00 [只看该作者]

顶

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