给大家分享一个SQLite的插件和查询例子（兼容性好）

weizijingbo

       前段时间，着急打开一个损坏的DB文件，是用终端工具写的数据，网上找了N多教程没办法打开，后来找到一个控件，自己写了一个程序打开了。现在分享给大家参考使用，说起来，SQLite数据真的比ACCESS数据库好用多了，速度也是非常快，最主要它兼容2T（反正比ACCESS大，至少不会像ACCESS只有1个G的储存，而且100多M厚操作多了会卡死。具体SQLITE大小还没有去官方确认。）的数据体积，想想都满足。
       还有一个窗体界面，记得是刚开始学VBA做的，现在看起来很是尴尬，哈哈哈。代码有点乱，因为临时写的，比较着急。
       具体请看图，还有附件，同时附上一个SQLite数据库文件给大家测试。
       工具列出了DB数据库文件里面的全部表，可以自己选择表来查询数据，可以说是一个非常方便简洁的工具了，最重要的是这个DLL兼容性非常好，直接工具那里加载引用就行，或者使用楼下3楼的方便，还解决了中文乱码的问题。非常强大。

opiona

zpy2

opiona 发表于 2022-3-31 00:03

Dim lb As Long
    lb = LoadLibrary(App.Path & "\sqlite3.dll")
   
    Dim oDB As Object
    Set oDB = CreateObject("LiteX.LiteConnection")
    TextSQLiteVersion.Text = oDB.Version
    oDB.open (App.Path & "\test.db")
   
    oDB.Execute ("insert into testtable values(2, 'laoma', 20)")

https://blog.csdn.net/u012265889/article/details/29574817

opel-wong

opiona 发表于 2022-3-31 00:03

直接引用就可以了。

opel-wong

这个DLL文件，能否可以将工作表的数据，一次性导入数据库或从数据库导出至工作表。
给个示例学习一下，谢谢！

weizijingbo

opel-wong 发表于 2022-3-31 07:57
这个DLL文件，能否可以将工作表的数据，一次性导入数据库或从数据库导出至工作表。
给个示例学习一下，谢 ...

一次性导入，自己写个循环就行了，跟写入表的方法差不多。插入例子：
for i=1 to row
    Conn.Execute "insert into st_data(站点简写,站点名称,网页检索码,站点拼音,拼音首字母) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')"
next
st_data是表名，中文是表头，text.text是你要插入的内容。

weizijingbo

参照3楼给的例子，
新建表
Dim odb As Object
Set odb = CreateObject("LiteX.LiteConnection")
odb.open (App.Path & "\test.db")    '一开始直接建一个空白文件就可以用了

sql = "create table tab01(name text,nl integar)"   'sqlite数据库其实可以不用定义，但是为了以后的转移或者说明，定义下比较方便
odb.execute(sql)
odb.close

其他的自己摸索了，这个也没有官方教程，都是自己摸索出来的。

opel-wong

weizijingbo 发表于 2022-3-31 09:37
一次性导入，自己写个循环就行了，跟写入表的方法差不多。插入例子：
for i=1 to row
    Conn.Execute ...

循环就不说了，如果工作表有10万行 * 50列数据，循环需要多长时间？
我的意思是这样的一次性导入，

Insert Into 表名 Select * From [Excel 12.0;HDR=YES;Database=" & 工作薄路径 & ";].["工作表名$A2:BA]

aecn

好东西，感谢分享

weizijingbo

opel-wong 发表于 2022-3-31 09:50
循环就不说了，如果工作表有10万行 * 50列数据，循环需要多长时间？
我的意思是这样的一次性导入，

这种操作我还真不知道，你摸索一下，摸索到了来分享一下吗。这样高效率。