通过Macro Excel通过Windows认证运行SQL Job Agent。

Question

我有一个宏，通过使用userid和密码手动运行SQL Job Agent。

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 auth创建宏来运行它？

Answer 1

对你的连接字符串进行小的修正

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

它切换到综合认证。