以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]计划任务没有定时执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82713)
--  作者：bobolan521
--  发布时间：2016/3/23 13:44:00
--  [求助]计划任务没有定时执行

If Forms("人脸指纹采集").Opened Then
    Dim bt As WinForm.Button = Forms("人脸指纹采集").Controls("采集钩选")
    Dim cmd As New SQLCommand
    Dim dt As Date
    cmd.C
    cmd.CommandText = "Select GetDate()"
    dt = cmd.ExecuteScalar()
    Dim dr As DataRow
    dr=DataTables("采集时间").Find("  时间 = \'" & Format(dt, "HH:mm:ss") & " \'")
    If dr IsNot Nothing Then
              bt.PerformClick
    End If
End If

 

我写在计划任务里写了一段代码，只要到了表格里的时间就自动去执行，可以我发现有时候能执行，有时候执行不了，请大师们帮我看一下，代码哪里需要修改一下，谢谢


图片点击可在新窗口打开查看此主题相关图片如下：xx.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：yy.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/3/23 14:25:00
--  

1、Select GetDate() 可能耗时超过1秒的时间，因为要连接数据库取得；

 

2、所以你查询的时候，应该允许有几秒的误差。

 

Dim d As Date = new Date(1900, 1, 1, dt.Hour, dt.Minute, dt.Second)

dr=DataTables("采集时间").Find("时间 >= #" & dt.AddSeconds(-5) & "# and 时间 <= #" & dt.AddSeconds(5) & "#")