AccessVBA数据库编程(ADO)详细.pptVIP

7.5.3 用ADO记录集的Delete方法删除记录 [例7-7] 对例7-6添加如下的单击窗体事件过程： Private Sub Form_Click() rsTeacher.MoveFirst Do While Not rsTeacher.EOF rsTeacher.MoveNext Loop MsgBox 待删除记录不存在！ End Sub 如果找到“高原”,进行相关操作，然后退出过程 转下页 7.5.3 用ADO记录集的Delete方法删除记录 If rsTeacher!姓名 = 高原 Then Flag = MsgBox(是否要删除高原？, vbYesNo, 删除确认) If Flag = vbYes Then 确定删除 rsTeacher.Delete MsgBox 记录删除完毕。 rsTeacher.MoveNext 删除记录后设定新的当前记录 If rsTeacher.EOF Then rsTeacher.MoveLast Exit Sub ElseIf Flag = vbNo Then 不删除记录 MsgBox 放弃删除操作！, , 删除确认 Exit Sub End If End If 如果找到“高原”，进行相关操作，然后退出过程 7.6 用ADO技术实现复杂查询 [例7-8] 在ADO模块中建立Sex过程：统计并在输出对话框中显示男、女研究生人数比。要求以人数多的一方为1、放在右侧、保留小数两位。 程序分析：先遍历全部记录，分别统计出男、女研究生人数。如果男生人数多于女生，则男生人数为1，女生人数改为女生人数除以男生人数；反之亦然。 7.6 用ADO技术实现复杂查询 Sub Sex() （定义对象、完成与数据库的连接、打开研究生表、定义变量） Student.MoveFirst Do While Not Student.EOF 统计男、女研究生人数 If Student!性别 = 男 Then Boy = Boy + 1 If Student!性别 = 女 Then Girl = Girl + 1 Student.MoveNext Loop If Girl = Boy Then 以男生人数为1 MsgBox 女:男= Format(Girl / Boy, 0.00) :1 Else 以女生人数为1 MsgBox 男:女= Format(Boy / Girl, 0.00) :1 End If End Sub 7.6 用ADO技术实现复杂查询 [例7-9] 略 [例7-10] 7.6 用ADO技术实现复杂查询 Private Sub Form_Load() MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 8 以下为MsFlexGrid添加列标题 MSFlexGrid1.Row = 0: MSFlexGrid1.Col = 1 选定0行1列 MSFlexGrid1.Value = 学号 MSFlexGrid1.Col = 2: MSFlexGrid1.Value = 姓名 MSFlexGrid1.Col = 3: MSFlexGrid1.Value = 性别 MSFlexGrid1.Col = 4: MSFlexGrid1.Value = 入学日期 MSFlexGrid1.Col = 5: MSFlexGrid1.Value = 入学分数 MSFlexGrid1.Col = 6: MSFlexGrid1.Value = 研究方向 MSFlexGrid1.Col = 7: MSFlexGrid1.Value = 导师编号 End Sub 7.6 用ADO技术实现复杂查询 Private Sub Command1_Click() 单击生成按钮 （定义变量、定义对象、完成与数据库的连接、打开研究生表） Student.MoveFirst Do While Not Student