VB+Sqlite组合,真香!(二)

笔记心得 同时被 3 个专栏收录
24 篇文章 0 订阅
22 篇文章 0 订阅
12 篇文章 0 订阅

微信公众号:@网管小贾

个人博客:@www.sysadm.cc

上文书我们说到 VB+SQLite 组合带给我们单机数据库应用的光明前景。

什么?上一篇还没有看?

好吧,给你链接,省得找了。

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

咳咳,虽然解决了单机访问数据库速度和品质的问题,但原始代码还是有点不够简单和人性化。

这不,我研究了一下,搞了一个简单版的自定义类,方便调用。


调用这个类很简单,只要先New个对象,再给些参数即可完成任务。

完成任务后释放对象即可,全程不再需要自己先打开数据库再关闭等等额外的复杂操作。

超级简便有木有?

另外,SQL语句也可以保持标准语法,不用记住那些特殊怪异的单词和符号啦。

好,快来看看接下来的实例吧。


1、查询记录

' 自定义类
Dim objSQLite As New ClsSQLite

'定义数据库文件路径
objSQLite.p_DbFilePath = App.Path & "\user.db"
    
'定义SQL语句,此处可设定textbox为任意SQL语句
objSQLite.p_Sql = "select * from tbl_user where id > 1"
    
'执行语句
If objSQLite.SelectSQL = False Then
    MsgBox "查询失败!" & vbCrLf & vbCrLf & objSQLite.p_Msg
Else
    MsgBox "查询成功!" & vbCrLf & vbCrLf & objSQLite.p_Msg
    MsgBox "字段数: " & objSQLite.p_ColumeCount
    MsgBox "记录数: " & objSQLite.p_RecordCount
        
    Dim i As Long, j As Long
    Dim intColumeCount As Long, intRecordCount As Long
    
    intColumeCount = objSQLite.p_ColumeCount - 1
    intRecordCount = objSQLite.p_RecordCount - 1
        
    '字段名称遍历
    For i = 0 To intColumeCount
        MsgBox objSQLite.p_RecordSetField(i)
    Next
        
    '记录值遍历
    For j = 0 To intRecordCount
        For i = 0 To intColumeCount
            MsgBox objSQLite.p_RecordSetValue(j, i)
        Next
    Next
        
End If

' 释放对象
Set objSQLite = Nothing

2、更新记录

' 自定义类
Dim objSQLite As New ClsSQLite

'定义数据库文件路径
objSQLite.p_DbFilePath = App.Path & "\user.db"
    
'定义SQL语句,此处可设定textbox为任意SQL语句
objSQLite.p_Sql = "update tbl_user set value='" & txtUpdateItem2.Text & "' where id=" & txtUpdateItem1.Text
    
'执行语句
If objSQLite.ExecuteSQL = False Then
    MsgBox "更新失败!" & vbCrLf & vbCrLf & objSQLite.p_Msg
Else
    MsgBox "更新成功!" & vbCrLf & vbCrLf & objSQLite.p_Msg
End If
    
' 释放对象
Set objSQLite = Nothing

3、批量执行SQL语句之一

' 自定义类
Dim objSQLite As New ClsSQLite

'定义数据库文件路径
objSQLite.p_DbFilePath = App.Path & "\user.db"
    
'批量SQL语句,用分号相隔
'objSQLite.p_Sql = "update tbl_user set value='J055555555' where id=5;update tbl_user set value='K066666666' where id=6;insert into tbl_user(id,value) values(9,'ABC123')"
'objSQLite.BatchExecuteSql
    
'单独SQL语句
objSQLite.p_Sql = "insert into tbl_user(id,value) values(8,'88888888')"
objSQLite.ExecuteSQL
    
MsgBox objSQLite.p_Msg
    
' 释放对象
Set objSQLite = Nothing

4、批量执行SQL语句之二

' 自定义类
Dim objSQLite As New ClsSQLite

'定义数据库文件路径
objSQLite.p_DbFilePath = App.Path & "\user.db"
    
'定义批量SQL语句------定义数组上限
objSQLite.p_BatchSqlUbound = 3
    
'定义批量SQL语句------定义各语句
Dim i As Integer
For i = 0 To 3
	objSQLite.p_BatchSql(i) = "INSERT into tbl_user(id, value) values(" & i + 10 & ",'xxxxxxxx')"
Next
objSQLite.BatchExecuteSql
    
MsgBox objSQLite.p_Msg

' 释放对象
Set objSQLite = Nothing

基本的CRUD都可以用了,调用SQL大概分为 SELECTEXECUTE 两种方式。

SQLite自定义类的文件名是 ClsSQLite.cls ,下载链接:

请到博客查找免费下载。

注意了,这个类文件需要以上一篇的程序为基础才能使用,单独使用无效。

上一篇文章链接:VB+SQLite组合,真香!(一)


另外抱歉哈!由于站长工作繁忙时间紧张,没有放出完整的程序。

如有需要请留言给我,我会再抽时间制作。

最后,真心希望以上内容能帮到你!

好,老板喊我去搬砖了… 拜拜…

完整版演示程序已经完成,请到网管小贾博客查找。

微信公众号:@网管小贾

个人博客:@www.sysadm.cc

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

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

打赏作者

网管小贾

博客www.sysadm.cc

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

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

打赏作者

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

抵扣说明:

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

余额充值