增加新记录 学号 Combol 课程号： Combo2 姓名 Textl 课程名 Text2 成绩 Text3 返回 Private Sub Commandl_Click() “声明一个记录集对象 Dim ADOrs As New Recordset ‘将记录集对象与已建立的数据库联接对象ADOcn绑定 ADOrs.ActiveConnection=ADOcn ‘第一步：在学生成绩表中查询是否存在关键字相同的记录 StrSQL=( ) ( StrSQL ‘第二步：如果关键字重复，则退出程序 If Not( )Then MsgBox“记录已存在，不能继续增加” Exit Sub End If ‘第三步：将结果插入到学生成绩表中 StrSQL= ( )StrSQL End Sub 1165Private Sub CommandLClickO ‘声明一个记录集对象 Dim ADOrs As New Recordset ‘将记录集对象与已建立的数据库联接对象 n绑定 ADOrs. ActiveConnection = ADOcn ‘第-步:在学生成绩表中查询是否存在关键字相同的记录 StrSQL=( ) StrSQL 二步 If Not( MsgBox" 继续增 Exit Sub End If 第三步 果插入 学生成绩表 StrSQL= ( ) Then ( End Sub ) StrSQL 1165