关于判断ＶＢ向ＡＣＣＥＳＳ数据库写数据是否成功？？

[ntwwh]

各位高手：　请教！

以下是程序：
Timer1　　的间隔时间为一分钟！
Private Sub Timer1_Timer()
Adodc1.RecordSource = "select top 1 * from HHUI"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = GTF
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub


现在在数据库发现有未记录成功的现象存在，请教如何避免这种现象的发生！！！？？？？


如：　数据库中

１８：３１：０９
１８：３３：０９　


中间少了１８：３２：０９　　的记录！！！

[ACMAIN_CHM]

你是不是打开了ON ERROR处理？ 否则当插入出错时报错的。

[ntwwh]

我的意思是每分钟记录一次数据! 上段程序是记录数据的!!!!

[ACMAIN_CHM]

仅通过这段程序看，没有任何问题。

[zdingyun]

使用 Timer 控件
Timer 控件响应时间的流逝。它们独立于用户，编程后可用来在一定的时间间隔执行操作。此控件的一个一般用处是检查系统时钟，判断是否该执行某项任务。对于其它后台处理， Timer 控件也非常有用。
每个 Timer 控件都有 Interval 属性，指定定时器事件之间的毫秒数。除非禁止此属性，否则定时器在大致相等的时间间隔不断接受事件（称作定时器事件会更贴切）。
在为 Timer 控件编程时应考虑对 Interval 属性的几条限制：
如果应用程序或其它应用程序正在进行对系统要求很高的操作─ 例如长循环、高强度的计算或者正在访问驱动器、网络或端口─ 则应用程序定时器事件的间隔可能比 Interval 属性指定的间隔长。
间隔的取值可在 0 到 64,767 之间（包括这两个数值），这意味着即使是最长的间隔也不比一分钟长多少（大约 64.8 秒）。
间隔并不一定十分准确。要保证间隔准确，应在需要时才让定时器检查系统时钟，而不在内部追踪积聚的时间。
系统每秒生成 18 个时钟信号─ 所以即使用毫秒衡量 Interval 属性，间隔实际的精确度不会超过 18 分之一秒。
以上见MSDN

[饮水需思源]

用这种方法增加记录：
cnn.execute "insert into 表名(...) values(...)"

[zdingyun]

Option Explicit

Private Sub Form_Load()
    Timer1.Interval = 500
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\VB6_CORD\Adodb\db1.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select top 1 * from HHUI"
    Adodc1.Refresh
End Sub

Private Sub Timer1_Timer()
    If Mid(Time$, 7, 2) = "09" Then
        Label1.Caption = Time
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields(0).Value = GTF
        '
        '
    End If
End Sub

OR:

Option Explicit

Private Sub Form_Load()
    Timer1.Interval = 500
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\VB6_CORD\Adodb\db1.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select top 1 * from HHUI"
    Adodc1.Refresh
End Sub

Private Sub Timer2_Timer()
    If Label1.Caption <> CStr(Time$) Then
        Label1.Caption = Time$
        frmMdb.Text2 = Date$
        frmMdb.Text1 = Time$
        sum_mdb = sum_mdb + 1
        Text3 = sum_mdb
        'jiaozun
        If sum_mdb >= 60 Then
            sum_mdb = sum_mdb - 60
            Adodc1.Recordset.AddNew '每分钟记录一组数据
            Adodc1.Recordset(0) = Time$
            Adodc1.Recordset(2) = record_jm(0)  '记录数据
            Adodc1.Recordset(3) = record_jm(1)  '记录数据
            Adodc1.Recordset(4) = record_jm(2)  '记录数据
            Adodc1.Recordset(5) = record_jm(3)  '记录数据
            Adodc1.Recordset(6) = record_jm(4)  '记录数据
        End If
    End If
End Sub

[of123]

Private Sub Timer1_Timer()
Dim n As Long
Do
Adodc1.RecordSource.ActiveConnection.Execute "Insert Into HHUI(字段名) Values(" & GTF & ")", n
Loop Until n
End Sub

[guyehanxinlei]

数据插入进去之后可以再查询一下