Connessione di Excel a PostgreSQL tramite VBA

Question

È possibile eseguire query come SELECT da VBA in Excel, quindi è possibile interrogare un DB PostgreSQL da Excel?

Se possibile, spiegami come collegarmi al database. Stavo cercando su Google ma non ho trovato risultati.

Answer 1

Creare una tabella o una vista in PostgreSQL che descriva i dati desiderati.

Utilizzare una connessione ODBC o ADO da VBA per connettersi a PostgreSQL. Se si utilizza ODBC, è necessario creare un DSN tramite odbcad32.exe quindi utilizzare il DSN in VB, non è facile connettersi direttamente.

See:

• 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, ma i principi sono gli stessi - ODBC/ADO.

Answer 2

Ecco alcuni codici possono essere utilizzati come riferimento. Spero che sia d'aiuto.

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

Anche per Windows a 64 bit, Excel VBA ha bisogno dello 32-bit ODBC driver.

Creare un DSN tramite %windir%\SysWOW64\odbcad32.exe. Infatti, digitando odbcad32.exe punti verso la versione a 64 bit in cui non è possibile trovare i driver a 32 bit corretto per impostazione predefinita.

Fonte: https://github.com/windweller/postgresql-excel-addIn