Как получить String UTF8 при подключении из Excel к Postgresql? - PullRequest
0 голосов
/ 08 мая 2018

Я подключаю Excel к pgsql

1.Установите драйвер по адресу:

https://www.postgresql.org/ftp/odbc/versions/msi/

2.Добавить системный DSN:

enter image description here

Это мой код получения базы данных:

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?

1 Ответ

0 голосов
/ 09 мая 2018

Причина: у меня была установка psqlodbc_07. я установил установкой psqlodbc_10. это нормально.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...