学VB已学会了VB的串口通讯,但希望能将收到的数据与一定的方式存 ...
将串口接收的数据按通信协议,分别切割成所需的数据。
赋值给全局变量。
使用ADO数据控件和TIMER控件按固定时间间隔写入数据库。
以下是每分钟写ACCESS数据库的代码: Private Sub Form_Load() With Adodc1 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\ b;Persist Security Info=False" Adodc1.RecordSource = mdh End With chaxun1 = "select * from jishijilu order by gyh_riqi,shijian" mdh = chaxun1 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\ b;Persist Security Info=False" Adodc1.RecordSource = mdh Adodc1.Refresh chaxun1 = "select * from jishijilu" mdh = chaxun1 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\ b;Persist Security Info=False" Adodc1.RecordSource = mdh Adodc1.Recordset.MoveLast yunxin_sj = Date$ End Sub Private Sub Timer2_Timer() frmMdb.Text1 = Time$ '数据提取 mmm = Val(fen * 60) + Val(miao) j = mmm frmMdb.Text2 = Date$ 'Label8 = Date$ If miao = "00" Then Adodc1.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 If End Sub 当然也可生成文本文件。
酒店管理系统和餐饮管理系统的财务漏洞都有哪些方面?选择好的管理...
计算机的硬件有1、CPU 也就是电脑的核心2、主板 所有的硬件都是连接到主板上的3、内存 打开电脑或应用程式时都会先将相关连的文件加载的内存中去运行4、硬盘 硬盘分区后系统都是装在C盘里的 一些应用程序都安装到C盘里也有的程在其它盘的 那剩下的几个分区就是存放文件或个人资料的5、电源 给电脑提供电源6、光驱 安装系统或读取其它光碟时会使用到它7、机箱 电脑所有的硬件全部安装在机箱内 就是组成了一台主机8、显示器 与连接的显示设备其它的就是键盘鼠标音响等了!
转载请注明出处51数据库 » 软件有哪些方式接受串口数据库