使用数据库做交互式试题基础.docVIP

使用数据库做PPT交互式试题基础 第一课：如何调用题库自动生成试题界面，并实现滚动控制 第二课：交互初步，做一个联连（用到了VB的自定义类）。不会VB没有关系，从这里开始学吧，任何一本教材也不会有我罗嗦的了-- 第三课：快捷框排序，让学员更方便地知道哪些题尚未做。 环境：PPT2003、ACCESS2000。 调用ACCESS数据库，设置多选项简单方法： 第一步：使用ACCESS建立试题库function_chr.mdb，内含表chr内建立rubric字段(试题标题)，option1....option4(预设4个选择项字段)。 提示：使用ACCESS版本必须低于ADO类的版本，即能被ADO识别 第二步：设置PPT启用宏 打开ppt，设置工具/宏/安全性为中或低，然后关闭后重新启动PPT。 第三步：在幻灯片内添加必须控件。 在当前幻灯片，打开VB工具栏(使用自定义工具栏添加) 新建一个label或textbox控件，用于放置试题题目； 新建4个checkbox控件，用于放置试题选项 新建1个commandbutton控件，用于启动VBA命令，调用ACCESS库 第四步：导入ADO类 使用菜单工具/引入命令，引入Microsoft ActiveX Data objects 2.5 library类 第五步：在声明内声明connection、recordset对象实例，并赋给相应变量 本例为本地调用，采用早期绑定，仅使用ADO两个最重要的对象connection和Recordset对象 connection对象，负责从客户端到数据库服务器的连接，即指定要用到的数据库 recordset对象：表示查询结果集，查询结果返回给该对象。 注意若要在类模块内声明还得指明APP，这里不讲，读者先自己探索吧 Public dbconnect As ADODB.Connection Public rs As ADODB.Connection Set dbconnect = New ADODB.Recordset Set rs = New ADODB.Recordset Public dbconnect As New ADODB.Connection Public rs As New ADODB.Recordset Private Sub CommandButton1_Click() 若连接对象已经建立，关闭它 If dbconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then dbconnect.Close 指定用于连接的提供者的名称，我理解为数据源的设备驱动程序 dbconnect.Provider = microsoft.jet.oledb.4.0 access 97 ois 3.51 通过传递详细的字符串来指定数据源，这里取用了相对路径调用 dbconnect.ConnectionString = data\function_chr.mdb 建立连接 dbconnect.Open 若记录集已经打开关闭它 If rs.State = adStateOpen And Not IsEmpty(adStateOpen) Then rs.Close 按用户要求打开记录集,open的具体用法请查阅帮助 rs.Open chr, dbconnect, adOpenDynamic, adLockOptimistic chr是表名，包含中function_chr.mdb里，结果为全部字段的记录集 rs.Open select rubric from chr, dbconnect, adOpenDynamic, adLockOptimistic 查询结果为仅含字段Rubric的记录集 使用当前记录给幻灯片内的控件属性赋值，记录的移动等大家自己研究吧 Me.TextBox1.Text = rs!rubric me指的是当前幻灯片，并非VB工程窗口，可以省略 Me.CheckBox1.Caption = rs!option1 Me.CheckBox2.Caption = rs!option2 Me.CheckBox2.Caption = rs!option3 Me.CheckBox2.Caption = rs!option4 调用完毕后，记得关闭、撤销对象，释放内存资源 rs.Close 该方法仅关闭之，对象并未撤销，可再次调用 Set rs = Nothing 撤销对象 Set dbconnect = Nothing 至于如何实现另建一个用户窗体修改试题或是在PPT实现试题库修改，以及把结果保存入ACCESS库，大家来续接吧，这里不再多讲的。 End Sub 原理：后期绑定外部ACCESS数据库；