Подключение к Redshift с помощью Excel VBA

Question

Я использую VBA для программного соединения с базой данных красного смещения.Я использую драйвер Postgresql.Вот мой код:

Private Sub CommandButton1_Click()

    Dim rs_opex As Worksheet
    Set rs_opex = ThisWorkbook.Sheets("OPEX")

    'Declare Variables
    Dim objMyconn As Object
    Dim objMyCmd As Object
    Dim objMyRecordset As Object

    Set objMyconn = CreateObject("ADODB.Connection")
    Set objMyCmd = CreateObject("ADODB.Command")
    Set objMyRecordset = CreateObject("ADODB.Recordset")

      objMyconn.ConnectionString = "DRIVER={PostgreSQL Unicode};" & _
            "SERVER=something;" & _
            "DATABASE=whatever;" & _
            "USER=sawantdr;" & _
            "PORT=1234;" & _
            "PASSWORD=abc1234;" & _
            "Option=0"

        objMyconn.Open


End Sub

Я получаю сообщение об ошибке:

Я думаю, это может быть связано с отключением SSL.Есть ли способ включить SSL программно или я делаю что-то еще не так?Пожалуйста, дайте мне знать, если требуется дополнительная информация.

Answer 1

После нескольких часов попыток я обнаружил, что Redshift имеет собственный разъем ODBC.Его можно найти здесь: https://docs.aws.amazon.com/redshift/latest/mgmt/install-odbc-driver-windows.html. Вот код:

Dim oConn As Object
    Set oConn = CreateObject("ADODB.Connection")
    Dim cmd As Object
    Set cmd = CreateObject("ADODB.Command")
    ' Connection Parameters
    Dim strUsername As String
    Dim strPassword As String
    Dim strServerAddress As String
    Dim strDatabase As String

    ' User:
    strUsername = "***"
    ' Password:
    strPassword = "***"
    ' Server Address:
    strServerAddress = "***"
    ' Database
    strDatabase = "***"

     oConn.Open "Driver={Amazon Redshift (x86)};" & _
            "Server=" & strServerAddress & ";" & _
            "Port=***;" & _
            "Database=***;" & _
            "Uid=" & strUsername & ";" & _
            "Pwd=" & strPassword & ";"