综合一.docVIP

实验日期：2010年 6 月 20 日 实验题目：教学成绩管理系统的VB实现代码调试 实验目的与内容： 目的：实验内容：1、2．进行代码调试 实验步骤与程序清单： 1、编写代码 （2）教学成绩管理用户初始化 （3）ConnectString SQL Server 数据库 Public Function ConnectString() As String ConnectString = driver={SQL Server};SERVER= HostName _ 附注 实验步骤与程序清单（续）： ;DATABASE=教学成绩管理数据库;UID= ConnectUserName ;PWD= ConnectPassWord End Function （4）ExecuteSQL Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset 传递参数：SQL 传递查询语句，MsgString传递查询信息，返回执行结果记录集 Recordset Dim cnn As ADODB.Connection 定义连接 Dim rst As ADODB.Recordset 定义返回结果：记录集 Dim sTokens() As String 定义字符串 On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then cnn.BeginTrans cnn.Execute SQL cnn.CommitTrans MsgString = sTokens(0) 查询成功 Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查询到 rst.RecordCount 条记录 End If ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误: Err.Description Resume ExecuteSQL_Exit End Function 附注（续） 实验步骤与程序清单（续）： （5）menu_setup 后面都调试成功 附注（续） 实验步骤与程序清单（续）： （6）按专业班级查询学生档案调试没成功 （7）数据备份 （8）数据还原调试没成功 （9）系部信息表插入 （10）系部信息表返回 附注（续） 实验步骤与程序清单（续）： （11）系部信息表删除 （12）系部信息表修改 （13）系统登录 附注（续） 实验结果分析： 1、测试数据及结果2、实验中的错误、原因及修改。3、