Podłączanie Excel do PostgreSQL poprzez VBA

Question

Czy to możliwe, aby zapytać jak SELECT z VBA w Excelu, więc mogę kwerendy PostgreSQL DB z programu Excel?

Jeśli to możliwe, proszę mi wyjaśnić, jak połączyć się z bazą danych. Szukałem w Google, ale nie znalazłem żadnych wyników.

Answer 1

Tworzenie tabeli lub widoku w PostgreSQL, który opisuje dane, które chcesz.

Za pomocą ADO lub połączenia ADO z VBA połączyć PostgreSQL. Jeśli korzystasz z ODBC, musisz utworzyć DSN poprzez odbcad32.exe, a następnie użyć DSN w VB, nie jest łatwo po prostu połączyć się bezpośrednio.

Patrz:

• 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, ale zasady są takie same - ODBC/ADO.

Answer 2

Oto niektóre kod może służyć jako odniesienie. Mam nadzieję, że to pomoże.

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

Nawet w przypadku 64-bitowego systemu Windows program Excel VBA potrzebuje 32-bit ODBC driver.

Tworzenie DSN poprzez %windir%\SysWOW64\odbcad32.exe. Rzeczywiście, wpisując odbcad32.exe punktów w kierunku 64-bitowej wersji, gdzie nie można znaleźć odpowiednich sterowników 32-bitowych domyślnie.

Źródło: https://github.com/windweller/postgresql-excel-addIn