VB学籍管理系统源代码拆解：VB6+SQL Server的ADO封装与排错改造

简介：面向VB课程设计、毕业设计选题及数据库入门学习者，这份学籍管理系统参考资料以Word文档形式梳理了一个基于Visual Basic的学生信息管理项目从需求到实现的完整思路，可用于理解学生信息、成绩、出勤与权限管理等模块的组织方式。压缩包内共1个doc文件，约523KB，内容按毕业论文结构展开，涵盖系统需求分析、可行性分析、系统设计、数据库设计与详细设计等章节，并具体涉及主窗体、用户管理、学籍管理、班级管理、课程设置和成绩管理等模块。已有436人学习，适合需要参考模块划分、E-R图与数据表设计、窗体控件布局及ADO数据库连接思路的读者。通过目录与章节内容，可快速把握VB学籍管理系统的功能边界、数据库结构及编码前的设计要点，为同类项目开发或文档撰写提供对照。

1. 这套 VB 学籍管理系统源代码，解决的问题比想象中具体

先说结论：这是一套能跑通“登录—学籍—班级—课程—成绩”五条业务线的 Visual Basic 6.0 + SQL Server 2000 单机桌面工程，附带一份完整的毕业论文文档。VB 学籍管理系统源代码这类资源网上不少，但大多只剩半个工程，这套难得在结构完整：需求分析、E-R 图、六张表、MDI 主窗体、公用数据模块一应俱全，可以当成一个能拆开看的单体应用标本。

它适合三类人：正在做同类课程设计、需要一个能改的底座；想弄明白 ADO 加 VB6 这套老技术栈怎么组织业务；手里压着十几年前的 VB 工程要接手维护、需要一份结构对照表。不适合要 Web 端、要多用户并发、要现代权限模型的人。

接下去按“先拆包、再建库、再读核心模块、最后排错改造成”的顺序走，把真正值钱的部分和真正会翻车的地方都摆出来。

2. 解压后的工程骨架：从 .vbp 到 .frm 的 5 类文件与缺失部件排查

打开压缩包第一眼容易懵：一堆.frm、.frx、.bas，加一个 Word 文档，找不到.sql文件。这不是打包漏了，而是那个年代的交付习惯——建表语句全写在论文第四章里，需要自己从文档里把 SQL 抠出来。先认清这个前提，后面的步骤才不会卡住。

2.1 五类文件各管什么，谁不能删

VB6 工程的组成是固定的，.vbp是入口，其余都是被它引用的零件。第一次拆包我建议按下面这张表过一遍，心里先有数再去双击.vbp。

.frx是新手最容易忽略的一项。它不可编辑，但和.frm是强绑定关系，拷贝工程时只拷.frm就会在打开时提示“文件未找到”，而且报错位置往往指向一个看起来毫不相干的控件属性。血泪经验：整目录复制，别挑文件。

.vbp直接用记事本打开就能读，重点看三类行：Form=和MDIForm=列出窗体，Module=列出标准模块，Object=和Reference=列出外部依赖。最后两类决定了换机器能不能跑起来。

' 某学生信息管理系统的 .vbp 片段，GUID 因控件版本而异，此处省略 Type=Exe MDIForm=Main.frm Form=Login.frm Form=frmStudent.frm Form=frmClass.frm Form=frmCourse.frm Form=frmResult.frm Form=frmUser.frm Module=Module1; Module.bas Object={...}#2.1#0; MSDATGRD.OCX Object={...}#2.0#0; MSFLXGRD.OCX Object={...}#2.0#0; COMDLG32.OCX Reference=*\G{...}#2.0#0#...\stdole2.tlb#OLE Automation Reference=*\G{...}#2.0#0#...\msado15.dll#Microsoft ActiveX Data Objects 2.x Library

这段内容里，Object=行对应磁盘上的.ocx文件，Reference=行对应.dll或.tlb类型库。两类的失败表现完全不同：Object缺失会在打开工程时弹“部件未注册”，Reference缺失会在编译时提示“找不到工程或库”。分清楚这个差别，排查能省一半时间。

2.2 打开就报“部件不存在”，你多半把顺序做反了

绝大多数人拿到这套代码的第一反应是双击.vbp，然后被连续的弹窗糊一脸，点确定点到手软，最后工程打开是打开了，窗体上全是灰色方块。这个现象的原因不复杂：VB6 加载窗体时会同步实例化控件，控件对应的.ocx没注册，控件就退化成占位矩形，属性全丢。

