通过 Windows 身份验证的 Macro Excel 运行 SQL Job Agent

Question

我有宏可以使用用户标识和密码手动运行 SQL 作业代理

Sub Run_Job()
Dim con As Object
Set con = CreateObject("ADODB.Connection")
con.Open = "Provider=sqloledb; Data Source=SERVERNAME; Initial Catalog=DATABASENAME; User Id=USERNAME; Password=PASSWORD;"
con.Execute "exec msdb.dbo.sp_start_job ‘AGENTJOBNAME’"
Workbooks("WORKBOOKNAME.xlsx").Close
End Sub

但是当我的SQL Server必须使用Windows身份验证登录时，

如何使用Windows身份验证来创建宏来运行它？

Answer 1

对连接字符串进行小更正

con.Open = "Provider=sqloledb; Data Source=SERVERNAME; Initial Catalog=DATABASENAME; Integrated Security=SSPI;"  

它切换到集成身份验证。