【SQLite】教程09-VBA读取SQLite数据

 

 

 

 

 1 Option Explicit
 2 
 3 Sub test()
 4 
 5 Dim con As ADODB.Connection
 6 Dim rs As ADODB.Recordset
 7 
 8 'Connection生成和连接字符串的设定
 9 Set con = New ADODB.Connection
10 con.ConnectionString = "DRIVER=SQLite3 ODBC Driver;Database=Y:\.....\Test.db"
11 
12 'sqlite连接
13 con.Open
14 
15 'sql语句查询
16 Set rs = con.Execute("SELECT id,name FROM company;")
17 
18 
19 '把结果写入单元格
20 rs.MoveFirst
21 Dim i As Integer
22 i = 1
23 Do Until rs.EOF = True
24     Cells(i, 1).Value = rs.Fields(0).Value
25     Cells(i, 2).Value = rs.Fields(1).Value
26     rs.MoveNext
27     i = i + 1
28 Loop
29 
30 '关闭数据路连接
31 con.Close
32 Set con = Nothing
33 
34 
35 End Sub