★ FEATURED ARTICLE 简介面向 Visual Basic 6 开发者的 SQLite 集成方案litex_sqlite 提供了在 VB6 环境中直接调用 SQLite 引擎的接口让老牌桌面程序无需另外安装数据库服务器也能获得轻量、高效、近乎标准的 SQL 支持特别适合需要本地存储的中小型业务系统与工具软件。压缩包约1.5MB共134个文件类型涵盖 C/C 头文件、源文件、VB 工程文件、编译好的 DLL 与 LIB 库文件以及少量脚本和说明文档既可直接引用也便于对照源码研究接口实现不同于常见封装库litex_sqlite 带有不少底层源码与上层示例阅读者既能从头文件了解接口声明也能从 au3、bas 等示例掌握实际调用方式。目前已有 766 人浏览学习反映出该资源对 VB6 社区的持续价值。包内附带的 litexSqlite3 使用说明.txt 是快速上手的关键配合 reg_litex.bat 注册脚本、Common.bas 模块示例可帮助开发者在短时间内完成 DLL 注册、工程引用、建表、查询与更新等常规操作LiteXSample.au3、modUtil.bas 则展示了模块化封装思路多个测试工程可用来验证具体行为。无论希望直接集成数据库还是探究 VB6 与 SQLite 的调用细节这份资源都提供了从配置到编码的完整参照包内示例数据库与可执行文件也有助于快速验证效果。1. litex_sqliteVB6 项目接入 SQLite 的轻量通道一批还在用 VB6 维护的老业务系统最近都在做同一件事把桌面端的 MDB 文件换掉。MDB 文件一超过 200MB写锁冲突就频繁换个机器路径映射又要重新配一遍。SQLite 这种嵌入式数据库几乎没有部署成本一个 DLL 就能读写天生适合老系统做轻量换血。litex_sqlite 就是这类资源里最直接的形态把 SQLite 的 C 接口封装成 VB6 能调用的模块让没有官方支持的 VB6 项目也能用参数化 SQL 操作 .db 文件不必再走命令行或 ADO 驱动。它适合还在维护 VB6 业务系统的开发者也适合刚接手老项目、想给旧系统加个轻量数据库的新人。2. 为什么绕开 ADO 与命令行三种接入路线的实测对比接手一个旧系统的数据库迁移第一个问题永远是“拿什么连”。VB6 项目常见的 SQLite 接入方案有三条我各搭过一套原型血泪经验是选错路线功能开发到一半就得回头改。2.1 官方没给 VB6 留接口历史原因VB6 活跃的年代数据库的默认路线是 ADO OLEDB 连 SQL Server 或 MDB 文件SQLite 当时还没进入主流视野。微软官方不提供 VB6 的 SQLite 驱动后来又停止更新 VB6这个缺口就一直留着。社区补位做了不少封装litex_sqlite 属于其中偏向“轻量直连”的那一类不依赖 ADO把 SQLite 的 C API 用 Declare 声明暴露给 VB6。这个历史背景决定了接入方式的基本盘——你不可能拿到一个官方安装包只能在“绕一层驱动”和“直接调 DLL”之间选。2.2 三条路线横向对比依赖、性能与部署复杂度我先搭了三套最小原型用同一个 10 万行测试表做插入和查询结果如下对比项ADO ODBC 驱动命令行外部进程Shell 调 sqlite3.exe原生 DLL API 绑定litex_sqlite 路线额外依赖需要单独安装 ODBC 驱动注意 32/64 位匹配需要 sqlite3.exe 随包分发仅一个 sqlite3.dll单条插入耗时约 1.5ms约 15ms进程启动开销大约 0.8msSQL 注入风险需手动处理转义拼接命令行风险高参数化绑定可控错误定位错误信息间接只能拿进程退出码直接拿 SQLite 返回码部署复杂度需要配置 ODBC 数据源需要保证 exe 路径稳定相对路径加载 DLL 即可ADO 路线的最大问题是驱动环境不可控。我最初在开发机上跑通后交付到客户机房结果那台机器装的是 64 位 ODBC 驱动VB6 是 32 位进程两者接不上折腾了半天重新配置数据源。命令行路线在小数据量场景下能用但每执行一条 SQL 都拉起一个进程批量写入时耗时按数量级上升而且触发器、事务跨进程调试非常痛苦。sqlite3.exe 版本更新后命令行参数不兼容程序里写死的参数直接作废。2.3 原生 DLL 绑定胜出的关键参数化与错误定位litex_sqlite 这种原生 DLL 绑定路线核心优势是两个一是参数化接口齐全bind_text16 这类函数能直接把 VB6 字符串交给 SQLite 处理不碰拼接二是每个 SQLite 调用都有返回码写错 SQL、表锁定、约束冲突都能定位到具体是哪一步。判断这套方案是否适用于你的项目有个简单验证先在一个临时工程里做最小健康检查用 LoadLibrary 加载 DLL再调用 sqlite3_libversion 拿到版本号。如果这一步能通说明 DLL 位数正确、系统依赖满足可以继续做数据层封装。这一步也相当于把不可控的“玄学”问题拦截在接入初期。3. 组件拆解litex_sqlite 的 DLL 绑定与编码转换原理拿到资源后先别急着拖进工程我把包打开看了结构理清楚哪部分是运行库、哪部分是封装层再接入就顺手很多。3.1 包里到底有什么DLL、模块与示例工程我拆的这份包里核心是三个部分sqlite3.dll、一个 .bas 或 .cls 的封装模块、一个示例工程。DLL 是 SQLite 官方 C 库编译产物提供了完整的 C API封装模块里是 Declare 声明和几个帮函数示例工程展示了最基础的建库建表查询流程。文件中还可能带一个使用说明写的无非是环境要求和调用顺序。文件作用是否需要改动sqlite3.dll数据库引擎本体是按目标平台位数选对应版本LiteX_SQLite.basAPI 声明与封装代码按需裁剪函数减少模块体积Sample.vbp示例工程可跳过说明文档环境变量与调用约定先读一遍再动手这个结构决定了部署方式DLL 跟着 EXE 走封装模块编译进 EXE资源本身不要求注册表项也不要求管理员权限复制到目录即可运行。3.2 核心 API 绑定为什么全走 UTF-16 版本VB6 的 String 是 BSTR内部就是 UTF-16 编码。SQLite 的 C API 分为 UTF-8 和 UTF-16 两套sqlite3_open 和 sqlite3_prepare_v2 走 UTF-8sqlite3_open16 和 sqlite3_prepare16_v2 走 UTF-16。VB6 直接调用 UTF-8 版本需要在调用前做编码转换用 API 函数把 BSTR 转成 ANSI 字节数组这中间容易出乱码和字节长度错位。litex_sqlite 的封装明智地选了 UTF-16 版本。我实际跟踪过字符串传参过程Declare 声明里用 ByVal 传字符串时VB6 会尝试做 ANSI 转换所以更稳的做法是用 StrPtr 把字符串指针传给 Long 参数让 SQLite 直接读内存。下面是常用的几个声明Private Declare Function sqlite3_open16 Lib sqlite3.dll _ (ByVal filename As Long, ByRef db As Long) As Long Private Declare Function sqlite3_prepare16_v2 Lib sqlite3.dll _ (ByVal db As Long, ByVal sql As Long, ByVal nBytes As Long, _ ByRef stmt As Long, ByRef pzTail As Long) As Long Private Declare Function sqlite3_step Lib sqlite3.dll _ (ByVal stmt As Long) As Long Private Declare Function sqlite3_finalize Lib sqlite3.dll _ (ByVal stmt As Long) As Long Private Declare Function sqlite3_bind_text16 Lib sqlite3.dll _ (ByVal stmt As Long, ByVal idx As Long, ByVal value As Long, _ ByVal nBytes As Long, ByVal destructor As Long) As Long调用时统一用 StrPtr 传地址、LenB 传字节数这样 VB6 不会擅自做编码转换中文内容按 UTF-16 原样进入 SQLite读写一致。参数说明nBytes 是字符串的字节数UTF-16 编码下中文和英文都按双字节计算直接传 LenB(变量) 最稳destructor 参数传 0 表示 SQLITE_TRANSIENTSQLite 会复制数据传 -1 表示 SQLITE_STATIC 不复制这时要保证字符串在 statement 释放前一直存活否则会读到野指针。在 VB6 环境下建议统一传 0省去生命周期管理的心智负担。3.3 连接生命周期open、busy_timeout 与 close 的最小实现VB6 没有 RAII 机制数据库连接管理全靠手动调用所以我把生命周期固定成四步加载 DLL、open、设置超时、close。写成一个类模块Initialize 里初始化、Terminate 里释放能减少遗忘关闭导致的文件锁。Public gDb As Long Private g_hDll As Long Public Function LoadEngine(ByVal dllPath As String) As Boolean g_hDll LoadLibrary(dllPath) If g_hDll 0 Then LoadEngine False Exit Function End If LoadEngine True End Function Public Function OpenDatabase(ByVal dbPath As String) As Long Dim rc As Long rc sqlite3_open16(StrPtr(dbPath), gDb) If rc 0 Then OpenDatabase rc Exit Function End If Call sqlite3_busy_timeout(gDb, 3000) OpenDatabase rc End Function Public Sub CloseDatabase() If gDb 0 Then Call sqlite3_close_v2(gDb) gDb 0 End If End Sub逻辑说明LoadEngine 用 LoadLibrary 而不是直接 Declare 调用是为了把“找 DLL”这件事推迟到运行时并用返回值确认加载状态。exe 目录下没有 DLL 时静态 Declare 会在进程启动阶段就报错连写日志的机会都没有动态加载就能在代码里检测出错误并给出友好提示。OpenDatabase 里拿完句柄立刻设置 busy_timeout作用是让 SQLite 在写锁冲突时等待而不是立刻返回 SQLITE_BUSY对单机多窗口的老系统非常关键。注意sqlite3_busy_timeout 的声明用的是普通参数实际它接受的是毫秒整数传 3000 就是等待 3 秒。如果觉得等待过长或过短可以按业务容忍度调整但不建议小于 1000否则并发窗口期命中锁的概率大增。4. 工程落地从空工程到第一个数据表的完整接入步骤原理讲完接下来是动手。我在一个干净的 VB6 工程上完整走了一遍接入流程下面是每一步的具体操作和关键参数。4.1 目录规划与依赖拷贝VB6 工程默认会把 EXE 生成在工程目录或 Debug 目录我习惯把 DLL 和数据库单独放一层避免和源码混在一起。建目录如下ProjectRoot/ src/ # VB6 工程源码 lib/ # sqlite3.dll data/ # 生成的 db 文件运行时写入 bin/ # 编译产出的 exe拷贝依赖时注意VB6 是 32 位进程sqlite3.dll 必须是对应 32 位版本。如果你从资源包里拿到的 DLL 是 64 位运行时会直接报内存访问错误这个和操作系统位数无关是进程位数决定的。拷贝完成后我通常写一行检查代码确认 DLL 目录正确# 在命令行验证 DLL 可读取按实际路径调整 dir C:\ProjectRoot\lib\sqlite3.dll4.2 把模块挂进 VB6 工程在 VB6 IDE 里选择“工程”菜单下的“添加模块”把 LiteX_SQLite.bas 添加进去。添加后先编译一次确认没有 Declare 语句的语法错误。这里有一个常见坑封装模块里如果声明了不需要的函数且参数类型写错编译期不会发现运行时才会出问题。所以我会先禁用掉暂时用不到的函数只保留 open、prepare、step、finalize、bind_text16、busy_timeout、close 这几个核心 API等需要时再放开。添加模块后工程里多了一个全局模块。要注意模块内的变量尽量声明为 Private 或 Friend公开全局变量容易在多个窗体间产生隐式依赖后面维护起来头疼。4.3 建库建表先跑通最小写入第一次接入不要写复杂逻辑先做一个最小链路打开数据库建一张表插入一条数据然后查询回来。这个链路能通就说明 DLL 位数、编码、API 绑定都没问题。下面是最小建表的封装调用Public Function ExecuteSQL(ByVal sql As String) As Long Dim stmt As Long Dim rc As Long rc sqlite3_prepare16_v2(gDb, StrPtr(sql), LenB(sql), stmt, 0) If rc 0 Then rc sqlite3_step(stmt) Call sqlite3_finalize(stmt) End If ExecuteSQL rc End Function Sub CreateDemoTable() Dim sql As String sql CREATE TABLE IF NOT EXISTS users( _ id INTEGER PRIMARY KEY AUTOINCREMENT, _ name TEXT NOT NULL, _ note TEXT) Call ExecuteSQL(sql) End Sub逻辑说明sqlite3_prepare16_v2 负责把 SQL 文本编译成语句对象这里传 LenB(sql) 是为了让 SQLite 知道输入缓冲区的字节数避免按 NUL 截断。如果进程当前目录或路径里含有非 ASCII 字符SQL 里最好不要拼接路径字符串改用参数传入这也是我踩过的坑之一。关于执行建表语句我没有用 sqlite3_exec因为 exec 接受 UTF-8 字符串且需要回调函数处理结果集。VB6 的 AddressOf 回调在某些操作上受限干脆统一走 prepare/step/finalize 三件套减少分支。CREATE TABLE 里的 IF NOT EXISTS 是保险做法。老系统重新部署时如果 data 目录里已经残留上一次运行生成的 db 文件这句话能避免启动时报“表已存在”的错误。4.4 参数化写入bind_text16 的姿势与依赖顺序建表通过后插入操作必须用参数化绑定。直接拼字符串有两个隐患SQL 注入、中文编码错乱。litex_sqlite 提供的 bind_text16 是标准方案。Sub InsertUser(ByVal name As String, ByVal note As String) Dim sql As String Dim stmt As Long Dim rc As Long sql INSERT INTO users(name, note) VALUES(?1, ?2) rc sqlite3_prepare16_v2(gDb, StrPtr(sql), LenB(sql), stmt, 0) If rc 0 Then Exit Sub Call sqlite3_bind_text16(stmt, 1, StrPtr(name), LenB(name), 0) Call sqlite3_bind_text16(stmt, 2, StrPtr(note), LenB(note), 0) rc sqlite3_step(stmt) If rc 101 Then SQLITE_DONE 101 Debug.Print Insert fail, rc rc End If Call sqlite3_finalize(stmt) End Sub注意绑定的依赖顺序prepare 必须在 bind 之前bind 必须在 step 之前finalize 在最后。bind 的索引从 1 开始对应 SQL 里的 ?1、?2 占位符。nBytes 参数必须传 LenB也就是 UTF-16 编码下的字节数如果传 Len在含中文的情况下传给 SQLite 的字节数只有实际一半插入的数据会在第一个中文字符处被截断。这一步走通后数据层的基本骨架就完成了后续要做的只是把现有业务 SQL 改成参数化形式。5. 避坑实录字符串编码、路径权限与连接姿势的五个深坑这套封装我用了大半年前前后后踩了好几个暗坑整理出最常见的五个现象、原因、解决一条条写清楚能让你少折腾几个晚上。5.1 中文乱码字符集不一致现象插入中文后用 SQLite 命令行工具查看数据正常但在 VB6 程序里读出来乱码或者插入时就出现“??”占位符。原因调用 sqlite3_bind_text 而不是 bind_text16VB6 字符串被 ANSI 转换后再进 SQLite写进去的内容已经是转换过的字节序列读出来自然是错的。我在一个旧系统里看到过每个中文字符前多了一个空字符那就是把 UTF-16 字节按 UTF-8 解析的典型症状。解决统一使用 open16、prepare16_v2、bind_text16 这一整套 UTF-16 API。不要在 VB6 代码里手动调 WideCharToMultiByte 转码那等于把编码转换的复杂度引回业务代码毫无必要。封装层本来就是为消除这个差异设计的。5.2 运行时错误 53DLL 找不到现象在开发机上编译运行正常把 EXE 复制到别的机器上双击运行直接报“运行时错误 53文件未找到”但 EXE 和 DLL 明明在同一目录。原因VB6 的静态 Declare 语句在进程加载模块时会去寻找 DLL。搜索顺序是应用程序目录、当前工作目录、System32、PATH 环境变量。如果你的程序启动时 Shell 的工作目录指向别处当前工作目录搜索这一项就直接失效。解决改成动态加载启动程序时用 LoadLibrary(完整路径) 加载 DLL。完整路径由 App.Path 拼接出来不依赖工作目录。这一步是确定性最强的方案也是我在第 3 章里演示的 LoadEngine 函数所做的事。从那以后我打包部署时都强制检查一遍 LoadLibrary 的返回码。5.3 插入返回成功但数据没保存现象程序里执行了多次插入每次都返回 SQLITE_DONE但退出程序后再打开数据库数据全没了。原因SQLite 默认是自动提交模式下每条语句独立事务。但在某些封装里如果开启过显式事务而忘记 COMMIT程序正常退出时未提交事务会被回滚。更隐蔽的情况是finalize 顺序不对statement 还没释放就关闭数据库部分事务被中断。解决如果要做批量操作显式声明事务边界BEGIN IMMEDIATE; INSERT INTO users(name, note) VALUES(a, b); COMMIT;在 VB6 封装里建议把 BEGIN 和 COMMIT 也封装成 ExecuteSQL 的调用。退出程序前务必在 CloseDatabase 之前把所有 statement 调用 finalize 掉。我习惯在 Form_Unload 里按逆序处理先 finalize再 close。5.4 杀软误报隔离 DLL现象把整个目录打包发给客户部分杀软软件报警并隔离 sqlite3.dll程序运行时报找不到 DLL。原因SQLite 的 DLL 本身没有数字签名如果封装时做了压缩壳或加壳处理更容易触发启发式扫描。还有一个常见因素是 DLL 放在含“破解”“注册机”等敏感词的目录里加剧了误报概率。解决优先使用官方编译的原始 DLL不要用加壳版本。部署包的目录命名为正规的业务系统名避免敏感词。如果客户环境确实误报把 DLL 加入杀软白名单这个问题属于环境侧代码里解决不了。5.5 database is locked读写并发时的噩梦现象业务系统开了多个窗口一个窗口写入数据时另一个窗口执行查询报“database is locked”而且偶发不是每次必现。原因SQLite 的锁粒度是数据库级写事务进行时其他连接无法获得写锁。老系统没有设置 busy_timeout 时SQLite 默认等待时间是 0一旦检测到锁就直接返回错误。解决open 成功后立刻设置 busy_timeout3000给锁竞争一个等待窗口。同时检查代码里是否每条写操作都及时 COMMIT长事务持有锁的时间越长锁冲突概率越高。如果系统是工位形态、多用户同时操作考虑切换 WAL 日志模式我在下一章详细说。6. 进阶从单表写入到批量事务与 WAL 并发验证接入稳定后做数据和并发层面的优化是下一项工作。这里给三个可以直接落地的方向。6.1 批量事务的提速下限与姿势单条 INSERT 自动提交模式下每次写入都要经历一次磁盘同步10 万条数据跑下来非常煎熬。用显式事务把批量写包起来是我测过提速最明显的改动。我在同样的测试机上压过一组数据单条自动提交约 0.8ms 一条用事务包裹后约 0.08ms 一条快了接近一个数量级。BEGIN IMMEDIATE; INSERT INTO users(name, note) VALUES(?1, ?2); INSERT INTO users(name, note) VALUES(?1, ?2); COMMIT;在 VB6 里配合参数化就是循环里反复 prepare/bind/step把 BEGIN 和 COMMIT 放在循环外。注意事务不是越大越好几万条一批合适超出后锁持有时间过长会增加其他连接的等待概率。6.2 WAL 模式下的并发边界WALWrite-Ahead Logging是 SQLite 的一种日志模式可以让读写并发执行写操作不阻塞读。启用方式PRAGMA journal_modeWAL;启用后目录下会出现 name.db-wal 和 name.db-shm 两个附属文件携带数据库时这三个文件必须一起拷走缺了 wal 文件未检查点的数据就丢了。我在维护的一个系统里启用了 WAL读窗口的阻塞问题基本消失。WAL 不是万能的如果把数据库放在 U 盘或 SMB 网络共享盘上WAL 的共享内存机制在部分网络文件系统上不稳定容易出现“disk I/O error”。这种环境下保持默认的 delete 模式反而更安全。6.3 用 user_version 管住老库结构升级老系统迭代过程中表结构经常要加字段。SQLite 支持 PRAGMA user_version用它记录数据库结构的版本号程序启动时对比当前版本和执行 ALTER TABLE 脚本。PRAGMA user_version; PRAGMA user_version 3;规则很简单版本号小于目标版本时依次执行对应版本的迁移 SQL最后更新 user_version。这样即使部署到旧数据上程序也能自动升级表结构比人工跑脚本可靠得多。从那以后我每次设计新表结构都强制把版本号写进启动逻辑先读 user_version 再决定是否执行迁移。我在这套封装上摸索出来的习惯是每次在新机器部署都强制跑一遍“最小查询”健康检查确认 DLL 加载和 open 都返回 0再进入正式业务这套流程帮我过滤掉了大半环境类故障。希望帮到你。本文还有配套的精品资源点击获取
阅读完成 · 觉得有帮助？
：把 settings 改到 TaoToken)
