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'を使用していないことに気付きました。代わりに 'dbConnectStr1'を使ってみてください。 – nbayly