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

Question

Excel 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

如果你使用ado db.connection你可以根据这个vba express post，代码提取：

将 dbConnectStr 调暗为字符串
设置 con = New ADODB.Connection

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

con.ConnectionString = dbConnectStr
con.Properties("Prompt") = adPromptAlways
con.Open dbConnectStr '连接字符串

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