以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于二进制文件不太完善的地方  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57234)
--  作者：ifastudy
--  发布时间：2014/9/21 16:02:00
--  [求助]关于二进制文件不太完善的地方
以下代码可执行:
DataTables("会员信息").LoadFilter = "会员编号 = \'" & Vars("选择会员编号") & "\'"
DataTables("会员信息").Load
Dim dlg As New OpenFileDialog
    dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
    If dlg.ShowDialog = DialogResult.OK Then
        DataTables("会员信息").DataRows(0).SQLInsertFile("会员照片",dlg.FileName)
        Dim PbPhoto As WinForm.PictureBox = e.Form.Controls("PbPhoto")
        PbPhoto.Image = GetImage(dlg.FileName)
    End If

以下代码出错:
Dim drs As List(of DataRow)  = DataTables("会员信息").SQLSelect("会员编号 = \'" & Vars("选择会员编号") & "\'")
Dim dlg As New OpenFileDialog
    dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
    If dlg.ShowDialog = DialogResult.OK Then
        drs(0).SQLInsertFile("会员照片",dlg.FileName) \'插入文件
        Dim PbPhoto As WinForm.PictureBox = e.Form.Controls("PbPhoto")
        PbPhoto.Image = GetImage(dlg.FileName)
    End If

用SQLSelect得到的datarow无法使用SQLInsertFile
--  作者：有点甜
--  发布时间：2014/9/21 16:06:00
--  
 根本就没有这个方法SQLInsertFile，你哪里弄出来的？
--  作者：狐狸爸爸
--  发布时间：2014/9/21 16:14:00
--  
以下是引用有点甜在2014-9-21 16:06:00的发言：
 根本就没有这个方法SQLInsertFile，你哪里弄出来的？

 

嘿嘿，要与时俱进：

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=57224

 
--  作者：狐狸爸爸
--  发布时间：2014/9/21 16:15:00
--  
To 楼主: 下次搞定
--  作者：ifastudy
--  发布时间：2014/9/21 16:20:00
--  
cmd.CommandText = "select _identify,会员编号 from 会员信息 where 会员编号 = \'" & Vars("选择会员编号") & "\'"
dt = cmd.ExecuteReader
Dim PbPhoto As WinForm.PictureBox = e.Form.Controls("PbPhoto")
PbPhoto.Image = dt.DataRows(0).SQlLoadImage("会员照片")

这样也不行. 
会提示两次: 不存不名为""的datatable. 
--  作者：lsy
--  发布时间：2014/9/21 16:28:00
--  
估计还有几个回合，二进制就能完全搞定了。
--  作者：有点甜
--  发布时间：2014/9/21 16:40:00
--  

 测试了一下，确实不行，必须直接调用才行。现在使用的时候，必须有明确的表名。