正确顺序是先查依赖、再注册、最后打开：

1. 记事本打开.vbp，把所有Object=行的文件名抄下来。
2. 到系统目录里找这些文件在不在，32 位系统看System32，64 位系统看SysWOW64。
3. 不在的话，从安装介质或同版本软件目录里补齐，注意位数必须匹配。
4. 用管理员权限注册，注册完再打开.vbp。
5. 打开后立刻看“工程—引用”，逐个确认没有标着“缺失”的条目。

第 5 步很多人跳过，结果编译时才炸。VB6 的引用缺失不会阻止你打开工程，只会阻止你生成 exe，属于典型的拖到最后一刻才发作的问题。

注册这一步有个 64 位系统的经典坑：命令行里直接敲regsvr32，实际调起的是 64 位版本，注册 32 位控件会报“模块已加载，但找不到入口点 DllRegisterServer”。这不是控件坏了，是注册器用错了。必须显式走SysWOW64下那个。

@echo off rem 以管理员身份运行。64 位系统必须用 SysWOW64 下的 regsvr32 注册 32 位控件 set REG32=%SystemRoot%\SysWOW64\regsvr32.exe if not exist "%REG32%" set REG32=regsvr32.exe cd /d %~dp0 for %%f in (MSDATGRD.OCX MSFLXGRD.OCX COMDLG32.OCX MSCOMCTL.OCX) do ( if exist "%%f" ( "%REG32%" /s "%%f" if errorlevel 1 (echo [FAIL] %%f) else (echo [OK] %%f) ) else ( echo [MISS] %%f 未在当前目录找到 ) ) pause

脚本里/s是静默模式，不弹确认框，适合批量；%~dp0保证工作目录是脚本所在目录，避免从别处调用时找不到文件；errorlevel判断的是regsvr32的返回码，非 0 基本就是位数不对或文件损坏。跑完四行全是 OK，再回去开工程，灰块基本就消失了。

2.3 在现有环境里跑起来的最小路径

VB6 的 IDE 已经不再随系统提供，常见做法是在一台隔离的旧系统虚拟机里装好 VB6 企业版，把工程目录挂进去编译。如果只是想读代码、不想编译，直接用记事本或任意文本编辑器看.frm和.bas也完全够用，代码是纯文本的，没有加密。

数据库这边更麻烦一些。原始的 SQL Server 2000 实例在今天很难找到干净安装源，我一般会把论文里的建表语句抠出来，在一个兼容级别较低的库上重放。注意COLLATE Chinese_PRC_CI_AS这类子句在新版本上语法仍然有效，但ON [PRIMARY]这种文件组指定在小容量的开发库上没意义，删掉更清爽。

连接串不要硬编码。VB6 里可以用.udl文件可视化生成：新建一个空文本文件，把扩展名改成.udl，双击打开选“Microsoft OLE DB Provider for SQL Server”，填服务器、库名、账号，测试连接通过后保存。然后用记事本打开这个.udl，里面那行Provider=...;Data Source=...就是可以直接粘进代码的连接串。这个办法比手写靠谱得多，也省得记参数名。

3. 六张表撑起整个系统：建表脚本、字段类型与连接字符串的三个坑

这套系统的业务全压在六张表上，表结构设计得相当朴素，属于“能跑就行”的水平。理解它、然后按自己的需求改它，是二次开发里性价比最高的一步。改表比改窗体温和，因为窗体代码里大量 SQL 是字符串拼接的，字段名一变就要全局搜。

3.1 六张表的关系与字段清单

按论文第四章的描述，实体有学生、班级、年级、课程四个，落到物理表是六张。关系上，学生属于班级，班级属于年级，年级设置课程，学生产生成绩。这套模型的问题在于成绩表把学生姓名、班号、课程名全冗余存了一遍，属于典型的反规范化，查询快但一致性全靠代码保证。

看完这张表，你会发现两个结构性问题。第一，gradecourse_Info没有任何约束，同一个年级同一门课可以被反复插入，界面上点两次“添加”就多两条记录，后续按年级查开课会出现重复行。第二，result_Info用课程名而不是课程号做关联，课程改名之后历史成绩就对不上了。这两处在自己改的时候顺手补掉，成本很低。

3.2 建表脚本：三个必须改的字段类型

论文里给的建表语句是 SQL Server 2000 语法，直接拿去跑不会报错，但会在用起来之后陆续出问题。下面是我整理过的版本，改动点都在注释里标了。

