Amigos,

 

eis o código:

Dim Cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cString As String

 

Set Cnn = New ADODB.Connection

Cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=NomeServidor"

 

Set rs = New ADODB.Recordset
Set rs.ActiveConnection = Cnn

rs.CursorLocation = adUseServer

 

cString = ""
cString = cString & "select Distinct sj.[name]as job_name, so.step_ID, so.step_name,"
cString = cString & "so.database_name , so.Max_run_time, so.Max_run_date, sj.[Description], sj.Enabled"
cString = cString & "from msdb.dbo.sysjobsteps as so"
cString = cString & "inner join msdb.dbo.sysjobs as sj on sj.job_id = so.job_id order by sj.job_name"

rs.Open cString, Cnn, adOpenKeyset, adLockPessimistic, adCmdTableDirect

 

Ele fala que a tabela não existe na string cString.

Quero pegar o nome dos Job's que estão no sql server e mapear usando vba.

Essa query funciona no sql aqui ta falando que a tabela não existe.

Eu nunca fiz assim se alguem puder me ajudar. O que está faltando?

Obrigado

Moreti

Ash Katchup, obrigado pela sua atenção

Mas o msdb.dbo poderia ser também msdb.. é o nome do banco !

 

Claudio Moreti