以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这样写报错.  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103271)
--  作者：fox-man
--  发布时间：2017/7/4 14:57:00
--  这样写报错.

Dim qd As String
Dim dr As DataRow = DataTables("附件").SQLFind("编号 = \'001\' And CONVERT (VARCHAR (100),操作时间, 23 ) = \'2015-06-03 10:48:49\'")
qd = dr.SQLGetValue("附件内容")
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pbx.ImageFile =qd

这样写怎么读取不到附件表中的附件内容呢,空际上附件内容是有值的.
--  作者：有点甜
--  发布时间：2017/7/4 15:00:00
--  

1、直接获取 qd = dr("附件内容")

 

弹出来看看 msgbox(qd)

 

2、你附件内容存放的是什么值？

 
--  作者：fox-man
--  发布时间：2017/7/4 15:02:00
--  

附件内容存放的是网址链接.

 
--  作者：fox-man
--  发布时间：2017/7/4 15:05:00
--  

Dim qd As String
Dim dr As DataRow = DataTables("附件").SQLFind("编号 = \'001\' And CONVERT (VARCHAR (100),操作时间, 23 ) = \'2015-06-03 10:48:49\'")
qd = dr("附件内容")

 msgbox(qd)

还是报同样的错,未将对象引用设置到对象的实例。
--  作者：有点甜
--  发布时间：2017/7/4 15:09:00
--  

没有查找到对应的值，你的查询条件有问题

 

Dim dr As DataRow = DataTables("附件").SQLFind("编号 = \'001\' And CONVERT (VARCHAR (100),操作时间, 23 ) = \'2015-06-03 10:48:49\'")

 

http://www.w3school.com.cn/sql/func_convert.asp

 
--  作者：fox-man
--  发布时间：2017/7/4 15:16:00
--  

S elect CONVERT(varchar(100), GETDATE(), 20)   \' 2006-05-16 10:57:47
时间也没问题啊,数据库中存储的就是这样的时间格式.

 
--  作者：有点甜
--  发布时间：2017/7/4 15:27:00
--  

Dim qd As String
Dim dr As DataRow = DataTables("附件").SQLFind("编号 = \'001\' And CONVERT (VARCHAR (100),操作时间,20) = \'2015-06-03 10:48:49\'")

If dr IsNot Nothing Then
    qd = dr("附件内容")
    msgbox(qd)
    Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    pbx.ImageFile =qd
Else
    msgbox("没找到")
End If
--  作者：fox-man
--  发布时间：2017/7/4 15:29:00
--  
果然是没找到,确定是时间格式问题.已解决,谢谢!
[此贴子已经被作者于2017/7/4 15:34:04编辑过]