|
楼主 |
发表于 2014-5-23 13:14
|
显示全部楼层
谢谢回复。
上数据库原文件。
1.rar
(573.55 KB, 下载次数: 13)
我在VB程序里是这样做的。
首先做个模块
Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public op As String
Public Function cnn() As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Facility.mdb" & ";Persist Security Info=False"
End Function
然后在程序里调用
插入记录,每10秒插入一个
cnn.Execute ("insert into " & today & " values ('" & Date & "','" & Time & "','" & Text1 & "','" & Text7 & "','" & Text4 & "','" & Text6 & "','" & Text8 & "','" & Text2 & "')")
建立表格,每天24点会建立一个表
sql = "Create Table " & today & " (" & "日期 date,时间 time,壹号探测器 single,贰号探测器 single,叁号探测器 single,肆号探测器 single,伍号探测器 single,陆号探测器 single);"
cnn.Execute sql
是不是因为建立新表的缘故,导致数据库容量暴增! |
|