专家坐堂-关于二进制列Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于二进制列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105835)

--  作者：zhy400137
--  发布时间：2017/8/27 12:06:00
--  关于二进制列
我在公司ERP里用分布式查询组合了一个库存表，里面有一列图片的二进制列，现在我想在窗口中放一个按钮，
将库存表查进窗口Table1里，然后点商品ID列，可以弹出图片，但现在查询是没有问题，但显示图片会出现
未将对象引用到……的错误，请教为什么？

--  作者：zhy400137
--  发布时间：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
--  发布时间：2017/8/27 12:09:00
--
查询按钮的代码，这个是可以顺利执行将表查询进来的

--  作者：zhy400137
--  发布时间：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
--  发布时间：2017/8/27 12:10:00
--
doubleclick 代码
If e.Col.Name ="商品ID" Then
e.Cancel=True
Forms("图片").open
End If

--  作者：zhy400137
--  发布时间：2017/8/27 12:11:00
--
图片窗口 afterload 的代码
Tables("测试_Table1").RaiseCurrentChanged() \'强行触发CurrentChanged事件

--  作者：zhy400137
--  发布时间：2017/8/27 12:12:00
--
错误提示是：未将对象引用设置到对象的实例

--  作者：zhy400137
--  发布时间：2017/8/27 12:16:00
--
对了那个库存表我是用视图的形式，是不是因为这个不能用.SQlLoadImage("商品图片") ，这个能处理吗？

--  作者：zhy400137
--  发布时间：2017/8/27 12:23:00
--

   val = dr.DataRow.SQLGetValue("商品图片")
msgbox(Val)
这句查询出来的是空值，但我看数据库里是有数据的OX开头的二进制数据

--  作者：zhy400137
--  发布时间：2017/8/27 15:14:00
--
顶