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

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中的Inputbox或Userform）提示用户输入用户名和密码？谢谢您的帮助。

- user1955215

---

http://www.vbaexpress.com/forum/showpost.php?p=260530&postcount=3 - glh

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.

- glh

---

由于我正在尝试连接到 SQL Server，所以必须在上面的字符串中将提供程序更改为“Provider=SQLOLEDB.1”。 - user1955215