数据库中的表是不允许直接访问的,只有通过recordset对象对其进行浏览及操作。
一个recordset对象表示一个或多个数据库表中的集合,或者运行一次查询所得的记录结果。
记录集对象有3种类型:表类型(DbOpenTable)、动态集类型(DbOpenDynaset)、快照类型(DbOpenSnapshot)
Dim DAOmydb1 As Database
Dim DAOmyrs1 As Recordset
Dim addbln As Boolean
Private Sub cmdAdd_Click()
addbln = True
Controls_State True
txtfjh.Text = ""
txtjg.Text = ""
txtpz.Text = ""
txtbz.Text = ""
txtfjh.SetFocus
End Sub
Private Sub cmdCancel_Click()
Controls_State False
cmdDelete.Visible = False
Me.Height = 3585
End Sub
Private Sub cmdDelete_Click()
Set DAOmyrs1 = DAOmydb1.OpenRecordset("kf", dbOpenDynaset)
DAOmyrs1.FindFirst "房间号" Like " + chr(34) +txtfjh + chr(34) + """
DAOmyrs1.Delete
cmdMove_Click (2)
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdModify_Click()
addbln = False
Me.Height = 4785
Controls_State True
cmdDelete.Visible = True
Set DAOmyrs1 = DAOmydb1.OpenRecordset(