数据库操作|引用方法|VB6中正确引用数据库的技巧与步骤，vb6 数据库 引用

🔍 VB6数据库操作指南：轻松掌握引用方法与技巧

场景引入：
凌晨3点，你盯着VB6泛蓝的代码界面，第N次弹出“运行时错误‘91’: 对象变量未设置”… 😫 隔壁同事的Python已经连上数据库开始分析，而你的ADO对象还在“玩失踪”？别慌！这篇指南就是你的VB6数据库急救包！

🛠️ 第一步：引用数据库组件（关键！）

错误示范：直接写Set conn = New ADODB.Connection → 报错！❌
正确操作：

1. 菜单栏点击【工程】→【引用】
2. 勾选 Microsoft ActiveX Data Objects x.x Library（选最高版本，如2.8）📦
   ✨ 小技巧：如果列表里没有，可能是系统缺少MDAC组件，需安装（参考文末补充）

🔗 第二步：连接数据库（以Access为例）

代码模板：

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\你的数据库.mdb"
conn.Open ' 打开连接！🚪

常见坑点：

• 路径用\而非，建议用App.Path动态获取当前目录
• Access 2007+改用：Provider=Microsoft.ACE.OLEDB.12.0

📂 第三步：操作数据（增删改查）

🔍 查询数据

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM 表名 WHERE 条件", conn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
    Debug.Print rs("字段名") ' 输出到立即窗口
    rs.MoveNext
Loop
rs.Close ' 记得关闭！🚮

✏️ 插入数据

conn.Execute "INSERT INTO 表名 (字段1,字段2) VALUES ('值1', 值2)"
' 或者用记录集：
rs.AddNew
rs("字段1") = "值1"
rs.Update

💡 高手技巧

1. 错误处理：加上On Error GoTo避免程序崩溃

   On Error GoTo ErrHandler
   '...数据库操作代码...
   Exit Sub
   ErrHandler:
   MsgBox "数据库抽风啦！错误：" & Err.Description, vbCritical

2. 提速秘诀：

   • 批量操作时用conn.BeginTrans和conn.CommitTrans（事务处理）⚡
   • 查询用WHERE限定范围，避免全表扫描

❓ 常见问题QA

Q：为什么引用ADO后还是报“用户定义类型未定义”？
A：检查是否勾选了正确的引用项，或者变量声明拼写错误（比如ADODB.Recordset少了个B）

Q：连接SQL Server怎么改？
A：替换连接字符串：

"Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码;"

📌 最后叮嘱

• 用完对象一定要.Close和Set xxx = Nothing释放资源！🗑️
• 2025年还在用VB6？考虑升级到VB.NET或C#吧~（但维护老项目的痛我们懂…）

附：MDAC组件缺失怎么办？
去微软官网搜索“MDAC 2.8 redistributable”下载安装（注意系统位数）