sql-server - Excel VBA から SQL Server ADODB への接続 - ユーザー ID とパスワードのプロンプト

Question

エクセル VBA

次の ADO DB 接続文字列が機能し、データベースから Excel にデータをフェッチします。

Const rspADO As String = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"Initial Catalog=MyDatabase;" & _
"Data Source=118.aaa.yy.xx;" & _
"User ID=Username;Password=password;"

データ接続プロンプト (Excel の入力ボックスやユーザーフォームではなく) を使用して、(実行時に) ユーザー名とパスワードの入力をユーザーに求めるにはどうすればよいですか?

助けてくれてありがとう。

Answer 1

このvba express postado db.connection に従って、コードを抽出することができます：

Dim dbConnectStr As String
Set con = New ADODB.Connection

dbConnectStr = "Provider=msdaora;Data Source=" & "Oracle_Database_Name;"

con.ConnectionString = dbConnectStr
con.Properties("Prompt") = adPromptAlways
con.Open dbConnectStr 'ConnectionString

また、プロパティをに設定する必要がある場合があることもわかりました。PromptadPromptComplete