sql-server - 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，代码提取：

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

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