Excel VBA到SQL Server ADODB连接 - 提示用户ID和密码

Question

Excel VBA

以下ADO数据库连接字符串可以工作并将数据从数据库提取到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 post使用ado db.connection，则代码提取：

  

Dim dbConnectStr As String
  设置con = New ADODB.Connection

     

dbConnectStr =“Provider = msdaora; Data Source =”＆amp; “Oracle_Database_Name;”

     

con.ConnectionString = dbConnectStr
  con.Properties（“提示”）= adPromptAlways
  con.Open dbConnectStr'ConnectionString

我还发现你可能需要将Prompt属性设置为adPromptComplete。