VB6 连接SQLite小型数据库

数据表:

界面:

Private Conn As New LiteConnection  ''引用sqlite3.dll

Private Sub Command3_Click()
    Conn.Execute "DELETE FROM st_data WHERE 网页检索码 ='" & Text3.Text & "'"
    Command1_Click
End Sub

Private Sub Form_Load()
    If zc_dll = True Then
        Conn.Open App.Path & "\vbxym.db"  ''打开数据库
        Command1_Click
    Else
        MsgBox "控件未注册!"
        End
    End If
End Sub


Private Sub Command1_Click()
    List1.Clear
    Dim Rs As New LiteStatement                                                              'sqlite记录集
    Set Rs = Conn.Prepare("Select * from st_data")                                           '读取数据集
    Rs.Step                                                                                  '默认初始游标在所有数据之前,所以要推至第一条数据
    If Not Rs.Done Then
        Do While Not Rs.Done                                                                 '循环读取记录
            List1.AddItem Rs.ColumnValue("站点名称") & vbTab & Rs.ColumnValue("站点拼音")    '显示记录
            Rs.Step                                                                          '游标下移下条数据
        Loop
    End If
    Rs.Close
    Set Rs = Nothing
End Sub

Private Sub Command2_Click()
    Conn.Execute "insert into st_data(站点简写,站点名称,网页检索码,站点拼音,拼音首字母) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')"
    Command1_Click
End Sub

Function zc_dll() As Boolean ''控件注册
On Error GoTo a
    Dim sstr As String
    sstr = "regsvr32 /s " & App.Path & "\sqlite3.dll"
    Shell sstr, vbHide
    zc_dll = True
    Exit Function
a:
    zc_dll = False
    'MsgBox err.Description
End Function

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Shell "regsvr32 /u " & App.Path & "\sqlite3.dll", vbHide ''卸载控件
End Sub

连接地址:

https://www.lanzous.com/i4fwfxe

谢谢关注与支持

本文分享自微信公众号 - VB小源码(vb_xym)

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-06-04

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏完美Excel

VBA实用小程序50: 在指定的单元格中插入指定的形状

下面的自定义函数使用Shapes集合对象的AddShape方法及其参数,可以在指定的单元格中插入指定的形状。

15960
来自专栏完美Excel

Excel VBA解读(134): 使用Excel函数提高自定义函数的效率

在上篇文章中,我们展示了自定义函数有效的方式是通过将单元格区域读取到Variant型数组来传递单元格区域数据。本文将介绍在自定义函数中最有效的方式是使用Exce...

14830
来自专栏完美Excel

Excel应用实践04:分页单独打印Excel表中的数据

在实际工作中,我们经常会遇到想将工作表中的数据(如下图1所示的“数据”工作表)导入到固定的表格(如下图2所示)中并打印。

6710
来自专栏完美Excel

Excel应用实践03:使用Excel进行个人计划执行记录与统计分析

一转眼,2019年已至4月,自从年初立下flag后,便努力朝着实现它的方向奔跑。有些执行得很好,比如每天更新完美Excel微信公众号,坚持每天学习,而有些则还没...

5620
来自专栏FreeBuf

Matlab加上VBA编程,表格就能画画了

之前学习Matlab是为了参加一个数学建模的比赛,但是在慢慢的学习当中发现了matlab这款软件是真的有趣,真的非常有用,大家没事也可以去学习一下使用matla...

11010
来自专栏完美Excel

Excel VBA解读(138): 自定义函数时使用字节数组实现更快的字符串处理

如果有很多行,要查找每行字符串第一个大写字母的位置,则使用数组公式会花费不少时间。

10620
来自专栏完美Excel

Excel VBA解读(143): 在自定义函数中使用整列引用时,如何更有效率?

Excel用户经常发现在公式中使用整列的引用很方便,这样可避免每次添加新数据时都必须调整公式。因此,当编写用户自定义函数时,可能会使用:

15320
来自专栏完美Excel

Excel应用实践06:进行多条件统计

这是在知乎上看到的一个问题,我试着用VBA来解决。欢迎大家就自已使用Excel中遇到的问题或想要的解决方案提问,我将尽力解答。

8920
来自专栏完美Excel

Excel VBA解读(137): 让使用用户定义函数的数组公式更快

Excel数组公式能够做很多令人惊讶的事情。除了在输入完后要按Ctrl+Shift+Enter组合键外,与普通公式一样。本文主要研究使用用户定义函数的数组公式。

12920
来自专栏完美Excel

Excel VBA解读(135): 影响工作表公式中运用自定义函数效率的Bug及解决方法

在前面的两篇文章中,我们通过简单地修改VBA代码来使自定义函数运行得更快。本文将聚焦于Excel中会影响到自定义函数的Bug,并探讨如何避免它们。

14420

扫码关注云+社区

领取腾讯云代金券

年度创作总结 领取年终奖励