这两天学了会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

学习记录～