1.首先在Visual Stdio 2005中建立一个VB 数据库Sql Server 工程,工程名为【MyCLRProcedure】,如下图
2.选择数据库链接
3.在新建工程上右键 → 追加 → StoredProcedures,选择StoredProcedures ,设置名称为【MyProc.vb】,程序如下
<Microsoft.SqlServer.Server.SqlProcedure()>_
PublicSharedSubMyProc()SubMyProc()
'コードをここに追加してください
EndSub
EndClass
在绿色注释部分追加调用bat文件的操作,本例是创建一个文件夹,带一个参数做为文件夹名。
run.bat文件内容如下:
if " %1 " == "" goto END
set DIRNAME = %1
rmdir c: temp %DIRNAME%
mkdir c: temp %DIRNAME%
:END
@echo ■■■TriggerTest End ■■■
pause
修改MyProc方法如下,追加一个参数【dirname】做为文件夹名:
'コードをここに追加してください
SqlContext.Pipe.Send("MyProcStart!")
Try
DimobjExecuteFileAsNewSystem.Diagnostics.ProcessStartInfo
DimobjExecuteAsNewSystem.Diagnostics.Process
objExecuteFile.FileName="c: emp un.bat"
SqlContext.Pipe.Send(objExecuteFile.FileName)
objExecuteFile.Arguments=dirname
objExecuteFile.UseShellExecute=True
objExecute.StartInfo=objExecuteFile
objExecute.Start()
CatchexAsException
SqlContext.Pipe.Send(ex.ToString)
EndTry
SqlContext.Pipe.Send("MyProc End!")
EndSub
将做成的【MyProc.vb】拷贝到【D:】盘根目录,打开【Microsoft .NET Framework SDK v2.0】 → 【SDK Command Prompt】,键入以下命令
Microsoft(R)VisualBasicCompilerVersion 8.0.50727.42
forMicrosoft(R).NETFrameworkversion 2.0.50727.42
Copyright(C)MicrosoftCorporation.Allrightsreserved.
C:ProgramFilesMicrosoftVisualStudio 8 SDKv2 .0 >
生成【MyProc.dll】文件,拷贝至数据库服务器上的【C:/temp】目录下。
4.打开【Microsoft SQL Server 2005】 → 【SQL Server Management Studio】,在【DataBase】 【数据库名】 【Programming】 【ASSEMBLY】上右键选中【New ASSEMBLY】,弹出新窗口,选择上步生成的【MyProc.dll】文件。
点击OK即可
5.建立一个Procedure,在上步【ASSEMBLY】同级别目录下选择【StoredProcedures】,右键新建一个【StoredProcedures】,修改内容为如下表示:
@dirname nchar ( 10 )
AS
EXTERNALNAMEMyProc.SqlServerProject.MyProc
6.在需要操作的数据表下的【Trigger】上右键选择新建,修改为如下:
ON DateTable
AFTER INSERT , DELETE , UPDATE
AS
EXEC MyProcedureAABBCC
其中【AABBCC】为传入的参数。点击OK,创建完毕,下面进行测试。
7.执行数据表删除语句,查看后台信息。
后台信息如下:
MyProc Start!
c:/temp/run.bat
MyProc End!
(1 行処理されました)
再看服务器上【C:/temp】目录下,新建了一个【AABBCC】文件夹。