module1.bas

描叙了如何在VB中对Access数据库进行存取

Attribute VB_Name = "Module1"
Public dbs      As DAO.Database  '定义数据库实例变量
Public rrs      As DAO.Recordset '定义数据集实例变量
Public TemHorizontalVib  As Single '传感器测得的实时水平振动数据
Public TemVerticalVib  As Single   '传感器测得的实时垂直振动数据
Public RecordNum As Integer    '数据库中保存数据计数
Public TemHVib() As Single   '保存传感器测得的实时水平振动数据数组
Public TemVVib() As Single '保存传感器测得的实时垂直振动数据数组
Public Time() As Date   '保存时间
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset