下面为我vb6中的一个部分,我想实现表中的时间“开船时间”和start, enddt做下面比较,可是为什么我只得到第一条记录的“开船时间”比较啊,我想要表中所有记录都比较,并把符合条件的“开船时间”在消息框或窗体中显示啊?当然大家要是能教我写成个方法更好,因为我程序中有不少地方需要!!万分感谢了
start, enddt为我在控件上选择的时间,已经知道的,开船时间为我表中的字段Dim msql As String
msql = "select 过帐状态表.开船时间 as 开船时间 from 过帐状态表 where 状态 = '0'
Set rst = cn.OpenResultset(msql, rdOpenStatic, rdConcurReadOnly)
If Not rst.EOF Then
If DateDiff("d", rst!开船时间, starDT) <= 0 And DateDiff("d", rst!开船时间, endDT) >= 0 Then
MsgBox ("11")
rst.Close
Exit Sub
End If
End If
start, enddt为我在控件上选择的时间,已经知道的,开船时间为我表中的字段Dim msql As String
msql = "select 过帐状态表.开船时间 as 开船时间 from 过帐状态表 where 状态 = '0'
Set rst = cn.OpenResultset(msql, rdOpenStatic, rdConcurReadOnly)
If Not rst.EOF Then
If DateDiff("d", rst!开船时间, starDT) <= 0 And DateDiff("d", rst!开船时间, endDT) >= 0 Then
MsgBox ("11")
rst.Close
Exit Sub
End If
End If
解决方案 »
- 请问,XP系统“我的电脑”左侧风格,用什么控件?[有图]
- 文件问题 还是那个问题再发一次,,这次问题都说的好清楚拉 希望能解结这烦琐的问题 高手们都来看看拉
- 请问各位,如何选定mshflexgrid中的一行呀?
- 嘿嘿,有点简单,不过我不会,关于ADO的参数对象问题.
- 如何在vb中给Access加密?
- 急问winsock本地端口
- 请问一客户端要连接多个服务器端,要怎么处理呀?
- 送分啦!!!
- 谁能告诉我杂牌军的网址????
- VB中,如何调用外部程序WORD编辑RichText控件中的图文内容
- 编程经验入太极了?用过许久之后就淡忘一些,最近忘性很大 - -
- ActiveReports 每打印两次后就会跑一大段纸
while not rst.EOF
访问 rst!开船时间 等 rst.movenext
wend
rst.close
if rst.state<>adstateclosed then rst.close
rst.open msql,cn,adopenkeyset,adlockreadonly
if rst.recordcount>0 then
msgbox "11"
end if
rst.close