從Excel VBA到PostgreSQL數據庫的連接速度很慢

Question

我在PostgreSQL數據庫中有一個視圖。在pgAdmin中執行視圖非常快（10,000條記錄）。但執行「Select * From myView;」來自VBA的速度非常慢。我使用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分12秒，和 「數據= RS.GetRows」 00： 04:12。 在pgAdmin中，顯示所有10,000條記錄的時間不到一秒鐘。

Answer 1

我發現要使用OLE DB。它很快！
已下載PgOleDb：https://www.connectionstrings.com/pgoledb/info-and-download
將兩個DLL複製到C：\ Windows \ SysWOW64。
Ran「Regsvr32 PGOLEDB.DLL」。
連接字符串：https://www.connectionstrings.com/pgoledb

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

命令 「超時= 1000;」不起作用。