这两天学了会VBA,对excel的表格调用有了点感觉，VB以前学过，VBA差不多！
业余学点皮毛吧，语言加数据库的调用，读写之类！
c++加sqlite
vba加excel
百度了知道，vba不能玩sqlite
大概如下：
SQLite在数据容量(最大支持2TB)
性能稳定性、安全性等方面，超越Access
Access 2G的容量、脆弱的安全性
不过SQLite虽好，但对VB/VBA却并不友好
VB/VBA连指针都藏着不让用，所有API的调用也都由MSVBVM60.dll给包揽了，使用者只能在这个运行库的保护下作业
QLite虽然支持各种第三方开发工具，SQLite应用也非常广泛，但SQLite的开源在VBA中无法使用，所以VB6/VBA不受Sqlite待见。如要在VBA使用sqlite数据库，还是比较麻烦。现在已知方法是使用 vbRichClient5.dll 、收费版的ODBC，还有一些开源的Sqlite库
Excel VBA及Access VBA～我就?以为?只有?excel有?VBA
看过就忘记，学习的通病！就是重复少
py的搞exe麻烦，以前做过一个py加Qt的下载头条视频和把文章生成pdf的软件！
py爬个数据和js一样玩下还可以！其他也用不到！
闲时挖坑下c++和QT!
刚准备写完留存，看到一篇介绍vba调用的，就转过来学习！
SQLITE 插入很慢，用VBA写的事务处理方法
https://zhuanlan.zhihu.com/p/415264809?utm_id=0
文章摘录～
最近一直要用VBA，但是发现插入数据非常慢。百度了好久没找到标准答案。自己摸索了一下写法。留下代码，给未来有需要的人。自己走过的弯路，希望后人不用再走。
Function 存在就更新不存在就插入数据库(sh, 类目)
'Dim conn As New ADODB.Connection '引用ADO
Dim t
t = Timer
Dim Conn As Variant
Set Conn = CreateObject("ADODB.Connection")
Dim Connstr As String
Dim Arr As Variant, I As Long
Dim shSource As Worksheet
Set shSource = Sheets(sh)
Connstr = "Driver={SQLite3 ODBC Driver};Database=\\design\chromedrivers\sqlite\uringo.db"
Conn.Attributes = adXactCommitRetaining '启用事务
Conn.Open Connstr
Conn.Execute "PRAGMA synchronous = NORMAL;"
Conn.Execute "PRAGMA locking_mode = EXCLUSIVE;"
Conn.Execute "PRAGMA journal_mode = WAL;"
Conn.Execute "Begin" '启用事务的另一种写法:Conn.BeginTrans '开始事务 非常重要，不然写入速度极慢
Arr = shSource.[A1].CurrentRegion
sh = sh & "_" & 类目
For I = 2 To UBound(Arr)
'Debug.Print Join(Application.Rept(Application.Index(Arr, I, 0), 1), "','")
'Debug.Print " insert or replace into " & sh & " values('" & Join(Application.Rept(Application.Index(Arr, I, 0), 1), "','") & "')"
'下面的语句很重要，有则插入，无则更新
Conn.Execute "insert or replace into " & sh & " values('" & Join(Application.Rept(Application.Index(Arr, I, 0), 1), "','") & "')"
Next I
Conn.Execute "Commit" '提交事务的另一种写法:Conn.CommitTrans
Conn.Close
MsgBox ("Refresh Data Success! 用了: " & Timer - t & "秒")
End Function二 、如果像下面这样设置的秒数是：18.7秒，减少一秒。
三、网上全是C,PYTHON等等，找不到用VBA的写法。大家可以从这儿得到答案
百度学习下事务
使用事务处理：事务处理是一种确保数据完整性的方法，可以防止写冲突。
使用错误处理：错误处理是一种处理写冲突的方法，可以捕获并处理写冲突错误
使用临时表：临时表是一种将数据存储在内存中的方法，可以提高性能并减少写冲突
使用记录锁定：记录锁定是一种锁定记录的方法，以确保只有一个用户可以修改记录。
使用SQLite ODBC Driver方式连接
1） 在网上搜索 sqlite odbc driver 64位/32位 驱动程序，安装。一般只有不到6M，很快就安装好了
可选的下载网址： Sqlite ODBC Driver (含64位及32位）
2） 使用ADO的方式调用数据库记录集，与VBA调用Access数据库非常相似：
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "DRIVER={SQLite3 ODBC Driver};Database=D:\\test\\test.db"
Dim strSql As String
Dim i As Integer
strSql = "SELECT * FROM 你的表名"
rst.Open strSql, cnn, 1, 1
For i = 1 to rst.RecordCount
'读取或写入数据或其它相关操作
Next
cnn.Execute"create table a (a, b, c);" '直接Sql操作
rst.close
cnn.close
3）优点与缺点
这种方式的最大好处：就是直接使用ADO的记录集操作方式对Sqlite数据进行操作，代码与操作Access数据库几乎如出一辙，没有什么学习成本。
缺点就是必须安装ODBC驱动，另速度比原生的要稍慢点
还有个缺点就是：网上的ODBC驱动是不能加密的，加密的需要付费。
使用vbRichClient5.dll 和vb_cairo_sqlite.dll 方式连接
使用vbRichClient5.dll 和vb_cairo_sqlite.dll 方式连接不需要ODBC驱动，同时也可以加密数据库，并且vbRichClient5 版本更新也比较快
1）采取引用方式需要将 vbRichClient5.dll 和 vb_cairo_sqlite.dll 一起复制到程序目录，并使用Regsvr32 对 vbRichClient5.dll 进行注册。
2）采用免注册方法使用，则还需要将 DirectCOM.dll 复制到程序目录或System（或Syswow64) 目录。
使用SQLiteForExcel开源模块调用 SQLite3_StdCall.dll方式连接
SqliteForExcel 针对Excel 直连Sqlite数据库的开源模块：项目下载网址
此模块适用于Excel VBA 及Access VBA
部分来自
https://zhuanlan.zhihu.com/p/518336911?utm_id=0
学习记录～
