I connect excel to pgsql
1.install driver at:
https://www.postgresql.org/ftp/odbc/versions/msi/
2.Add a System DSN:
This is my code get database:
Public Function setDBConnectionPgsql() As Object
Set setDBConnectionPgsql = CreateObject("ADODB.Connection")
setDBConnectionPgsql.Open "DSN=PostgreSQL;Server=192.168.1.10;Port=5434;UserId=postgres;Password=123456;Database=test;"
End Function
Private Sub CommandButton1_Click()
Dim adoCn As Object
Dim dbRes As Object
Set adoCn = setDBConnectionPgsql()
Set dbRes = CreateObject("ADODB.Recordset")
dbRes.Open "SELECT * FROM mst_user", adoCn, 1, 2
Dim iRow As Integer
iRow = 1
Do While dbRes.EOF = False
ActiveSheet.Rows(iRow).Cells(1).Value = dbRes("user_id")
ActiveSheet.Rows(iRow).Cells(2).Value = dbRes("user_name")
iRow = iRow + 1
dbRes.moveNext
Loop
End Sub
Database is: "理宏"
But Result Excel display :逅・ョ・
If Text is English, it is ok.
How can get String UTF8 when connect from Excel to Postgresql?