如何在WPS中使用ADO连接数据库？

bkzy333

现在数据量越来越大，想实现VBA+ADO。因为单位使用WPS居多。编写的代码语句在office2016中能顺利运行并提取到数据，但是在WPS2019（已安装宏）中无法运行。于是从http://club.excelhome.net/thread-1432952-4-1.html了解到可能还需要安装插件，所以到了微软官网下载了【Microsoft Access 2016 数据库引擎可再发行程序包】，最终还是失败。在此请教各位大神有没有比较好的解决方案，谢谢。

代码如下（摘自——看见星光）

Sub DoSql_Execute1()

   Dim cnn As Object, rst As Object

   Dim strPath As String, str_cnn As String, strSQL As String

   Dim i As Long

   Set cnn = CreateObject("adodb.connection")

   strPath = ThisWorkbook.FullName

   If Application.Version < 12 Then

       str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;ExtendedProperties=Excel 8.0;Data Source=" & strPath

   Else

       str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=Excel 12.0;Data Source=" & strPath

   End If

   cnn.Open str_cnn

   strSQL = "SELECT 姓名,成绩 FROM [Sheet1$] WHERE 成绩>=80"

   Set rst = cnn.Execute(strSQL)

   Worksheets("结果表").Select

   Cells.ClearContents

   For i = 0 To rst.Fields.Count - 1

       Cells(1, i + 1) = rst.Fields(i).Name

   Next

   Range("a2").CopyFromRecordset rst

   cnn.Close

   Set cnn = Nothing

End Sub

代码运行后str_cnn ="Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;DataSource=" & strPath

但往往在【cnn.Open str_cnn】这一句中出错。

fxl447098457

我的是wps 2019，他的application.version是12.如果你是旧版的wps低于12的话，运行的是jet引擎，而你装的是ace引擎，所以无法使用。
另外一个可能就是如果你的也是12.0的version的话。可能你安装的是x64的database engine.需要x86版本的database engine。

luppie

赞同楼上的专家，大概率是引擎装成64位的了，只能用32位的。

bkzy333

fxl447098457 发表于 2021-1-20 13:12
我的是wps 2019，他的application.version是12.如果你是旧版的wps低于12的话，运行的是jet引擎，而你装的是 ...

我是选择图片1中第一个进行安装的。我的WPS version也是12.0.然后修改了代码后发现出现了其他问题：1能够通过ADO连接同工作簿的其他工作表。
2但是如果连接不同的工作簿将会出错，当被连接的工作簿是xlsx时就是提示【外部表不是预期的格式】，当改成xls时，也不行。
3如果连接access的话，提示open作用于对象失败，
这个问题困扰了我很久，希望能解答，谢谢您。

cui26896

是啊，既然WPS基本可以与Office通用，微软停止对VBA的开发支持，国内不能有哪家企业承接下来，继续支持呢？没有自己的，借用别人的发扬光大也是条路啊！

zmj9151

试试sqlite数据库，安装odbc驱动即可。

kizj

fxl447098457 发表于 2021-1-20 13:12
我的是wps 2019，他的application.version是12.如果你是旧版的wps低于12的话，运行的是jet引擎，而你装的是 ...

大佬，我有两台电脑，一台电脑没有安装access，通过安装32位的database engine可是实现wps使用ado。
但是另外一台已经安装过office2019，且电脑中有现成的access的电脑，不管怎样wps都无法使用ado。如何处理

fxl447098457

kizj 发表于 2021-3-26 10:00
大佬，我有两台电脑，一台电脑没有安装access，通过安装32位的database engine可是实现wps使用ado。
但 ...

wps是32位的。需要装X86的access database engine. office 2019应该是64位的。wps无法调用。

fxl447098457

bkzy333 发表于 2021-3-18 17:48
我是选择图片1中第一个进行安装的。我的WPS version也是12.0.然后修改了代码后发现出现了其他问题：1能够 ...

至于你的问题，跨工作部查询在sql语句里面需要带上工作部的完整路径名称。如下：
[工作簿完整的路径].[工作表名$]

kizj

fxl447098457 发表于 2021-3-26 10:41
wps是32位的。需要装X86的access database engine. office 2019应该是64位的。wps无法调用。

像这种情况，单独安装x86的access database engine也没用吗。