|
#2
风吹过b2020-11-08 08:39
|
程序代码：If count Mod 60 = 0 Then
Open App.Path & "/DATA/" & Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(Hour(Time), "00") & Format(Minute(Time), "00") & Format(Second(Time), "00") & "t.txt" For Output As #7
For i = LBound(dataTemp) To UBound(dataTemp)
Print #7, dataTemp(i)
Next i
Close #7
Open App.Path & "/DATA/" & Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(Hour(Time), "00") & Format(Minute(Time), "00") & Format(Second(Time), "00") & "t.txt" For Output As #7
For i = LBound(dataTemp) To UBound(dataTemp)
Print #7, dataTemp(i)
Next i
Close #7
它将解调后的温度数据保存为一个文本文档，现在想改为存储至Mysql数据库中，刚开始学习数据库，不太明白怎么实现，希望大家指点一下，感谢。