VB6与SQL Server交互无响应，无经验开发者求调试方法

嘿，我经常碰VB6的老项目，这种无响应直接崩的情况太常见了，给你一步步捋清楚怎么调试：

1. 先揪出SQL语句的问题（大概率是这里！） #

• 先看你拼接的SQL，如果tip是字符串类型，你的写法完全错误！字符串值必须用单引号包裹，正确写法是：

  Data9.RecordSource = "select * from zag_d where tip='" & tip & "'"
  

  要是没加单引号，数据库会把tip的取值当成字段名，直接触发语法错误，严重的就会卡死。
• 不管tip是数字还是字符串，先把拼接好的SQL打印出来看，比如加一句：

  MsgBox "Data9执行的SQL：select * from zag_d where tip=" & tip
  

  把弹出的SQL复制到数据库的查询工具（比如Access查询设计器、SQL Server SSMS）里直接运行，看看：
  • 会不会报错？
  • 是不是返回了几万甚至几十万条数据？Data控件一次性加载大量数据肯定会卡死，这时候得加分页或者TOP限制数量。

2. 用VB6的断点逐行定位崩溃点 #

VB6虽然偶尔会直接崩，但断点调试还是能用的：

• 在Data9.RecordSource = ...这行前面按F9加断点，然后按F5启动程序；
• 运行到断点后，按F8逐行执行：
  • 先执行赋值语句，看有没有异常；
  • 再执行Data9.Refresh——这一步是核心，因为要连接数据库并加载数据，如果到这一步无响应，问题肯定出在Data9的连接或者这条SQL上；
  • 如果Data9没问题，再用同样的方法排查Data1的两行代码。

3. 检查Data控件的配置和数据库连接 #

• 确认Data9、Data1的Connect属性是否正确：比如Access数据库要选Microsoft Access (*.mdb)，ODBC数据源要指向正确的配置；
• 看看Exclusive属性是不是设成了True，如果是，多个控件或程序同时访问数据库会锁表，直接卡住；
• 建议换成ADO控件（ADODC）试试，VB6后期的ADO比旧的Data控件稳定太多，很多老项目的Data控件问题换ADO就解决了。

4. 排查数据库本身的问题 #

• 检查zag_d表是否损坏：比如Access里用「数据库工具」→「压缩和修复数据库」功能修复一下；
• 确认tip字段的类型和你传入的tip变量类型一致：比如字段是文本，你传了数字，或者反过来，都会导致查询异常；
• 看看有没有其他程序在占用数据库文件：比如别人正在编辑，或者杀毒软件在扫描，导致文件被锁定。

5. 加错误捕获，拿到具体错误信息 #

VB6默认可能不弹错误提示直接崩，所以给代码加个错误捕获：

On Error GoTo ErrorHandler
' 你的原有代码
Data9.RecordSource = "select * from zag_d where tip=" & tip
Data9.Refresh
Data1.RecordSource = "Select distinct god,broj,partner,interno from zag_d where tip=" & tip
Data1.Refresh
Exit Sub

ErrorHandler:
MsgBox "错误代码：" & Err.Number & vbCrLf & "错误描述：" & Err.Description

这样就算要崩，至少能拿到具体的错误码和描述，不会两眼一抹黑。

内容的提问来源于stack exchange，提问作者itisup