Foxtable(狐表)用户栏目专家坐堂 → 如何判断数据库里面的二进制列是否为空


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

主题:如何判断数据库里面的二进制列是否为空

美女呀,离线,留言给我吧!
susu312
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
如何判断数据库里面的二进制列是否为空  发帖心情 Post By:2018/9/10 22:52:00 [显示全部帖子]

如图片photo为二进制列,如何判断库里面的照片是否为空?

 回到顶部
美女呀,离线,留言给我吧!
susu312
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/9/11 22:49:00 [显示全部帖子]

以下是引用有点蓝在2018/9/10 23:12:00的发言:
使用sqlcommand,有返回值就是空的

se
lect 1 from 表A where photo is  null and 编号='xxx'

''照片提取
Dim dr As DataRow = Tables("person").Current.DataRow
Dim fl As String =  " ApplicationPath "  &  dr("_Identify") &  ".JPG"  ''相对路径
'Dim fl As String =   "C:\Users\sujia\Documents\Foxtable项目\retireMg\Images\" &  dr("_Identify") &  ".JPG"
If dr.SQLLoadFile("photo",fl) Then  '如果提取文件成功
    Dim Proc As New Process  '打开文件
    Proc.File = fl
    ''照片存入
    If Tables("history").Current Is Nothing Then
         Return
    End  If
    Dim dr3 As DataRow =  Tables("history").Current.DataRow
    dr3.SQLInsertFile("photo",fl) '插入文件
    Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    pic.Image = GetImage(fl)
    'Proc.Start()
Else
    Messagebox.Show("照片提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End  If

 

可以用这个办法判断照片是否存在么,它和sqlcommend有啥区别


 回到顶部