VB程序学习代码记录20160827

数据库中的表是不允许直接访问的，只有通过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(