怎么在vb使用sql2000 的job作业
如何在vb使用sql2000 的job作业
是这样，我有sql2000中有个job作业，但我想在vb中判断它是否已启动，如没有启动则用代码手动启动此作业。
------解决方案--------------------
我地与数据库的操作都是通过SQL语句，所以你只要编写相应的SQL语句去检查一下就可以啦!
以下为我在本地数据库里生成是语句，你可以根据相应语句编写，如下：
BEGIN TRANSACTION
DECLARE @JobID BINARY(16)
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
IF (SELECT COUNT(*) FROM msdb.dbo.syscategories WHERE name = N '[Uncategorized (Local)] ') < 1
EXECUTE msdb.dbo.sp_add_category @name = N '[Uncategorized (Local)] '
— 删除同名的警报（如果有的话）。
SELECT @JobID = job_id
FROM msdb.dbo.sysjobs
WHERE (name = N '统计用户表 ')
IF (@JobID IS NOT NULL)
BEGIN
-- 检查此作业是否为多重服务器作业
IF (EXISTS (SELECT *
FROM msdb.dbo.sysjobservers
WHERE (job_id = @JobID) AND (server_id <> 0)))
BEGIN
-- 已经存在，因而终止脚本
RAISERROR (N '无法导入作业“统计用户表”，因为已经有相同名称的多重服务器作业。 ', 16, 1)
GOTO QuitWithRollback
END
ELSE
-- 删除［本地］作业
EXECUTE msdb.dbo.sp_delete_job @job_name = N '统计用户表 '
SELECT @JobID = NULL
END
BEGIN
— 添加作业
EXECUTE @ReturnCode = msdb.dbo.sp_add_job @job_id = @JobID OUTPUT , @job_name = N '统计用户表 ', @owner_login_name = N '0AFD94B1A4E74AC\Administrator ', @description = N '没有可用的描述。 ', @category_name = N '[Uncategorized (Local)] ', @enabled = 1, @notify_level_email = 0, @notify_level_page = 0, @notify_level_netsend = 0, @notify_level_eventlog = 0, @delete_level= 0
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
— 添加作业步骤
EXECUTE @ReturnCode = msdb.dbo.sp_add_jobstep @job_id = @JobID, @step_id = 1, @step_name = N '统计 ', @command = N 'Select Count(*) From sysobjects
Where type = ' 'U ' ' ', @database_name = N 'AppDB ', @server = N ' ', @database_user_name = N ' ', @subsystem = N 'TSQL ', @cmdexec_success_code = 0, @flags = 0, @retry_attempts = 0, @retry_interval = 1, @output_file_name = N ' ', @on_success_step_id = 0, @on_success_action = 1, @on_fail_step_id = 0, @on_fail_action = 2
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXECUTE @ReturnCode = msdb.dbo.sp_update_job @job_id = @JobID, @start_step_id = 1
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
— 添加目标服务器
EXECUTE @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @JobID, @server_name = N '(local) '
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
END
COMMIT TRANSACTION
GOTO EndSave
QuitWithRollback:
IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
EndSave:
GO
是这样，我有sql2000中有个job作业，但我想在vb中判断它是否已启动，如没有启动则用代码手动启动此作业。
------解决方案--------------------
我地与数据库的操作都是通过SQL语句，所以你只要编写相应的SQL语句去检查一下就可以啦!
以下为我在本地数据库里生成是语句，你可以根据相应语句编写，如下：
BEGIN TRANSACTION
DECLARE @JobID BINARY(16)
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
IF (SELECT COUNT(*) FROM msdb.dbo.syscategories WHERE name = N '[Uncategorized (Local)] ') < 1
EXECUTE msdb.dbo.sp_add_category @name = N '[Uncategorized (Local)] '
— 删除同名的警报（如果有的话）。
SELECT @JobID = job_id
FROM msdb.dbo.sysjobs
WHERE (name = N '统计用户表 ')
IF (@JobID IS NOT NULL)
BEGIN
-- 检查此作业是否为多重服务器作业
IF (EXISTS (SELECT *
FROM msdb.dbo.sysjobservers
WHERE (job_id = @JobID) AND (server_id <> 0)))
BEGIN
-- 已经存在，因而终止脚本
RAISERROR (N '无法导入作业“统计用户表”，因为已经有相同名称的多重服务器作业。 ', 16, 1)
GOTO QuitWithRollback
END
ELSE
-- 删除［本地］作业
EXECUTE msdb.dbo.sp_delete_job @job_name = N '统计用户表 '
SELECT @JobID = NULL
END
BEGIN
— 添加作业
EXECUTE @ReturnCode = msdb.dbo.sp_add_job @job_id = @JobID OUTPUT , @job_name = N '统计用户表 ', @owner_login_name = N '0AFD94B1A4E74AC\Administrator ', @description = N '没有可用的描述。 ', @category_name = N '[Uncategorized (Local)] ', @enabled = 1, @notify_level_email = 0, @notify_level_page = 0, @notify_level_netsend = 0, @notify_level_eventlog = 0, @delete_level= 0
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
— 添加作业步骤
EXECUTE @ReturnCode = msdb.dbo.sp_add_jobstep @job_id = @JobID, @step_id = 1, @step_name = N '统计 ', @command = N 'Select Count(*) From sysobjects
Where type = ' 'U ' ' ', @database_name = N 'AppDB ', @server = N ' ', @database_user_name = N ' ', @subsystem = N 'TSQL ', @cmdexec_success_code = 0, @flags = 0, @retry_attempts = 0, @retry_interval = 1, @output_file_name = N ' ', @on_success_step_id = 0, @on_success_action = 1, @on_fail_step_id = 0, @on_fail_action = 2
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXECUTE @ReturnCode = msdb.dbo.sp_update_job @job_id = @JobID, @start_step_id = 1
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
— 添加目标服务器
EXECUTE @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @JobID, @server_name = N '(local) '
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
END
COMMIT TRANSACTION
GOTO EndSave
QuitWithRollback:
IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
EndSave:
GO