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。