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

日常随笔 同时被 3 个专栏收录
22 篇文章 0 订阅
12 篇文章 0 订阅
24 篇文章 0 订阅

微信公众号:@网管小贾

个人博客:@www.sysadm.cc

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

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

老掉牙的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文件即可。(文末有下载)


哦?!这么神奇吗?!

是的,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的方法。

请到博客下载 www.sysadm.cc


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组合,真香(二) 中详细介绍,敬请期待吧!

源代码下载:请到网管小贾博客查找。

微信公众号:@网管小贾

个人博客:@www.sysadm.cc

  • 4
    点赞
  • 0
    评论
  • 3
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:数字20 设计师:CSDN官方博客 返回首页

打赏作者

网管小贾

博客www.sysadm.cc

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值