Access数据库技术与应用教程教学课件 赵义霞 第10章 数据库编程.pptVIP

例10-3：用ADO方法向表中追加记录，代码附加给命令按钮的单击事件。按钮c1的click事件代码如下： Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str1 As String Set cn = CurrentProject.Connection 建立本地连接 rs.ActiveConnection = cn rs.Open Select 教师编号 From 教师 Where 教师编号= +t1+ If rs.EOF = False Then MsgBox 该编号已存在，不能追加！ Else str1 = Insert Into 教师 (教师编号,姓名,性别)“ str1 = str1 + Values(+t1+ , +t2+ , +t3+ ) cn.Execute str1 ‘ 执行指定的SQL语句 MsgBox 添加成功，请继续！ End If rs.Close cn.Close Set rs = Nothing Set cn = Nothing 说明： 在程序中，用 +t1+ 取得文本框t1中的值，原来用双引号定界的地方改为单引号。两个相同的引号不能连着