急需大家帮助,谢谢啦。
------解决方案--------------------------------------------------------
在控制面板的ODBC中创建一个新ODBC到这个SQLITE的数据库。然后从EXCEL中的主菜单,数据,获取外部数据,导入即可。
你的记录比较多,则可以用查询来筛选后导入。
------解决方案--------------------------------------------------------
简单示例:
Dim ff As New ADODB.Connection
Dim ff1 As New ADODB.Recordset
Dim dd As String
dd = "Driver={SQLite3 ODBC Driver};Database=J:\ZZ1\SqliteDev\dd"
ff.Open dd
ff1.Open "select * from dd1", ff
Sheets("sheet1").Range("a1:a1").CopyFromRecordset ff1
------解决方案--------------------------------------------------------
strSQL内容,是否有满足条件的记录
do while not rs.eof
msgbox rs(0)
rs.movenext
loop
------解决方案--------------------------------------------------------
ff1.Open "select * from dd1", ff, adOpenKeyset, adLockBatchOptimistic