0
Когда я нажимаю кнопку запуска, я получаю всплывающее окно с просьбой указать имя пользователя, пароль и сервер. Я уже помещал эту информацию в некоторые ячейки excel, но Idk, где я могу добавить пароль.Я пытаюсь добавить автоматизировать пароль для этого кода, используя VBA
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
Я добавил его, но он все еще выходит черным. ; (@nbaylt –
Что вы имеете в виду, оно все еще выходит черным? Я просто заметил, что вы не используете 'dbConnectStr1' в качестве вашей строки подключения. Есть ли причина, почему вы подробно описываете строку соединения в двух разных переменных? В' objmyconn.Open Вместо этого dbConnectStr' попытается использовать 'dbConnectStr1'. – nbayly