Question

当我点击运行时，我会弹出一个弹出框询问我的用户名，密码和服务器。我已经把这些信息放在一些excel单元格上，但我可以在其中添加密码。

dataName = (Range("dataName").Value)
passWord = (Range("password").Value)
serverName = (Range("server").Value)
queryName = (Range("Query").Value)

dbConnectStr = "Provider=msdaora;User Id=" & Uname
dbConnectStr1 = "Provider=msdaora;User Id='" & dataName & "'  ;Data Source='" & serverName & "'"

    objmyconn.ConnectionString = dbConnectStr & dbConnectStr1
    objmyconn.Properties("Prompt") = adPromptAlways
    objmyconn.Open dbConnectStr 'ConnectionString'
    'Declare variables'

'Set objmyconn = New ADODB.Connection
Set Sql = New ADODB.Command
Set ds = New ADODB.Recordset
Dim strsql As String
Dim fld As ADODB.Field
Dim i As Long
i = 2

Answer 1

您可以将其作为Pwd=参数添加到连接字符串中。代码看起来像：

dataName = (Range("dataName").Value)
Password = (Range("password").Value)
serverName = (Range("server").Value)
queryName = (Range("Query").Value)

dbConnectStr = "Provider=msdaora;User Id=" & Uname
dbConnectStr1 = "Provider=msdaora;User Id='" & dataName & "'  ;Data Source='" & serverName & "'" & "'  ;Pwd='" & Password & "'"

    objmyconn.ConnectionString = dbConnectStr & dbConnectStr1
    objmyconn.Properties("Prompt") = adPromptAlways
    objmyconn.Open dbConnectStr 'ConnectionString'
    'Declare variables'

'Set objmyconn = New ADODB.Connection
Set Sql = New ADODB.Command
Set ds = New ADODB.Recordset
Dim strsql As String
Dim fld As ADODB.Field
Dim i As Long
i = 2

我正在尝试使用VBA为此代码添加自动密码

1 个答案: