关于VB6中的时间比较及记录删除问题(谢谢)

就以下语句有两个问题请大家帮忙:
If (TimeCtime - recTemp_newsystem!ctime) <= Me.time_filter Then
    recTemp_newsystem.Delete
End if1.条件中"(TimeCtime - recTemp_newsystem!ctime) <= Me.time_filter"是两个时间字段的值(如:11:50:00-11:46:00),判断相减之后的值是否小于Me.time_filter中的值(如:5分钟),请问这5分钟在以上表达式中应该怎么写啊?
2.用"recTemp_newsystem.Delete"删除recTemp_newsystem中当前记录好像不行.应该怎么写>谢谢

解决方案 »

  1.   

    <= # Me.time_filter#
    加两个##
      

  2.   

    If DateDiff("n", TimeCtime, recTemp_newsystem!ctime) <= 5 Then
        recTemp_newsystem.Delete
    End if
      

  3.   

    <= # Me.time_filter#好像不行,
    我写#0:05:00#系统自动变成#12:05:00 AM#.
      

  4.   

    如果 recTemp_newsystem 的记录来自同一个表，recTemp_newsystem.Delete 没有问题。
    如果来自多表，需要对各个表分别做记录删除。做法要看具体情况了。
      

  5.   

    谢谢  of123()第一个问题用"DateDiff("h", TimeCtime, recTemp_newsystem!ctime) = 0 And DateDiff("n", TimeCtime, recTemp_newsystem!ctime) <= 5"就可以了.第二个问题记录只来自同一张表.
    符合以上条件要删除当前记录时会提示:
    "实时错误'3251':
    当前记录集不支持更新.这可能是提供程序的限制,也可能是选定锁定类型的限制"
      

  6.   

    Dim rs As New ADODB.Recordset
        rs.Open strSQL, cn, adOpenKeyset, adLockBatchOptimistic
      

  7.   


    conn.execute "Delect from 表名 where ID='" & ID "'"