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

VB里头怎么搞SQL数据库查询，步骤和注意点都得懂点

称怜
问答
2026-01-11 19:31:54
1

行,那咱们就直接开讲在VB里头怎么搞SQL数据库查询，这事儿说白了就是让你的VB程序能和数据库说上话，从里面拿点数据出来，或者往里放点东西，你别把它想得太复杂，就跟去仓库里取货、存货差不多。

第一步：先把“桥”架起来——连接数据库

你想跟数据库打交道,首先得连上它，对吧？这就好比你想从仓库拿东西，总得先找到仓库的大门，并且用正确的钥匙把门打开。

引用“桥梁”组件： VB自己本身不能直接跟SQL数据库对话，需要一个翻译官，这个翻译官就是ADO（ActiveX Data Objects），你首先得在你的VB项目里，把这个组件请进来。
- 操作： 在VB的开发环境中，点击菜单栏的“工程”，然后选择“引用”，在弹出的长长列表里，找到并勾选“Microsoft ActiveX Data Objects x.x Library”，这个“x.x”是版本号，通常选一个比较新的、比如2.8或以上的就行。（来源：基于VB6及ADO技术的常见数据库编程入门指南）
写连接代码： 钥匙准备好了，现在要告诉程序仓库地址和开门的密码。
- 核心对象： 你需要用一个叫 ADODB.Connection 的对象。
- 连接字符串： 这是最关键的一步，它是一串文本，里面包含了所有连接信息，就像地址和密码都写在一张纸条上。
  - 如果连的是本地Access数据库,可能像这样："Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\我的数据库.mdb;"
  - 如果连的是SQL Server，可能像这样："Provider=SQLOLEDB;Data Source=你的服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码;"
- 注意点：
  - 数据源路径： 路径一定要写对，最好使用绝对路径（从盘符开始的全路径），相对路径有时候会找不着北。
  - 密码安全： 直接把密码写在代码里是不安全的，如果只是自己学习倒没关系，但如果是正式的程序，要想办法加密或者让用户输入。
  - 异常处理： 开门可能失败（比如密码错了、网络断了），所以连接数据库的代码最好用 On Error GoTo 之类的语句包起来，万一失败了能给用户个提示，而不是让程序直接崩溃。

第二步：派个“办事员”去干活——执行查询

门打开了,现在可以派个人进去办事了，这个办事员就是 ADODB.Recordset 对象。

写SQL查询语句： 你得告诉办事员具体要干什么，是用SQL语言写的命令。
- 查数据（SELECT）： "SELECT 姓名，年龄 FROM 员工表 WHERE 部门='销售部'"
- 插数据（INSERT）： "INSERT INTO 员工表 (姓名，年龄) VALUES ('张三'， 28)"
- 改数据（UPDATE）： "UPDATE 员工表 SET 年龄=29 WHERE 姓名='张三'"
- 删数据（DELETE）： "DELETE FROM 员工表 WHERE 姓名='李四'"
执行并拿到结果：
- 核心代码： 创建一个 Recordset 对象，然后用它打开（Open）你写的SQL语句。
- 示例：
```
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
conn.Open "你的连接字符串" ' 替换成实际的字符串
sql = "SELECT * FROM 员工表"
rs.Open sql， conn ' 执行查询，结果会放在rs这个记录集里
```
- 注意点：
  - SQL语句别写错： 这是最容易出问题的地方，表名、字段名不能错，字符串要用单引号包起来，建议先在数据库管理工具（比如SQL Server Management Studio）里把SQL语句测试通过，再复制到VB代码里。
  - 记录集的游标和锁类型： rs.Open 方法后面还可以跟一些参数，用来控制怎么浏览数据、数据能不能修改等，刚开始学，可以先不管，用默认值也行，但要知道有这回事，比如有时候你想让用户修改查出来的数据，就需要设置特定的锁类型。（来源：ADO Recordset Open方法参数说明）

第三步：处理“办事员”带回来的结果

办事员 rs 已经把数据从仓库里取出来了，现在你得把这些数据在程序里用起来。

遍历数据： 如果查询返回的是多条记录，你需要一条一条地处理。
- 常用循环： 使用 Do While Not rs.EOF ... Loop 循环。EOF 的意思是“文件末尾”，只要没到末尾就继续读。
- 读取字段值： 用 rs.Fields("字段名").Value 或者简写 rs("字段名").Value 来获取当前这条记录的某个字段的值。
- 示例： 把查询到的员工姓名显示在列表框List1里。
```
Do While Not rs.EOF
    List1.AddItem rs("姓名").Value
    rs.MoveNext ' 非常重要！移动到下一条记录
Loop
```
- 注意点：
  - 千万别忘了MoveNext： 这是新手最容易犯的错误！如果你不移动指针，程序就会永远停在第一条记录，陷入死循环。
  - 检查是否有数据： 在执行循环前，可以用 If Not rs.BOF And Not rs.EOF Then 先判断一下记录集是不是空的，避免对空数据集进行操作。BOF是“文件开头”。
处理单条结果： 如果你确信只返回一条记录（比如按主键查），那就不需要循环，直接读取就行。
- 示例： Label1.Caption = rs("年龄").Value

第四步：收拾现场，关门——关闭连接

活儿干完了,得让办事员回来，并且把仓库大门锁上，不然占着资源不安全。

代码：

rs.Close   ' 关闭记录集
conn.Close ' 关闭连接

注意点：
- 养成好习惯： 只要打开了连接和记录集，用完后一定要记得关闭，这就像“谁开门谁关门”一样，是基本的规矩，不然连接一直开着，可能会把数据库服务器拖慢，或者达到最大连接数限制，别人就连不上了。
- 释放资源： 更规范的做法是，除了Close，还要把对象变量设为Nothing，如 Set rs = Nothing 和 Set conn = Nothing，这样可以彻底释放内存资源。

总结一下关键心法：

流程固定： 连接 -> 执行 -> 处理 -> 关闭，这个流程几乎不变。
错误处理是护身符： 数据库操作充满不确定性（网络、权限、SQL语法），一定要用 On Error GoTo 语句做好错误处理，给用户友好的提示。
SQL语句是灵魂： VB代码只是搬运工，真正决定干什么的是SQL语句，SQL学得好，VB数据库编程就成功了一大半，建议分开练习，先在数据库工具里把SQL练熟。
安全第一： 警惕“SQL注入”攻击，如果你SQL语句里的条件值是从用户输入框直接拿过来的，坏人可能会输入一些特殊字符拼成恶意的SQL命令，比如删掉你的整个表，对于用户输入，一定要进行过滤或使用参数化查询（这是更高级的话题，但非常重要）。（来源：Web安全中关于SQL注入的原理与防范）

这些东西你多写几遍,出几次错，慢慢就熟了，刚开始可能会被连接字符串、SQL报错搞得头大，但这就是必经的过程。

VB里头怎么搞SQL数据库查询，步骤和注意点都得懂点