以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断数据库里面的二进制列是否为空  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124627)
--  作者：susu312
--  发布时间：2018/9/10 22:52:00
--  如何判断数据库里面的二进制列是否为空
如图片photo为二进制列，如何判断库里面的照片是否为空？
--  作者：有点蓝
--  发布时间：2018/9/10 23:12:00
--  
使用sqlcommand，有返回值就是空的

select 1 from 表A where photo is  null and 编号=\'xxx\'
--  作者：susu312
--  发布时间：2018/9/11 22:49:00
--  
以下是引用有点蓝在2018/9/10 23:12:00的发言：
使用sqlcommand，有返回值就是空的

select 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有啥区别
--  作者：有点蓝
--  发布时间：2018/9/11 23:03:00
--  
2楼只是判断是否为空，

3楼判断并获取二进制的内容