第十讲数据库应用技术.ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 复杂数据绑定 例10.3复杂数据绑定的操作过程 界面设计：ADO数据控件、 DataGrid、2个命令按钮 建立连接和产生记录集： Adodc1控件记录源选“基本情况”或“成绩表”为默认值 DataGrid DataSource属性设置为Adodc1 数据绑定 本例DataGrid控件要绑定不同的表，故需要通过代码设置控件的DataSource 属性。 程序代码 Private Sub Command1_Click() Adodc1.RecordSource = 基本情况“ Adodc1.Refresh End Sub Private Sub Command2_Click() Adodc1.RecordSource = 成绩表“ Adodc1.Refresh End Sub 例10.4使用SQL语句选择数据表部分数据构成记录集。在网格上绑定部分字段，需要对数据网格布局进行编辑 Adodc1控件记录源-----命令类型选8-adCmdUnknown--在命令文本框内输入“Select * from 基本情况 Where 性别=“男”” 鼠标右击DataGrid----选检索字段----点击是将表中字段装载到DataGrid控件中 10.3 记录集对象 10.3.1 浏览记录集 1. AbsoloutPostion属性 返回当前记录指针值，从1到Recordset对象所含记录数，第n条记录的AbsoloutPostion属性值为n 2. BOF和EOF的属性 BOF判定记录指针是否在首记录之前 EOF判定记录指针是否在末记录之后 如果BOF和EOF的属性值都为True，则记录集为空 若当前记录指针值位于BOF， AbsoloutPostion属性返回AdPosBOF(-2) 若当前记录指针值位于EOF， AbsoloutPostion属性返回AdPosEOF(-3) 记录集为空，AbsoloutPostion属性返回AdPosUnknown(-1) 3. RecordCount属性 对Recordset对象中的记录计数，该属性为只读属性 Private Sub Adodc1_MoveComplete() Adodc1.Caption = Adodc1.Recordset.AbsolutePosition / Adodc1.Recordset.RecordCount End Sub 可以在数据控件的标题区显示当前记录的序号和记录总数 4. Find方法 在Recordset对象中查找与指定条件相符的第一条记录，并使之成为当前记录。如果找不到，则记录指针指在记录集末尾。 Recordset.Find 搜索条件 ,位移 , 搜索方向, 开始位置 例：搜索条件是一个字符串 Adodc1.Recordset.Find“学号=‘50102’” 或者 mt=“50102” Adodc1.Recordset.Find“学号=“”‘”mt”‘” 若为数值类型则不加单引号 使用Like运算符 Adodc1.Recordset.Find“学号Like ’50*’” 5. Move方法组 Move方法可代替对数据控件对象的4个箭头按钮的操作遍历整个记录集。 (1) MoveFirst方法移至第1条记录。 (2) MoveLast方法移至最后一条记录。 (3) MoveNext方法移至下一条记录。 (4) MovePrevious方法移至上一条记录。 (5) Move [n] 方法向前或向后移n条记录。 MoveNext MoveLast MoveFirst MovePrevious Adodc1.Recordset. Find 学号= 500011 计算机 丁保华 500011 … … … 物理 李明 500201 数学 庄前 500102 专业 姓名 学号 EOF BOF 记录集属性方法小结 例10.5用命令按钮代替数据控件对象的4个箭头按钮的 功能,使用Find方法查找记录(例10.2的基础上) Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst Case 1 Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then