form1.frm

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

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3555
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6225
   LinkTopic       =   "Form1"
   ScaleHeight     =   3555
   ScaleWidth      =   6225
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CmdSave 
      Caption         =   "SAVE"
      Height          =   495
      Left            =   480
      TabIndex        =   2
      Top             =   960
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   2400
      TabIndex        =   1
      Text            =   "Text2"
      Top             =   1320
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   2400
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   600
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer



Private Sub CmdSave_Click()
        rrs.AddNew
        rrs.Fields("TemHorizontalVib") = Text1.Text  '传感器测得的实时水平振动数据，此处改为你需要输入的变量
        rrs.Fields("TemVerticalVib") = Text2.Text  '传感器测得的实时垂直振动数据，此处改为你需要输入的变量
        rrs.Fields("Time") = Format(Now, "c")      '用这个函数相当于DATE和Time的
        rrs.Update
        rrs.MoveLast
        RecordNum = rrs.RecordCount
        rrs.MoveFirst
        If RecordNum = 10 Then        '此处改为你需要的数值
           rrs.MoveFirst
              rrs.Delete
'              rrs.Update
        End If
'        rrs.Update
End Sub

Private Sub Form_Load()

Set dbs = DBEngine.OpenDatabase(App.Path + "\Database\zdd.mdb", True, False)
    Set rrs = dbs.OpenRecordset("select * from [shuju]", dbOpenDynaset)
     If rrs.EOF And rrs.BOF Then
        Exit Sub
    Else
        rrs.MoveLast
        RecordNum = rrs.RecordCount
        rrs.MoveFirst
    End If

End Sub