关于vb向ACCESS数据库写数据时发生漏记录的问题?

2010-07-15 08:31:54 145 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中作者：工控自动化老王关注同名V–X公//众//号：工控自动化老王获取更多技术文档及工控资源，交流、学习，另外老王承接PLC毕业设计，欢迎咨询！配置计算机ODBC （1）使用access新建一个accdb数据库，命名为ReportData，后面要用到；（2）计算机-----控制面板-----ODBC 数据源（32位）进入配置界面，需要注意一点，必须配置32位的ODBC，因为IFIX软件只能够识别32位的，配置界面如下图：（3）阅读详情

各位高手:
请教! 关于vb向ACCESS数据库写数据时发生漏记录的问题?

昨天的贴子已结!
源程序:

Private Sub Form_Load()
Timer4.Interval = 60000
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\db1.mdb;Persist Security Info=False"

End Sub

Private Sub Timer4_Timer()
Adodc1.RecordSource = "select top 1 * from HCCG"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = RTYU
Adodc1.Recordset.Fields(1).Value = Time
Adodc1.Recordset.Fields(2).Value = Text0.Text
Adodc1.Recordset.Fields(3).Value = Text1.Text
Adodc1.Recordset.Fields(4).Value = Text2.Text
Adodc1.Recordset.Fields(5).Value = Text3.Text
Adodc1.Recordset.Fields(6).Value = Text4.Text
Adodc1.Recordset.Fields(7).Value = Text5.Text
Adodc1.Recordset.Fields(8).Value = Text6.Text
Adodc1.Recordset.Fields(9).Value = Text7.Text
Adodc1.Recordset.Fields(10).Value = Text8.Text
Adodc1.Recordset.Update
Adodc1.Refresh

End Sub
数据表HCCG中第11列 ,为自动生成的ID!
请教以上源程序,会造成数据表HCCG中发生漏记录的现象!

做成怎样的程序,或者有无方法进行调整!

如下面的现象:

RTYU TIME ...............................

1254 09:23:07
1254 09:24:07
1254 09:25:07
1254 09:27:07
1254 09:28:07
1254 09:29:07

如上面数据所示少了 09:26:07 的数据!

...全文

VB开发——Access数据库数据转化到Excell表格个人认为分为三种情况：整个数据库转化为表格，从数据库选择部分数据转化为表格，从特定记录中选择数据转化为表格1）整个数据库转化为表格Private Sub Command1_Click() Dim acApp As Access.Application Dim strReportName As String Dim strReportPath As Stri 阅读详情

ntwwh

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

zdingyun 2010-07-15

打赏
举报

来自MSDN:
记住，Timer 事件是周期性的。Interval 属性主要是决定“多少次”而不是“多久”。间隔的长度取决于所需精确度。因为存在某些内部的错误可能性，所以应将间隔设置为精确度的一半。

注意上面这段话中间隔设置为精确度的一半

jhone99 2010-07-15

打赏
举报

[Quote=引用 4 楼 ntwwh 的回复:]
Timer4_控件有可能在软件中不执行吗? 按我这种情况，执行时间不应该超过间隔呀！！！
[/Quote]

2楼加的测试语句测试结果如何？

ntwwh 2010-07-15

打赏
举报

Timer4_控件有可能在软件中不执行吗? 按我这种情况，执行时间不应该超过间隔呀！！！

zdingyun 2010-07-15

打赏
举报

贴出你查询ACCESS数据的SQL查询句.

ntwwh 2010-07-15

打赏
举报

海明:
Open App.path & "\log.txt" For Append As #1
Print #1, Time
Close #1

记录了时间控件的执行信息,请问如何判断后; 但必须做到没有记录会补充增加一条无记录的数据!

of123 2010-07-15

打赏
举报

Private Sub Timer4_Timer()
Adodc1.RecordSource = "select top 1 * from HCCG"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = RTYU
Adodc1.Recordset.Fields(1).Value = Time
Adodc1.Recordset.Fields(2).Value = Text0.Text
Adodc1.Recordset.Fields(3).Value = Text1.Text
Adodc1.Recordset.Fields(4).Value = Text2.Text
Adodc1.Recordset.Fields(5).Value = Text3.Text
Adodc1.Recordset.Fields(6).Value = Text4.Text
Adodc1.Recordset.Fields(7).Value = Text5.Text
Adodc1.Recordset.Fields(8).Value = Text6.Text
Adodc1.Recordset.Fields(9).Value = Text7.Text
Adodc1.Recordset.Fields(10).Value = Text8.Text
Adodc1.Recordset.Update
Adodc1.Refresh

Open App.path & "\log.txt" For Append As #1
Print #1, Time
Close #1
End Sub

用日志文件检查 Timer 代码此时是否被执行。

zdingyun 2010-07-15

打赏
举报

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If lblTime.Caption <> CStr(Time) Then
lblTime.Caption = Time
If Right(Time$, 2) = "00" Then '每60秒执行1次
Open "C:\time.txt" For Append As #1
Print #1, Time$
Close
End If
End If
End Sub

关于vb向ACCESS数据库写数据时发生漏记录的问题?

相关推荐