VBA编程基础解析.ppt

（2）RecordSet对象RecordSet 在完成数据库的连接后，可以使用RecordSet对象和Command对象取得记录集。RecordSet对象的数据源可以是数据表、存储过程、视图或SQL查询语句等，比较常用的是采用SQL语句。 打开“选课管理”数据库中的“学生”表，可用如下代码实现； Dim db As New ADODB.Connection Dim rs As New ADODB.RecordSet StrConnect=E:\xkgl\选课管理.mdb db.Provider= Microsoft.Jet.OLEDB.4.0 db.Open StrConnect SqlStr=select * from 学生 rs.Open SqlStr,db,adCmdText 程序的修改与调试是完善应用程序的一个主要环节。在程序中查找并修改错误的过程称为调试。 程序中的错误主要有语法错误、逻辑错误和运行错误。 8.5 程序调试 在程序调试过程中常用到系统的调试工具栏。当打开VBA编辑器窗口时，会显示调试工具栏，如图所示。如果调试工具栏是隐藏的，单击菜单命令“视图|工具栏|调试”即可打开。 8.5.1 VBA的调试工具栏 在调试程序时，可以设置断点使程序运行暂停，然后检查各变量的值及运算结果，从而判断程序是否正确。 设置断点的操作步骤如下： （1）打开VBA编辑器，并选择要设置断点的程序为当前程序。 （2）将光标定位于欲设置断点的行并在断点设定区单击，则在断点设定区显示断点标识（显示圆点且语句行颜色加深。也可以使用工具栏上的“切换断点”按钮来设置。 8.5.2 设置断点 （3）单击按钮运行程序，当程序执行到断点处暂停，将鼠标指针移到需要查看的变量上，系统会自动显示变量的值。 （4）取消设置的断点，可以重复前面的步骤。也可以单击菜单命令“调试|清除所有断点”来清除断点。 8.5.3 跟踪程序运行 调试程序时，可以使用Access提供的方法对程序进行跟踪，主要有逐语句、逐过程等方法。 1．逐语句执行 逐语句执行程序是指单步执行程序中的每一行代码，包括被调用过程中的程序代码。 2．逐过程执行 逐过程执行是指在程序单步执行过程中，将被调用过程作为一个单位执行。逐过程执行将被调用的过程当作一个统一的语句，将该过程执行完毕，然后进入下一句。而逐语句执行则将被调用过程的语句也逐一单步执行。 3．跳出执行 使用“跳出”功能可以在程序单步执行时将当前过程中的剩余代码一次执行完毕。 4．运行到光标处 在调试程序时，如果能确定程序出错的大致位置，需要将该位置之后的程序段进行调试，可以使用“运行到光标处”功能对程序进行处理。 8.5.4 使用VBA中的窗口观察变量的值 在调试程序时，可以通过观察变量的值查找程序出错原因，查看变量的值可使用立即窗口、监视窗口、本地窗口等。 1．使用模块窗口查看数据 程序运行期间，当程序处于挂起状态时，可以随时查看变量的值。具体操作方法是，将鼠标指针指向代码窗口中所要查看的变量，会自动显示变量的值。这是查看数据的最简单的方法。 2．使用立即窗口 在程序运行期间，当程序挂起时，可以在立即窗口中输入语句或命令显示变量或表达式的值，也可以查看过程调用的结果。 3．使用本地窗口 单击工具栏上的“本地窗口”按钮，打开本地窗口。当程序运行暂停时，本地窗口将显示所有表达式的信息，通常用于查看程序运行的中间结果。 4．使用监视窗口 程序执行过程中，可以使用监视窗口查看变量和表达式的值。使用监视窗口前，需要设置监视表达式。 8.6上机实训 8.6.1实训一 模块的创建 实训目的 1．掌握模块的概念 2．掌握模块的程序结构 3．掌握模块的编辑、运行等操作。 实训内容 1．编写一个模块，输入实数x，计算分段函数并输出结果。 2．编写一个模块，输入n个整数，求其中的最大值并输出 3．编写一个Function函数子过程fn（x，n），计算xn，编写一个模块调用函数fn计算163。 8.6.2 实训二 VBA应用程序设计 实训目的 1．掌握对象的概念。 2．掌握面向对象的程序设计方法 3．掌握简单的VBA应用程序设计。 实训内容 编写一个用户检查程序，在文本框中输入用户名，单击“登录”按钮，检查用户名是否正确，若正确，则显示信息“用户名正确，欢迎使用本系统”，若不正确，则显示信息“对不起，请重新输入”。 本章小结 1.了解模块的基本功能。 2.掌握设计模块的方法 3.掌握VBA程序的控制结