vba - 从Excel VBA到PostgreSQL数据库的连接缓慢

我在PostgreSQL数据库中有一个视图。在pgAdmin中执行视图非常快（10000条记录）。但是从VBA执行“Select*From myView；”非常慢。我使用ADO和ODBC连接到数据库。有人能给我一个提示，告诉我怎么加快速度吗？
一个小例子：

Sub TEST()

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset

Dim Data   As Variant
Dim SQL    As String
Dim ConStr As String

ConStr = "Server=11.22.33.44;" & _
         "DSN=PostgreSQL35W 32bit;" & _
         "UID=xxx;" & _
         "PWD=xxx;" & _
         "Database=xxx;" _ &
         "Port=5432;" & _
         "CommandTimeout=12"

SQL = "Select * From myView;"

Debug.Print Now()

CN.ConnectionString = ConStr
CN.Open
Debug.Print Now()

RS.ActiveConnection = CN
RS.Source = SQL
RS.CursorType = adOpenStatic
RS.LockType = adLockReadOnly
Debug.Print Now()

RS.Open
Debug.Print Now()

Data = RS.GetRows
Debug.Print Now()

RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing

End Sub

这将提供输出：

10/08/2016 16:14:26
10/08/2016 16:14:26
10/08/2016 16:14:26
10/08/2016 16:14:38
10/08/2016 16:18:50

即“RS.Open”占用00:00:12，“Data=RS.GetRows”占用00:04:12。
在pgAdmin中，显示所有10000条记录只需不到一秒钟的时间。

最佳答案

我发现要用OLEDB。而且很快！
下载的PgOleDb:https://www.connectionstrings.com/pgoledb/info-and-download
已将这两个dll复制到C:\ Windows\SysWOW64。
运行“Regsvr32 PGOLEDB.DLL”。
连接字符串：https://www.connectionstrings.com/pgoledb

Provider=PostgreSQL OLE DB Provider;Data Source=myServerAddress;
location=myDataBase;User ID=myUsername;password=myPassword;

命令“timeout=1000；”不起作用。

关于vba - 从Excel VBA到PostgreSQL数据库的连接缓慢，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/38876760/