VB+SQLite组合,真香!(一)

嗨!你好!我是网管小贾!

当你看到这个标题时,是不是感觉很奇怪呢?

老掉牙的VB和“玩具”数据库SQLite搞在一起是个什么玩意?

待我慢慢道来哈。。。


SQLite众所周知,是个文件数据库,小而快,号称世界上使用最广泛的数据库(官网描述居然没有“之一”)。

官方是在吹牛吗?

出于好奇和兴趣,我抽空简单地学习了一下SQLite。


SQLite一般应用在单机场景,没有服务器的概念,很适合做些单机应用。

而在Windows环境下,一般情况都会使用Access作为本地数据库系统。

但Access太磨人了,是时候把SQLite扶上正位了。

关于SQLite和Access的性能对比,请小伙伴们自行百度,差得不是一点半点啊。

我自己测试过,同样环境同样导入500条记录,SQLite耗时1秒都不到,而Access却要用36秒之多,真是令人瞠目!


使用其他高级语言可以很简单的调用SQLite,但对于古老的VB似乎是有些不可能完成的任务。

另外,调用某数据库,通常讲是需要数据库驱动的,比如在ODBC中添加驱动。

由于Windows里集成了SqlServer的驱动,所以用户调用SqlServer数据库并不需要专门安装驱动程序而直接可以连接访问数据库。

而SQLite虽然也是要先驱动才能使用的,但是要简单的多啊。

这里告诉你一个好消息,本文要介绍的VB调用SQLite是不需要额外安装驱动的,只要一个DLL文件即可,而且DLL文件是不需要注册的。(文末有下载)


哦?!这么神奇吗?!

是的,N年前一次偶然机缘,从网上某位大神那里得到了一个SQLite的VB调用库,自此开启VB访问数据库飞一般的神奇之旅。

(出处已不可考,在此向大神致敬!)

好了,让我们丢开Access,投入SQLite的怀抱吧!

小伙伴们的毕业设计是不是有希望了呢,想想都有些小激动啊!

接下来我们看看怎么玩转 VB+SQLite 组合,不难的哦。


首先,我们得建个数据库。

先从网上找个SQLite数据库工具软件,我用的是 SQLite Expert Personal,个人版免费,你也可以用其他的,网上有很多。

建立一个数据库名称为 db_user.db,再建一个表 tbl_user,保存文件为 user.db

-- 建立tbl_user表
CREATE TABLE tbl_user (id integer primary key, value text);
 

很简单吧!


其次,打开VB编辑器,新建工程,导入模块 ModSQLite.bas

我做了个测试程序,分享给你参考。(文末有下载)

下面演示数据库的连接访问及CRUD的方法。


1、连接数据库

'打开数据库
Private lngDB as long
SQLite_open App.Path + "\user.db", lngDB
 

2、关闭数据库

'关闭数据库
Private lngDB as long
SQLite_close lngDB
 

3、添加记录

Dim sqlite3_stmt As Long
' SQL语句查询
Call SQLite_prepare(lngDB, "insert into tbl_user (id, value) values(" & txtInsertItem1.Text + ",'" & txtInsertItem2.Text & "')", sqlite3_stmt)
SQLite_step sqlite3_stmt
SQLite_finalize sqlite3_stmt
 

4、删除记录

Dim sqlite3_stmt As Long
' SQL语句查询
Call SQLite_prepare(lngDB, "delete from tbl_user where id=1", sqlite3_stmt)
SQLite_step sqlite3_stmt
SQLite_finalize sqlite3_stmt
 

5、更新记录

Public Const SQLITE_OK = 0
Dim sqlite3_stmt  As Long
Dim hRet As Long
' SQL语句查询
hRet = SQLite_prepare(lngDB, "update tbl_user set id=?, value=? where id=?1", sqlite3_stmt)
If hRet = SQLITE_OK Then
    Call SQLite_bind_int(sqlite3_stmt, 1, Val(txtUpdateItem1.Text)) '代替上面sql语句里第1个问号
    Call SQLite_bind_text(sqlite3_stmt, 2, txtUpdateItem2.Text) '代替上面sql语句里第2个问号
    SQLite_step sqlite3_stmt
    SQLite_finalize sqlite3_stmt
End If
 

6、查询数据

Public Const SQLITE_OK = 0
Dim sqlite3_stmt As Long    ' SQL状态值
Dim hRet As Long    ' 查询返回句柄
' SQL语句查询
hRet = SQLite_prepare(lngDB, "select * from tbl_user", sqlite3_stmt)
' 如果返回OK,则输出记录
If hRet = SQLITE_OK Then
    ' 打印表头
    picData.Print SQLite_column_name(sqlite3_stmt, 0), SQLite_column_name(sqlite3_stmt, 1)
    ' 循环输出记录值
    Do While SQLite_next(sqlite3_stmt)
        picData.Print SQLite_column_text(sqlite3_stmt, 0), SQLite_column_text(sqlite3_stmt, 1)
    Loop
End If
' 关闭查询
SQLite_finalize sqlite3_stmt
 

基本的增删改查就是这些啦,当然,还有很多操作,比如获取记录数或执行更复杂的SQL语句。

不过这里有个小问题,在上面的更新记录代码中也能看到,UPDATE语句有些怪怪的。比如:

update tbl_user set id=?, value=? where id=?1
 

虽然还有很多怪异的语句可能会给写代码带来不便,但是不用太过担心,我在原始模块的基础上攒了个简化版的自定义类,调用这个类就可以使用正常标准的SQL语句啦!

关于这个类的内容,会在下一篇 VB+SQLite组合,真香(二) 中详细介绍,敬请期待吧!


源代码下载:

VB_SQLite组合,真香演示之一.7z

下载链接:https://pan.baidu.com/s/1h90iUS2e389y9T0w2I_1eQ

提取码:


输入密码,继续阅读



扫码关注微信公众号,回复文章ID免费获取密码


[文章ID:000721]


WeChat @网管小贾 | www.sysadm.cc


提交评论

安全码
刷新

© 2020-present 网管小贾 | 微信公众号 @网管小贾
许可协议:CC-BY-NC 4.0 | 转载文章请注明作者出处及相关链接