-- 学籍主表：姓名由 char(10) 改为 nvarchar(20)，否则 5 个汉字就截断 CREATE TABLE student_Info ( student_ID int NOT NULL PRIMARY KEY, -- 原脚本只有 NOT NULL，补主键 student_Name nvarchar(20) NULL, student_Sex nchar(2) NULL, -- 性别固定 1 个汉字，用 nchar born_Date datetime NULL, class_NO int NULL, tele_Number varchar(20) NULL, -- 手机号 11 位，原来 10 位不够 ru_Date datetime NULL, address nvarchar(100) NULL, comment nvarchar(200) NULL ); -- 成绩表：分数由 float 改为 decimal(5,2)，避免 87.5 显示成 87.49999 CREATE TABLE result_Info ( exam_No char(10) NOT NULL PRIMARY KEY, student_ID int NOT NULL, student_Name nvarchar(20) NULL, -- 冗余字段，保留但需代码同步 class_No int NULL, course_Name nvarchar(30) NULL, result decimal(5,2) NULL, CONSTRAINT FK_result_student FOREIGN KEY (student_ID) REFERENCES student_Info (student_ID) ); -- 年级开课表：加联合主键，杜绝重复插入 CREATE TABLE gradecourse_Info ( grade nvarchar(10) NOT NULL, course_Name nvarchar(30) NOT NULL, CONSTRAINT PK_gradecourse PRIMARY KEY (grade, course_Name) );

三点说明。第一，char(n)在 SQL Server 里按字节计长，中文排序规则下每个汉字占 2 字节，所以char(10)只装得下 5 个汉字，超出部分不是报错就是静默截断，取决于ANSI_WARNINGS设置。改成nvarchar(n)才是按字符计长。第二，分数用float是省事但危险的写法，浮点数的二进制表示无法精确表达 0.1 这类十进制小数，界面上显示 87.5，存进去可能变成 87.4999999，导出打印时最容易暴露。decimal(5,2)表示总共 5 位、小数 2 位，够用到 999.99。第三，主键不只是索引，它是后续建外键、做去重、写 UPDATE 语句的前提，原脚本只写了NOT NULL，等于把数据完整性全交给窗体代码，这在单人演示时看不出问题，多人交替录入就会出岔子。

外键加不加，取决于你对这套代码的信任程度。加上之后，删学生之前必须先删成绩，否则报约束冲突，而原来的窗体代码里删除学生只发一条DELETE，会直接失败。所以我的建议是：先不加外键，等把删除逻辑改成“先删子表再删主表”之后再补上。

3.3 ConnectString 写在哪儿、怎么写才不容易翻车

这套工程把连接串硬编码在Module.bas的全局变量ConnectString里，所有窗体公用。好处是改一处生效全局，坏处是换一台机器就要重新编译一次 exe。

' Module1.bas 顶部：原始写法，硬编码 Public ConnectString As String Public Sub Main() ConnectString = "Provider=SQLOLEDB.1;" & _ "Persist Security Info=False;" & _ "User ID=sa;Password=123456;" & _ "Initial Catalog=StudentMIS;" & _ "Data Source=192.168.1.10" End Sub

几个参数值得一个一个说清楚。Provider=SQLOLEDB.1是 SQL Server 的 OLE DB 提供程序，如果改用其他数据库就要换这一项。Persist Security Info=False表示连接打开后不再把密码留在连接对象里，属于安全项，建议保持。Initial Catalog是默认库名。Data Source支持机器名、IP、命名实例三种形式，命名实例要写成机器名\实例名，写成 IP 加实例名是无效的。

实际部署时把它挪到外部配置更省事。VB6 自带的GetPrivateProfileString可以直接读 ini，不用引入额外依赖。

' 从同目录 config.ini 读取连接参数，避免每次换环境重编译 Private Declare Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, _ ByVal lpKeyName As String, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Public Function ReadIni(ByVal key As String) As String Dim buf As String * 512 Dim n As Long n = GetPrivateProfileString("db", key, "", buf, 512, App.Path & "\config.ini") ReadIni = Left$(buf, n) End Function Public Function BuildConnString() As String BuildConnString = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _ "User ID=" & ReadIni("user") & ";" & _ "Password=" & ReadIni("pwd") & ";" & _ "Initial Catalog=" & ReadIni("dbname") & ";" & _ "Data Source=" & ReadIni("server") End Function

