学VB

学VB

将串口接收的数据按通信协议，分别切割成所需的数据。赋值给全局变量。使用ADO数据控件和TIMER控件按固定时间间隔写入数据库。以下是每分钟写ACCESS数据库的代码：Private Sub Form_Load()With Adodc1Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\ b;Persist Security Info=False"Adodc1.RecordSource = mdhEnd Withchaxun1 = "select * from jishijilu order by gyh_riqi,shijian"mdh = chaxun1Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\ b;Persist Security Info=False"Adodc1.RecordSource = mdhAdodc1.Refreshchaxun1 = "select * from jishijilu"mdh = chaxun1Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\ b;Persist Security Info=False"Adodc1.RecordSource = mdhAdodc1.Recordset.MoveLastyunxin_sj = Date$End SubPrivate Sub Timer2_Timer()frmMdb.Text1 = Time$'数据提取mmm = Val(fen * 60) + Val(miao)j = mmmfrmMdb.Text2 = Date$'Label8 = Date$If miao = "00" ThenAdodc1.Recordset.AddNew '每分钟记录一组数据Adodc1.Recordset(0) = Mid(Text2, 3, 2) & Mid(Text2, 6, 2) & _Mid(Text2, 9, 2) & Mid(Text1, 1, 2) & Mid(Text1, 4, 2) '记录时间Adodc1.Recordset(1) = gongyi_sj(0) & "-" & record_rq '记录日期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) '记录数据Adodc1.Recordset(7) = record_jm(5) '记录数据Adodc1.Recordset(8) = record_jm(6) '记录数据Adodc1.Recordset(9) = record_jm(7) '记录数据Adodc1.Recordset(10) = record_jm(8) '记录数据End IfEnd Sub当然也可生成文本文件。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！