第14章节数据库访问技术.pptVIP

第14章 数据库访问技术;§14．1 数据库概述 ;一、数据库的概念 ;二、关系型数据库 ;二、关系数据库 ;二、关系数据库 ;§14．2 Access 2000数据库;一、创建Access数据库和表;一、创建Access数据库和表;二、创建查询;二、创建查询;§14．3　使用数据控件;一、数据控件的属性;　 通过设定Data控件的有关属性，可以将其与有关的数据库建立起关联。但这个控件不具备显示数据库中相应字段的能力，只能借助数据库连接控件（数据感知控件、数据绑定控件）：如TextBox、Label、ListBox、ComboBox 、ImageBox 、PictureBox等来显示数据库中的某一字段的内容。“数据库文件”通过Data控件和“数据库连接控件”建立起联系。;数据绑定控件的两个重要属性： DataSource属性 　设定欲连接的Data控件的名称。 DataField属性 　设定欲连接的字段名称。;三、数据控件的事件;四、数据控件的方法;　　数据库中的所有记录（或查询后的所有记录）构成了一个记录集：Recordset，此记录集又是一个对象，借助这个对象，可以对数据库中的记录进行各种操作：;五、记录集对象（Recordset）;六、程序举例 ;§14．4 ADO数据对象访问技术 ;1. 连 接（Connection）对象 2. 命 令（Command）对象 3. 记录集（Recordset）对象 ;Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset Private Sub Form_Load() s = Provider = Microsoft.Jet.OLEDB.3.51; Persist Security Info = False; Data Source = d:\VB6lx\rsgl.mdb cnn.CursorLocation = adUseClient cnn.Open s : Set rst = New Recordset rst.Open 职工工资, cnn, adOpenStatic, adLockOptimistic For Each aa In text1 Set aa.DataSource = r 绑定所有文本框到记录源 Next Combo1.AddItem “全体” 初始化组合框 Combo1.AddItem 保卫 Combo1.AddItem 财务 Combo1.AddItem 技术 Combo1.AddItem 生产 Combo1.AddItem 供销 Combo1.Text = Combo1.List(0) End Sub;编写命令按钮控件数组Command1()的Click事件代码： Private Sub Command1_Click(Index As Integer) n = Index Select Case n Case 0 rst.MoveFirst Case 1 上一个 rst.MovePrevious If rst.BOF Then rst.MoveFirst Case 2 下一个 rst.MoveNext If rst.EOF Then rst.MoveLast Case 3 末一个 rst.MoveLast End Select End Sub;编写组合框Combo1的Click事件代码： Private Sub Combo1_Click() t = Combo1.Text If t = 全体 Then rst.Filter = Else rst.Filter = 部门 = t End If rst.Resync adAffectAllChapters End Sub;添加ADO Data控件 2. ADO Data控件的属性 ADO Data控件对数据的操作 4. 使用ADO Data控件 【例12-3】使用ADO Data控件建立的工资管理数据窗体，如图12-25所示。;设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写代码。 Private Sub command1_Click(Index As Integer) Select Case Index Ca