--作业与调度
--使用JOB
--企业管理器
--管理
--SQL Server代理
--右键作业
--新建作业
--"常规"项中输入作业名称
--"步骤"项
--新建
--"步骤名"中输入步骤名
--"类型"中选择"Transact-SQL 脚本(TSQL)"
--"数据库"选择执行命令的数据库
--"命令"中输入要执行的语句:
EXEC 存储过程名... --该存储过程用于创建表--确定
--"调度"项
--新建调度
--"名称"中输入调度名称
--"调度类型"中选择你的作业执行安排
--如果选择"反复出现"
--点"更改"来设置你的时间安排 --该处设置为每月日的凌晨:00:00
--然后将SQL Agent服务启动,并设置为自动启动,否则你的作业不会被执行--设置方法:
--我的电脑--控制面板--管理工具--服务--右键SQLSERVERAGENT--属性--启动类型--选择"自动启动"--确定.
--使用JOB
--企业管理器
--管理
--SQL Server代理
--右键作业
--新建作业
--"常规"项中输入作业名称
--"步骤"项
--新建
--"步骤名"中输入步骤名
--"类型"中选择"Transact-SQL 脚本(TSQL)"
--"数据库"选择执行命令的数据库
--"命令"中输入要执行的语句:
EXEC 存储过程名... --该存储过程用于创建表--确定
--"调度"项
--新建调度
--"名称"中输入调度名称
--"调度类型"中选择你的作业执行安排
--如果选择"反复出现"
--点"更改"来设置你的时间安排 --该处设置为每月日的凌晨:00:00
--然后将SQL Agent服务启动,并设置为自动启动,否则你的作业不会被执行--设置方法:
--我的电脑--控制面板--管理工具--服务--右键SQLSERVERAGENT--属性--启动类型--选择"自动启动"--确定.
'定义新线程,用于定时执行存储过程
Dim myThreadStart As System.Threading.ThreadStart = New System.Threading.ThreadStart(AddressOf UpdateCategoryHotDegree)
Dim schedulerThread As System.Threading.Thread = New System.Threading.Thread(myThreadStart)
再在:
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
'开始定时执行存储过程的线程
schedulerThread.Start()
End Sub
还有:
Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
schedulerThread.Abort()
End Sub最后:
Public Sub UpdateCategoryHotDegree()
While (True)
Dim NowTime As DateTime = System.DateTime.UtcNow
If NowTime.Hour = 0 And NowTime.Minute = 0 Then
'当时间到达零时零分时运行存储过程
Kingbo.WebModules.Repository.Business.Outline.UpdateCategoryHotDegree()
End If
'设置线程休眠时间间隔为一分钟
schedulerThread.Sleep(1000 * 60)
End While
End Sub