【SQLite】教程09-VBA读取SQLite数据之ODBC，及中文乱码问题

VBA使用ODBC Driver for SQLite读SQLite

如下图有这么一个SQlite数据库，我们要读取它

需要先安装ODBC，可以从这里下载：

 SQLite 3 ODBC Driver ：https://files-cdn.cnblogs.com/files/KMould/sqlite-3.5.7-odbc-0.65.rar

或者 

SQLite 3 ODBC Driver ：http://www.patthoyts.tk/sqlite3odbc.html

源码：

Option Explicit

Sub test()

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

'Connection生成和连接字符串的设定
Set con = New ADODB.Connection
con.ConnectionString = "DRIVER=SQLite3 ODBC Driver;Database=Y:.....Test.db"

'sqlite连接
con.Open

'sql语句查询
Set rs = con.Execute("SELECT id,name FROM company;")


'把结果写入单元格
rs.MoveFirst
Dim i As Integer
i = 1
Do Until rs.EOF = True
    Cells(i, 1).Value = rs.Fields(0).Value
    Cells(i, 2).Value = rs.Fields(1).Value
    rs.MoveNext
    i = i + 1
Loop

'关闭数据库连接
con.Close
Set con = Nothing


End Sub

 效果：

 完全没问题。

如果把数据库表格“COMPANY”改为汉字“公司”，响应的我们需要修改源码如下图所示：

 结果会有下面这个错误提示：

 众所周知，SQLite中存储的数据为UTF-8编码格式的，所以我们需要把Unicode编码格式的SQL语句改为UTF-8格式的才可以，就像这样做：

 如果数据路中有汉字，例如下图：

 

 查询结果也会有乱码：

 刚才我讲了，SQLite中存储的数据为UTF-8编码格式的。所以查询结果也要进行转换,，将UTF-8转为Unicode

 

  更改后的效果：

 所有源码，包含UnicodeToUTF8、UTF8ToUnicode都分享在这篇博客中，欢迎点击浏览：

 https://www.cnblogs.com/KMould/p/14273522.html

参考资料：

http://blog.sina.com.cn/s/blog_4d281a030100q05r.html

http://www.cocoaliz.com/excelVBA/index/61/

httdps://zhuanlan.zhihu.com/p/336093667