新VisualBasic实用教程 薛亮 第14章.pptVIP

图14.5 Microsoft Jet数据访问对象模型的层次结构 表14.1 DAO 3.51对象列表 表14.1 DAO 3.51对象列表 DAO数据控件作为内部控件包含在Visual Basic中。DAO数据控件提供一种图形化创建记录集(Recordset)的操作方式， 即简单地对DAO数据控件的属性进行设置，比如Connect、DatabaseName和Recordsource属性。典型地，由数据控件得到的检索结果能通过绑定控件来显示。几个内部控件，如TextBox、CheckBox和OptionButton可以通过设置它们的DataSoure和DataField属性来分别指向DAO数据控件以及记录集的列(字段)。 【例14-1】 通过编程使用DAO向Text控件增添数据，进行增、删、更新记录操作，此外，用Treeview控件显示数据库的表和查询。 (1) 界面设计如图14.6所示。 图14.6 界面设计 (2) 事件编写如下： 准备工作。在Project-References中选择Microsoft DAO 3.51 ObjectLibrary；在Project-Components中选择Microsoft Windows Common Controls 6.0 变量显式声明 Option Explicit Private mWks As Workspace Private mDB As Database Private rsproj As Recordset Private flagAddNew% Private Sub GetCustomers( ) Dim strSQL As String Dim i% strSQL = SELECT * FROM Customers 构建一个 SQL语句查询 Set rsproj = mDB.OpenRecordset(strSQL) 打开记录集 ? If rsproj.EOF Or rsproj.BOF Then Exit Sub End If 将当前记录值充入文本框 For i = 0 To 3 Label1(i).Caption = rsproj.Fields(i).Name If Not IsNull(rsproj.Fields(i)) Then Text1(i) = rsproj.Fields(i) Else Text1(i) = End If Next i End Sub 按钮Add事件响应 Private Sub cmdAdd_Click( ) Dim i As Integer flagAddNew = True For i = 0 To 3 Text1(i).Text = Next i txtPosition = 新增记录 Text1(0).SetFocus End Sub 按钮Delete事件响应 Private Sub cmdDelete_Click( ) rsproj.Delete rsproj.Requery Call refreshForm End Sub 按钮Exit事件响应 Private Sub cmdExit_Click( ) End End Sub 按钮|事件响应 Private Sub cmdFirst_Click( ) rsproj.MoveFirst cmdNext.Enabled = True cmdFirst.Enabled = False cmdPrevious.Enabled = False cmdLast.Enabled = True Call refreshForm End Sub 按钮|事件响应 Private Sub cmdLast_Click( ) rsproj.MoveLast cmdNext.Enabled = False cmdFirst.Enabled = True cmdPrevious.Enabled = True cmdLast.Enabled = False Call refreshForm End Sub 按钮事件响应 Private Sub cmdNext_Click( ) If Not rsproj.EOF Then rsproj.MoveNext Call refreshForm End If