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

excelvba

以下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）提示用户输入用户名和密码（在运行时）

提前谢谢你的帮助

---

如果使用ado db.connection可以根据此代码提取：

Dim dbConnectStr作为字符串
Set con=New ADODB.Connection

dbConnectStr=“Provider=msdaora；Data Source=“&”Oracle\u Database\u Name；”

con.ConnectionString=dbConnectStr
con.Properties（“Prompt”）=adpromptaways
con.打开dbConnectStr的ConnectionString

---

我还发现，您可能需要将

Prompt

属性设置为

adpromptpcomplete

因为我试图连接到SQL Server，所以必须将上面字符串中的提供程序更改为“provider=SQLOLEDB.1”。