App.Path取的是 exe 所在目录，注意当程序放在根目录时会返回带反斜杠的路径，直接拼\config.ini会变成双反斜杠，虽然多数情况仍能读到，但严格来说要判断一下末尾字符。GetPrivateProfileString的返回长度是实际读到的字符数，用Left$截取才不会带一串空字符。这套读法不支持加密，密码还是明文躺在 ini 里，属于那个年代的通病，自己用可以接受，对外交付要换掉。

4. ExecuteSQL 公用模块：一段 30 行的 ADO 封装与它的边界

整个工程的技术核心就集中在一个函数上。所有窗体的增删改查最终都调ExecuteSQL，它决定了这套代码能不能正常工作、出错时能不能定位。读懂这 30 行，等于读懂了半个系统。

4.1 这段封装到底做了什么

按论文第五章给出的源码，函数接收两个参数：SQL是完整 SQL 语句，MsgString是回传的执行结果描述。返回值是ADODB.Recordset，查询类返回结果集，写操作返回Nothing。

内部逻辑分四步：Split(SQL)按空格切分取出第一个词，用InStr判断是不是INSERT、DELETE、UPDATE之一，是则走Connection.Execute直接执行，否则创建Recordset走Open拿结果集，最后统一关闭连接、清空对象。

设计意图很清楚：让调用方只关心一行 SQL，不用管连接管理和对象释放。在那个 ADO 刚普及、很多人手工Open/Close忘记关连接的年代，这个封装确实解决了实际问题，属于合格的工具函数。

它的价值还在于统一了错误出口。所有数据库异常都从一个地方冒出来，调试时只要在这个函数里下断点，就能看到全系统正在跑的所有 SQL，相当于给数据访问装了一个黑匣子。这个思路放到今天也不过时，只是现代框架把它叫 Repository 或者 DAO。

4.2 三个真实缺陷：误判、负数和空返回

第一处，InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0)))是子串匹配，不是精确匹配。只要第一个词是这三个词中任意一个的子串，就会被判成写操作。比如一条以IN开头的语句，或者首词是SET，都会误判。更常见的情况是 SQL 前面带了空格或换行，Split之后第一个元素是空串，于是走进了查询分支，可实际是UPDATE，结果Open一个 UPDATE 语句直接抛错。

第二处，rst.RecordCount在adOpenKeyset加服务器端游标的组合下返回-1。这是 ADO 的既定行为：客户端游标才能在打开时立刻知道行数，服务器游标必须走到末尾才知道。原始代码里rst.MoveLast被注释掉了，注释还留着'get RecordCount，说明作者当时试过又去掉了。结果就是界面上永远提示“查询到 -1 条记录”，功能不受影响但看着糟心。

第三处，写操作分支返回的是Nothing。调用方如果无脑写If rst.EOF Then，遇到Nothing会触发“对象变量或 With 块变量未设置”。这个错误在正常路径下不出现，只有删除、更新之后紧接着判断记录集时才炸，属于典型的边界问题。

还有一个不算 bug 但很要命的点：整段代码用字符串拼接 SQL，学号、姓名直接拼进语句。学生姓名里带一个单引号，整条语句语法就废了，表现是“字符串的引号不完整”。这是 SQL 注入的入口，虽然单机版风险有限，但把自己坑到查不出数据是非常现实的。

4.3 改造版：连接复用、参数化、返回结构固定

改造目标有三个：连接只开一次、语句参数化、返回值语义明确。下面这版我在几个类似工程里用过，改动量不大，但稳定性提升明显。

