代码之家 › 专栏 › 技术社区 › Digvijay Sawant

使用excel vba连接到红移

excel-vba vba

Digvijay Sawant · 技术社区 · 6 年前

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或者我做错了什么?如果需要更多信息,请告诉我。

1 回复 | 直到 6 年前

Digvijay Sawant 6 年前

经过数小时的尝试,我发现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 & ";"

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前