当前位置：首页 > 问答 > 正文

VB6.0里头怎么用数据库连接函数，简单说说那些常见的调用和注意点

芮以莲
问答
2026-01-20 00:05:01
2

在VB6.0里头，连接数据库是做个软件经常要碰到的事情，尤其是连接像Access、SQL Server这样的数据库，那时候最常用的方法就是用ADO（ActiveX Data Objects），这个算是当时比较新、也比较强大的技术了，下面就直接说说怎么用，以及一些容易出问题的地方。

准备工作：先把工具引进来

在用ADO之前,你得先把它请到你的VB项目里来，这就像你要用个特殊的工具，得先从工具箱里把它找出来，操作是这样的：在VB6.0的开发环境中，点击菜单栏的“工程”，然后选择“引用”，会弹出一个长长的列表，你在里面找到并勾选“Microsoft ActiveX Data Objects 2.x Library”（这个x可能是5、6、7、8，版本越高功能一般越新，选个你系统里有的、版本不太旧的就行，比如2.8），勾选上之后，你的程序就获得了使用ADO超能力的机会。

连接数据库的核心步骤和代码

连接数据库,说白了就几步：声明连接对象、设置连接字符串、打开连接、操作数据、关闭连接。

声明对象 通常我们会用到两个主要对象：Connection（连接）和Recordset（记录集）。Connection负责跟数据库建立一条通路，Recordset就像个搬运工，负责把数据库里的数据表或者查询结果搬过来让你处理。一般在模块的开头或者窗体的“通用声明”部分，你会这样写：
```
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
```
这就像是告诉VB,我准备用这两个东西了，你给我准备好。
建立连接字符串并打开连接 这是最关键的一步，连接字符串就是一串代码，里面告诉VB你的数据库在哪、叫什么名字、用什么账号密码登录等等。举个例子，连接一个当前程序所在目录下的Access数据库（.mdb文件）：
```
Set conn = New ADODB.Connection ' 创建一个新的连接对象
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你的数据库名.mdb;"
conn.Open ' 正式打开连接
```
这里解释一下连接字符串：
- Provider=Microsoft.Jet.OLEDB.4.0：这是说使用Jet引擎来连接Access数据库（对于老版本的.mdb文件）。
- Data Source=：后面跟着数据库文件的完整路径。App.Path表示你程序运行的当前目录，这样写的好处是，无论你的程序放在电脑的哪个位置，它都能自动找到同文件夹下的数据库。如果是连接SQL Server，字符串会复杂点，需要指定服务器名、数据库名、用户名和密码。
执行操作（比如查询） 连接打开后，你就可以通过Recordset对象来取数据了。
```
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM 表名", conn, adOpenStatic, adLockReadOnly
```
- 第一个参数是SQL语句,比如这里就是查询“表名”里的所有数据。
- 第二个参数就是你刚才建立好的那个conn连接对象。
- 第三和第四个参数是游标类型和锁类型,简单理解就是：adOpenStatic是做个数据快照，你查的时候数据什么样就看到什么样，别人改了你也看不到；adLockReadOnly是只读，这样速度快，而且不会不小心改到数据，如果只是显示数据，用这两个参数组合很常见。

处理数据 打开了记录集rs之后，你就可以用循环来一条条读数据了。

Do While Not rs.EOF ' 只要没到记录集的末尾就循环
    ' 假设你的表有"姓名"和"年龄"两个字段
    Text1.Text = rs("姓名").Value ' 把当前记录的"姓名"字段值显示在Text1文本框里
    Text2.Text = rs("年龄").Value
    rs.MoveNext ' 移动到下一条记录
Loop

收尾工作：关闭连接 这点非常重要！用完数据库一定要记得关闭连接，释放资源，不然连接一直开着，占着内存，开多了还可能把数据库拖慢或者导致程序报错。
```
rs.Close ' 先关闭记录集
Set rs = Nothing ' 释放记录集对象
conn.Close ' 关闭连接
Set conn = Nothing ' 释放连接对象
```
养成Close后紧跟Set ... = Nothing的习惯是个好 practice。

常见的注意点和容易踩的坑

引用问题：最常遇到的问题就是一开始忘了在“引用”里勾选ADO库，结果你一运行程序，VB就会报错，说“用户定义类型未定义”，指的就是你声明的ADODB.Connection这类类型它不认识，所以第一步一定要做对。
连接字符串写错：这是第二个大坑，特别是路径不对、文件名打错、或者数据库文件被独占打开（比如你用Access软件正看着这个文件），错误提示通常是“无法找到文件”或者“操作必须使用可更新的查询”，一定要仔细检查路径和文件名，确保数据库没被别的程序独占打开。
忘了关闭连接：就像前面说的，这是个坏习惯，特别是在程序里反复连接数据库的情况下，不关闭会导致“连接泄露”，最终可能让程序崩溃或者数据库无响应，尽量把关闭连接的代码写在错误处理或者 finally 块里（VB6里可以用On Error GoTo配合清理代码），确保即使程序出错，连接也能被关闭。
SQL注入风险（如果涉及用户输入）：如果你的SQL语句里有部分是用户从文本框输入的内容拼接进去的，"SELECT * FROM users WHERE name='" & Text1.Text & "'"，这就有很大风险，如果用户在文本框里输入一些特殊的字符或SQL命令，可能会破坏你的查询逻辑，甚至删除数据，解决办法是使用参数化查询，这是ADO支持的高级功能，能有效避免这个问题，不过对于初学简单应用，如果只是自己用或者内网环境，可能暂时不涉及，但一定要有这个安全意识。
记录集遍历完后复位：有时候你可能需要重新从第一条记录开始读，在遍历完一次后，记录指针在最后（EOF），你需要用rs.MoveFirst方法把指针移回开头，才能再次遍历。