Можем ли мы подключиться к Redshift из Excel VBA? - PullRequest
Новая
       13

Можем ли мы подключиться к Redshift из Excel VBA?

0 голосов
/ 19 ноября 2018

Могу ли я спросить, можем ли мы сделать ADO или какое-либо соединение с Redshift с помощью Excel VBA?Пока что мы подключаемся к SQL Server и получаем результаты задания следующим образом:

- текущий код для SQL Server 2012/2016 

Sub Get_DB_Conncetion(StrDBName As String, StrSQL As String, DestSht As String, DestCell As String)

    On Error GoTo Err_DBConnectOpen

    Dim con As New ADODB.Connection
    Dim conStr As String
    Dim rs As Variant
    Dim cmd As Object

   'Connect String
    conStr = "Provider=Sqloledb;Data Source=" & StrSvr _
    & ";Initial Catalog=" & StrDBName _
    & ";Connect Timeout=10" _
    & ";user id=" & StrID _
    & ";password=" & StrPWD _
    & ""

    Debug.Print Now & "：Connect String：" & conStr

    'Connect to Database
    con.Open conStr

    'Execute SQL
    con.CommandTimeout = 900

    Set rs = con.Execute(StrSQL)
    If Not rs.EOF Then
        With Sheets(DestSht)
            .Activate
            .Range(DestCell).CopyFromRecordset rs
        End With
    End If


    'Close Session
    con.Close
    Set con = Nothing

    Exit Sub

    'Error Handling
Err_DBConnectOpen:

    MsgBox "Can't Connect" & vbCrLf & _
        Err.Description, vbOKOnly, vbCritical

    EXIT_FLG = True

    'Close Connection
    If con.State <> ADODB.adStateClosed Then
        con.Close
    End If
    Set con = Nothing
    Exit Sub

End Sub

Пока мы не можем подтвердить, что все в порядке, мынужно ежедневно проверять и сравнивать данные как SQL Server, так и Redshift.Для эффективности и точности мы хотели бы выставлять контрольные запросы и получать результаты максимально автоматически.

Любой совет будет оценен еще раз.Спасибо.

...