使用WPS，运行SQL，源数据超过65536行，结果表显示不全，请教各位老师如何解决

xmtxfgswrc

由于公司只能使用WPS，源数据超过65536行，运行SQL查询，显示不全，请教各位老师如何解决，十分感谢！

“花名册”为数据源，在65536行以内，结果表正确，超过65536行，结果表显示不全。

剑指E

升级WPS版本看看

静听溪流

不太懂  给你顶一下

xyxcc177

strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath用这没有问题

xmtxfgswrc

xyxcc177 发表于 2023-1-31 08:03
strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath ...

谢谢老师，安装AccessDatabaseEngine2010后用这个可以了。

ning84

xmtxfgswrc 发表于 2023-1-31 18:36
谢谢老师，安装AccessDatabaseEngine2010后用这个可以了。

Access database engine 2010数据库引擎32位/64位免费下载 - 系统之家  https://www.xitongzhijia.net/soft/243207.html


Microsoft Office Access是由微软发布的关系数据库管理系统，它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。

　　Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员， 在包括专业版和更高版本的office版本里面被单独出售。2012年12月4日，最新的微软Office Access 2013在微软Office 2013里发布，微软Office Access 2010 是前一个版本。

　　MS ACCESS以它自己的格式将数据存储在基于Access Jet的数据库引擎里。它还可以直接导入或者链接数据（这些数据存储在其他应用程序和数据库）。

　　软件开发人员和数据架构师可以使用Microsoft Access开发应用软件，“高级用户”可以使用它来构建软件应用程序。和其他办公应用程序一样，ACCESS支持Visual Basic宏语言，它是一个面向对象的编程语言，可以引用各种对象，包括DAO（数据访问对象），ActiveX数据对象，以及许多其他的ActiveX组件。可视对象用于显示表和报表，他们的方法和属性是在vbA编程环境下，VBA代码模块可以声明和调用Windows操作系统函数。

使用说明

　　若要安装此下载，请执行以下操作：

　　通过单击“下载”按钮并将文件保存到硬盘上来下载文件。

　　双击硬盘上的“AccessDatabaseEngine.exe”程序文件启动安装程序。

　　按照屏幕上的说明完成安装。

　　若要使用此下载，请执行以下操作：

　　如果您是应用程序用户，请查阅您的应用程序文档，了解有关如何使用相应驱动程序的详细信息。

　　如果您是使用 OLEDB 的应用程序开发人员，请将 ConnectionString 属性的 Provider 参数设置为“Microsoft.ACE.OLEDB.12.0”。

　　如果要连接到 Microsoft office excel 数据，请根据 Excel 文件类型添加相应的 OLEDB 连接字符串扩展属性：

　　文件类型（扩展名）                        扩展属性

　　---------------------------------------------------------------------------------------------

　　Excel 97-2003 工作簿 （.xls）             “Excel 8.0”

　　Excel 2007-2010 工作簿 （.xlsx）          “Excel 12.0 Xml”

　　启用宏的 Excel 2007-2010 工作簿 （.xlsm） “Excel 12.0 宏”

　　Excel 2007-2010 非 XML 二进制工作簿 （.xlsb） “Excel 12.0”

　　如果您是使用 ODBC 连接到 Microsoft Office Access 数据的应用程序开发人员，请将连接字符串设置为“Driver={Microsoft Access Driver （*.mdb， *.accdb）};DBQ=path to mdb/accdb file”

　　如果您是使用 ODBC 连接到 Microsoft Office Excel 数据的应用程序开发人员，请将连接字符串设置为“Driver={Microsoft Excel Driver （*.xls， *.xlsx， *.xlsm， *.xlsb）};DBQ=path to xls/xlsx/xlsm/xlsb file”

　　若要删除此下载，请执行以下操作：

　　若要删除下载文件本身，请删除文件 AccessDatabaseEngine.exe

　　在“开始”菜单上，指向“设置”，然后单击“控制面板”。

　　双击 “添加/删除程序”。

　　在当前安装的应用程序列表中，选择“Microsoft Access 2010 数据库引擎”，然后单击“删除”或“添加/删除”。如果出现对话框，请按照说明删除该程序。

　　单击“是”或“确定”，以确认要删除该程序。

1. Function SqlRetuRs(Str)
   
2.    Dim Cn As ADODB.Connection
   
3.        Set Cn = New ADODB.Connection
   
4.    Dim Rs As ADODB.Recordset
   
5.        Set Rs = New ADODB.Recordset
   
6.         'Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
7.         Cn.Open "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName
   
8.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
   
9.        Set SqlRetuRs = Rs
   
10. End Function
    
11. 
    
12. 
    
13. 
    
14. 
    
15. 
    
16. Sub DELDELDEL()
    
17.    Dim Str, Rs As ADODB.Recordset
    
18.       Str = "Select  AAAA, BBBB  From [Sheet1$A1:C876] Where AAAA = 'AA'"
    
19.       Debug.Print Str
    
20.       Set Rs = SqlRetuRs(Str)
    
21.       Debug.Print Rs.RecordCount
    
22.       
    
23. End Sub
    
24. 
    

复制代码