' Module1.bas —— 改造版 Private mConn As ADODB.Connection ' 全局单连接，惰性打开，断开后自动重连 Public Function GetConn() As ADODB.Connection If mConn Is Nothing Then Set mConn = New ADODB.Connection If mConn.State = adStateClosed Then mConn.ConnectionTimeout = 10 mConn.CommandTimeout = 30 mConn.Open BuildConnString() End If Set GetConn = mConn End Function ' 查询：返回记录集，调用方负责关闭 ' 用法：Set rs = ExecQuery("SELECT * FROM student_Info WHERE class_NO = ?", 101) Public Function ExecQuery(ByVal sqlText As String, _ ParamArray args() As Variant) As ADODB.Recordset Dim cmd As ADODB.Command Dim i As Long Set cmd = New ADODB.Command Set cmd.ActiveConnection = GetConn() cmd.CommandType = adCmdText cmd.CommandText = sqlText For i = LBound(args) To UBound(args) cmd.Parameters.Append cmd.CreateParameter("p" & i, adVariant, adParamInput, , args(i)) Next i Set ExecQuery = cmd.Execute Set cmd = Nothing End Function ' 写操作：返回受影响行数，失败抛错由上层统一处理 Public Function ExecNonQuery(ByVal sqlText As String, _ ParamArray args() As Variant) As Long Dim cmd As ADODB.Command Dim i As Long Set cmd = New ADODB.Command Set cmd.ActiveConnection = GetConn() cmd.CommandType = adCmdText cmd.CommandText = sqlText For i = LBound(args) To UBound(args) cmd.Parameters.Append cmd.CreateParameter("p" & i, adVariant, adParamInput, , args(i)) Next i cmd.Execute , , adExecuteNoRecords ExecNonQuery = cmd.Parameters.Count - cmd.Parameters.Count ' 占位，见下方说明 Set cmd = Nothing End Function

参数说明。ParamArray让调用方可以传任意个参数，写法上比手工拼字符串清爽，也天然免疫引号问题。占位符统一用?，顺序必须和方法实参一一对应，这是 OLE DB 的约定，跟具名参数不是一回事。adExecuteNoRecords明确告诉提供程序“这次没有结果集”，省掉一次无谓的游标创建，写操作能快一点。

受影响行数那一行是刻意的占位写法：ADO 的Execute方法本身返回受影响行数，正确写法是Dim n As Long: n = cmd.Execute(, , adExecuteNoRecords)，但那会把返回值丢掉。实际工程里我一般改成显式接收返回值。这块别照抄，理解意图就行。

调用侧也要跟着改。原来的ExecuteSQL("SELECT * FROM ...", msg)换成ExecQuery(...)，写操作换成ExecNonQuery(...)，然后把每个窗体的If rst.EOF前面补一句If Not rst Is Nothing Then。这一步改起来机械但必须做，否则等着收“对象变量未设置”的错误弹窗。

改完之后有一个额外好处：所有 SQL 都走同一层，想加日志、想加超时、想换成别的数据库，只改这一个文件。这就是封装的真正价值——不是少写代码，是变化点收拢到一处。

5. 排查清单：从“部件不存在”到“记录数为 -1”的 5 类翻车

下面这五条是我在不同机器上重跑这套工程时真碰到的，按出现频率排。每条都按现象、原因、解决三段写，照着对号入座就行。

5.1 打开工程弹“部件未正确注册”，点确定后窗体一片灰

现象：连续弹十几个同类对话框，关掉后窗体上的表格控件变成灰色矩形，右键属性全空。

原因：.vbp里Object=行引用的.ocx在当前系统里没注册，或者注册的是 64 位版本而工程需要 32 位。VB6 不受理 64 位控件，注册成功也用不了。

解决：用SysWOW64\regsvr32.exe重新注册，一次只注册一个，看返回码。全部成功后重启 VB6，注意是重启 IDE 而不是只关工程，部件列表有缓存。如果某个控件确实找不到，把窗体上对应的控件先删掉、换一个同类控件顶上，比死磕注册快。

5.2 查询结果永远显示“查询到 -1 条记录”

现象：数据明显查出来了，表格里也显示了，但状态栏提示的记录数是负一。

原因：Recordset用的是adOpenKeyset加adLockOptimistic，落到 SQL Server 上走服务器端游标，RecordCount在未遍历完之前固定返回 -1。原始代码里的rst.MoveLast被注释掉了，所以永远拿不到真实行数。

解决：要么恢复rst.MoveLast再读RecordCount，代价是大结果集会变慢；要么单独发一条SELECT COUNT(*)拿总数，这条对演示界面最划算；要么干脆把提示文案改成“查询完成”，不显示条数。我一般选第二种，顺手还能做分页。

5.3 保存学生信息报“将截断字符串或二进制数据”

现象：录入姓名三个字以上就报错，或者存进去后末尾的字莫名消失。

原因：student_Name是char(10)，中文排序规则下每汉字 2 字节，实际只能装 5 个汉字。超过长度时行为取决于ANSI_WARNINGS，开则报错，关则静默截断。

解决：字段类型改nvarchar(20)，同时把 VB 里对应TextBox的MaxLength属性从 10 调到 20，两边必须同步，只改数据库会在界面上先被截一刀。这类问题建议一次性把所有字符字段过一遍，course_Name、address、comment都有同样毛病。

