Kết nối Excel với PostgreSQL qua VBA

Question

Có thể tạo truy vấn như SELECT từ VBA trong Excel, vì vậy tôi có thể truy vấn DB PostgreSQL từ Excel không?

Nếu có thể, vui lòng giải thích cho tôi cách kết nối với cơ sở dữ liệu. Tôi đã tìm kiếm trong Google nhưng không tìm thấy kết quả nào.

Answer 1

Tạo bảng hoặc dạng xem trong PostgreSQL mô tả dữ liệu bạn muốn.

Sử dụng kết nối ODBC hoặc ADO từ VBA để kết nối với PostgreSQL. Nếu sử dụng ODBC, bạn sẽ cần phải tạo một DSN qua odbcad32.exe sau đó sử dụng DSN trong VB, nó không phải là dễ dàng để chỉ kết nối trực tiếp.

Xem:

• Using ADO in VBA to connect to PostgreSQL
• PostgreSQL Query to Excel Sheet
• http://jackdebear.blogspot.com.au/2011/11/connecting-to-postgres-from-excel.html
• Enabling import/export flows between a remote postgres database and excel workbooks
• Does ADO work with ODBC drivers or only OLE DB providers?
• How to put query results into a datatable with Excel VBA and ADO?

Better written eample that uses Oracle, nhưng các nguyên tắc đều giống nhau - ODBC/ADO.

Answer 2

Dưới đây là một số mã có thể sử dụng làm tham chiếu. Hy vọng nó giúp.

Sub SelectBasic() 

     Dim objDb_con 
     Dim strSomeValue As String 

     Set objDb_con = CreateObject("ADODB.Connection") 
     Set Rsdatatype = CreateObject("ADODB.RecordSet") 

     glbConnString = Trim(ActiveSheet.Range("B1").Value) 
     //Connection string format:Driver={PostgreSQL Unicode};Database=MyDB;server=192.16*.*.**;UID=USERID;Pwd=pasword //comment it 
     If glbConnString = "" Then 
     MsgBox "Enter the Connection String" 
     Else: 

     objDb_con.Open glbConnString 

     strSql = "select strSomeValue from SOMETABLE where Something=1" 
     Rsdatatype.Open strSql, objDb_con, adOpenKeyset, adLockpessimistic 
     If Rsdatatype.EOF = False Then strSomeValue = Rsdatatype.Fields(0).Value 
     Rsdatatype.Close 

     End If 
     objDb_con.Close 
    End Sub 

Answer 3

Ngay cả đối với Windows 64 bit, Excel VBA cần 32-bit ODBC driver.

Tạo DSN qua %windir%\SysWOW64\odbcad32.exe. Thật vậy, gõ odbcad32.exe điểm đối với phiên bản 64-bit, nơi bạn không thể tìm thấy các trình điều khiển 32-bit thích hợp theo mặc định.

Nguồn: https://github.com/windweller/postgresql-excel-addIn