VB和SQL连接,要求系统时间和库中的表的一个日期段相差的天数?

Question

VB和SQL 已经连接.
窗体上已经建立了个ADO控件 名为adodc.在数据库表reader中有一个字段(jysj) 是记录日期的.jysj字段是date数据类型
我想查询ID为1000 的记录中的 字段(jysj) 距离当前系统日期相隔的天数.
结果显示在当前窗体上.
寻求代码

Answer 1

dim Days as long rs.open "Select jysj From reader Where ID = 1000",cn,3,1Do While Not rs.Eof
   Days = DataDiff("d",Now,rs.fields("jysj")) 
   debug.print Days
   rs.MoveNext
Loop

Answer 2

我还没用过RE.OPEN 这个语句!!   谁给个这个语句的格式 和说明~  ~
还有DATEDiff()函数的各个参数的意思.
先谢谢你~~  我自己在慢慢的理解.

Answer 3

我用  
 dim days as long
 adodc.redordsource="select jysj from where ID=1000"
 days=datediff("d",now,adodc.redcordset.fields("jysj"))
 debug.frint days这样写对不对?

Answer 4

SQL数据库：
select datediff("d",jysj,getdate()) as d 
from reader
where ID=1000

Answer 5

2楼的使用RS.open需要什么对象?
 我窗体上只有一个ADO控件~
我在运行你的那句话时 提示~"需要对象"

Answer 6

3 楼  和7 楼的谢谢你们~~ 我自己改了下程序~~  我用的是ADODC控件+ODBC 和SQL 相链接的具体的代码是:
Adodc.RecordSource = "Select * From reader Where dzbh = " & "'" & Trim(Text1.Text) & "'"
Adodc.Refresh
If Adodc.Recordset.RecordCount > 0 Then
    Days = DateDiff("d", Adodc.Recordset.Fields("jysj"), Now)
    Print Days
End If
假如的我表中的那个日期字段是 2005-12-16 在窗体上的数~ 是 3 (也就是和机器上系统时间间隔的天数)谢谢你们.

Answer 7

//SQL数据库：
select datediff("d",jysj,getdate()) as d 
from reader
where ID=1000
支持

Answer 8

weiweiplay(虚幻)我有些问题问你~~~~~  我给你发短消息了~~ 你去看下.封贴.