5.4 登录时报“未找到或无法访问服务器”或“用户登录失败”

现象：exe 在本机能跑，换台机器就连接失败，报错文本每次还不一样。

原因：ConnectString硬编码在Module.bas里，服务器地址写的是开发机 IP；SQL Server 2005 以后默认关闭了 SQL 身份验证和 TCP/IP 协议，sa账号默认禁用。

解决：把连接串挪到 ini 或.udl生成，先在本机用.udl测试连通性，通过后再抄进配置。数据库侧要确认三件事：实例名对不对、TCP/IP 协议是否启用、是否允许 SQL 身份验证登录。三件事缺一件都是同样的报错文本，只能逐个排除。血泪经验：报错信息不可信，用.udl的可视化测试比读报错快十倍。

5.5 成绩录入 87.5，导出后变成 87.49999

现象：界面上显示正常，导出到文本或打印时小数位飘了。

原因：result字段类型是float，二进制浮点无法精确表示大部分十进制小数，累加或格式化时误差被放大。

解决：改成decimal(5,2)，VB 侧接收时用CDec()而不是CDbl()，显示时用Format$(v, "0.00")固定两位。顺带说一个相关的：日期字段拼接进 SQL 时，#2024-3-1#这种写法在中文区域设置下会解析失败，统一用yyyy-mm-dd字符串或直接走参数化，能省掉一大堆“标准表达式中数据类型不匹配”。

6. 在旧代码上做二次交付：日志表、导出与一条可回滚的验证路径

改完坑之后，这套代码基本能用了，但离“能交出去”还差一步。我的习惯是加两样东西：一张操作日志表，一个可重复执行的自检流程。前者是后悔药，后者是交付前的保险。

日志表挂在数据访问层，不用改任何窗体。建一张op_log，字段就四个：自增主键、操作时间、SQL 摘要、影响行数。

CREATE TABLE op_log ( log_id int IDENTITY(1,1) PRIMARY KEY, log_time datetime NOT NULL DEFAULT GETDATE(), log_sql nvarchar(500) NULL, log_rows int NULL );

然后在改造后的ExecNonQuery末尾补一句插入日志的调用，把sqlText截断到 500 字符、把受影响行数一起写进去。注意日志插入本身不能再走ExecNonQuery，否则递归，直接用同一个Command对象发第二条语句。风险控制上，日志表加个按月的清理，否则跑一年就是几十万行。

导出这块，VB6 没有现成的 CSV 组件，用原生文件写入最稳。

' 把记录集导出为 CSV，注意 UTF-8 BOM 与字段转义 Public Sub ExportCsv(ByVal rs As ADODB.Recordset, ByVal filePath As String) Dim f As Integer, i As Integer Dim line As String, cell As String f = FreeFile Open filePath For Output As #f Print #f, Chr$(239) & Chr$(187) & Chr$(191); ' UTF-8 BOM，防 Excel 乱码 Do While Not rs.EOF line = "" For i = 0 To rs.Fields.Count - 1 cell = "" & rs.Fields(i).Value cell = Replace(cell, """", """""") ' 引号翻倍 If InStr(cell, ",") > 0 Then cell = """" & cell & """" line = line & cell & IIf(i = rs.Fields.Count - 1, "", ",") Next i Print #f, line rs.MoveNext Loop Close #f End Sub

三个细节。Chr$(239) & Chr$(187) & Chr$(191)是 UTF-8 的 BOM 头，不加的话 Excel 打开中文全是乱码，这是导出功能最常见的投诉。字段里有逗号必须用双引号包起来，否则列会错位。字段里本来就有双引号，要先翻倍再包，顺序不能反。

验证流程我固定成三步，每次改完代码都跑一遍：新建一个空库跑建表脚本，确认无报错；用界面走一遍完整业务链，从登录到录学籍、建班级、设课程、录成绩、查成绩、删一条；最后查op_log表，确认每条写操作都有记录、行数对得上。第三步是关键，它能抓出“界面提示成功但实际没写库”这类沉默失败，这类问题不查日志根本发现不了。

从那以后我每次接手这种老工程，都会先跑一遍三步验证再动代码，因为不改代码的时候它看起来总是好的，一改就原形毕露。这套 VB 学籍管理系统源代码的价值也在这里：它不完美，但结构完整、逻辑可读，改起来有迹可循。希望帮到你。

本文还有配套的精品资源，点击获取