Pass Cell value to DB2 Connection String

Question

I am relatively new in VBA.

My requirement is to pass UID and PSW in DB2 connection string from the sheet cells. This is the working connection string:

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

I want to pass Uid and Pwd from cell A2 and B2 respectively.

Thanks in advance.

Vityata · Accepted Answer · 2018-08-06 11:36:38Z

1

You can declare the passwords as variables and pass them:

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

Thus, before passing the parameters some checks could be carried out:

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

answered Aug 6, 2018 at 11:36

Vityata

43.8k10 gold badges64 silver badges110 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Vivek8086 Over a year ago

For some reason, I am getting invalid credential error, even though the cells contain correct details.

Collectives™ on Stack Overflow

Pass Cell value to DB2 Connection String

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related