小篇给大家谈谈vb如何记录数据，以及在vb中记录对象数据的是应用的知识点，希望对你所遇到的问题有所帮助。

1、分类: 电脑/网络 >> 程序设计 >> 其他编程语言问题描述:用vb+access作了个数据采集系统需要3秒往数据库中放一组数据使用了timer控件但是总是提示错误，使用需用户触发的时间就没有错误timer空间命名为tmMain,data控件命名为data1代码如下：Private Sub MDIForm_Load()tmMain.Enabled = FalsetmMain.Interval = 3000tmMain.Enabled = Truedata1.DatabaseName = App.Path & "data.mdb"data1.RecordSource = "nt"writeDB = FalseEnd SubPrivate Sub tmMain_timer()data1.Recordset.AddNewdata1.Recordset.Fields("time") = mytimedata1.Recordset.Fields("date") = mydatedata1.Recordset.Fields("sector") = 0data1.Recordset.UpdateEnd Sub麻烦大家帮忙看看，在非mdi的窗体中使用就没有问题，不知道为什么解析:提供一段在MDI中应用的写数据代码,TIMER的属性Interval设为500:Private Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "HXMdi.mdb;Persist Security Info=False"Adodc1.RecordSource = "Select from jilu_sj"Adodc1.RefreshEnd SubPrivate Sub Timer1_Timer()If Label1.Caption <> CStr(Time$) ThenLabel1.Caption = Time$sum_zj = sum_zj + 1'校准If sum_zj >= 3 Thensum_zj = sum_zj - 3 '每3秒记录一组数据Adodc1.Recordset.AddNewAdodc1.Recordset(0) = shiyan_sj(0)Adodc1.Recordset(1) = Mid(Date$, 3, 2) & Mid(Date$, 6, 2) & Mid(Date$, 9, 2) & "-" & Time$ 'Mid(Time$, 1, 2) & Mid(Time$, 4, 2) & Mid(Time$, 7, 2) '记录timeAdodc1.Recordset(2) = Val(Label3(0).Caption) '记录数据Adodc1.Recordset(3) = Val(Label3(1).Caption) '记录数据Adodc1.Recordset.UpdateEnd IfEnd IfEnd Sub。

本文到这结束，希望上面文章对大家有所帮助。