CopyFromRecordset无法copy查询结果到excel

zhn158 · 发表于 2019-5-23 18:23

数据库文件：test.sqlite3，里面有两张表：基本信息表，设备材料库。同样的代码读入基本信息没有问题，设备材料库的内容无论如何读不进excel，但在sqlite3终端用同样的SQL语句 “SELECT * FROM 设备材料库;” 就没有问题，求大神帮忙

Sub test()
Dim conn As Object
Set conn = CreateObject("adodb.connection")
Dim connStr As String
connStr = "Driver={SQLite3 ODBC Driver};Database=" & ThisWorkbook.Path & "\test.sqlite3"
conn.Open (connStr)
Dim rst As Object
Set rst = CreateObject("adodb.recordset")
Call rst.Open("SELECT * FROM 设备材料库;", conn)
Call ThisWorkbook.Sheets(1).Range("A1").CopyFromRecordset(rst)
rst.Close
conn.Close
End Sub

复制代码

zhn158 · 发表于 2019-5-23 20:03

折腾大半天，在stackOverflow上找到答案了：
在 set rst = ……后面增加如下代码：

rst.CursorType = 1

复制代码

https://stackoverflow.com/questi ... ugh-multiple-record

zpy2 · 发表于 2019-5-24 05:08

zhn158 发表于 2019-5-23 20:03
折腾大半天，在stackOverflow上找到答案了：
在 set rst = ……后面增加如下代码：

用的是那个odbc的驱动，没有richclient的？

zpy2 · 发表于 2019-5-24 05:27

本帖最后由 zpy2 于 2019-5-24 09:08 编辑

用sqlite 搞定年级排名，班级排名
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1477182&pid=9939264&mobile=2
参考一下吧
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1477182&pid=9939264

zhn158 · 发表于 2019-5-24 08:52

http://www.ch-werner.de/sqliteodbc/
在这里下的odbc

richclient不了解，能给个资料了解一下吗

zpy2 · 发表于 2019-5-24 09:07

zhn158 发表于 2019-5-24 08:52
http://www.ch-werner.de/sqliteodbc/
在这里下的odbc

你这个链接，我打不开啊，可能IP被封了，你看我发的链接里面有 VBrichclient5的sqlite驱动，应该没有你说的问题。
另外，你这个odbc支持窗口函数吗？

zhn158 · 发表于 2019-5-24 09:17

zpy2 发表于 2019-5-24 09:07
你这个链接，我打不开啊，可能IP被封了，你看我发的链接里面有 VBrichclient5的sqlite驱动，应该没有你说 ...

我需要的功能很简单，不了解窗口函数。应该不支持

zhn158 · 发表于 2019-5-24 10:05

zpy2 发表于 2019-5-24 09:07
你这个链接，我打不开啊，可能IP被封了，你看我发的链接里面有 VBrichclient5的sqlite驱动，应该没有你说 ...

运行你的代码在CNN.CreateNewDB处报错：Activex部件不能创建对象
我用的是win10 64位，已经注册了vbrichclient
请问怎么解决

zpy2 · 发表于 2019-5-24 10:47

zhn158 发表于 2019-5-24 10:05
运行你的代码在CNN.CreateNewDB处报错：Activex部件不能创建对象
我用的是win10 64位，已经注册了vbrich ...

经注册了vbrichclient
请问怎么解决
64位office吗？这个驱动应该是32位的，会不会不兼容啊！
VB6如果方便的话可以试试，还有win10最好管理员运行。

zpy2 · 发表于 2019-5-24 10:52

zpy2 发表于 2019-5-24 10:47
经注册了vbrichclient
请问怎么解决
64位office吗？这个驱动应该是32位的，会不会不兼容啊！

如果采用引用方式使用，则需要将 vbRichClient5.dll 和 vb_cairo_sqlite.dll 一起复制到程序目录，并
对 vbRichClient5.dll 进行注册。
如果采用免注册方法使用，则还需要将 DirectCOM.dll 一并复制到程序目录或System目录。

不管是否注册，首先添加对vbRichClient5的引用，因为代码用的前期绑定

http://club.excelhome.net/thread-1358617-1-1.html
是这个帖子的方法吗？

		自动登录	找回密码
密码			免费注册

[求助] CopyFromRecordset无法copy查询结果到excel