Question

我在VBA中相对较新。

我的要求是在工作表单元格的DB2连接字符串中传递UID和PSW。这是有效的连接字符串：

objMyConn.Open "Driver={IBM DB2 ODBC DRIVER};Database=DBName;Hostname=xxx.xxx.xxx;Port=123;Protocol=TCPIP;Uid=" & "XYZ" & ";Pwd=" & "Password"

我想分别从A2和B2单元格传递Uid和Pwd。

谢谢。

Answer 1

您可以将密码声明为变量并将其传递：

Sub TestMe()

    With Worksheets(1)
        Dim pwd As String: pwd = .Range("B2")
        Dim uid As String: uid = .Range("A2")
    End With
    objMyConn.Open "Driver={IBM DB2 ODBC DRIVER};Database=DBName;" & _
        "Hostname=xxx.xxx.xxx;Port=123;Protocol=TCPIP;Uid=" & uid & ";Pwd=" & pwd

End Sub

因此，在传递参数之前，可以进行一些检查：

If IsError(pwd) Then
If Len(pwd) < 6 Then

将单元格值传递给DB2连接字符串

1 个答案: