VBA를 사용하여이 코드의 암호를 자동화하려고합니다.

Question

실행을 클릭하면 사용자 이름, 암호 및 서버를 묻는 팝업 상자가 나타납니다. 이미 엑셀 셀에 정보를 입력했지만 Idk에서는 암호를 추가 할 수 있습니다.

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