Я подключаю Excel к pgsql
1.Установите драйвер по адресу:
https://www.postgresql.org/ftp/odbc/versions/msi/
2.Добавить системный DSN:
Это мой код получения базы данных:
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
База данных: "理宏"
Но результат Excel показывает: 逅・ョ・
Если текст на английском, это нормально.
Как получить строку UTF8 при подключении из Excel к Postgresql?