创建一个可以写本地文件的触发器

 

Create proc Test

as

DECLARE@errCode int

DECLARE@fso int

EXEC@errCode = sp_OACreate 'Scripting.FileSystemObject', @fso OUT

if@errCode <> 0

BEGIN

    DECLARE @description varchar(256)

    EXEC sp_OAGetErrorInfo @fso, NULL,@description OUT

    PRINT @description /*SQL 查询分析器中有效*/

END

 

DECLARE@f int

EXECsp_OAMethod @fso, 'CreateTextFile', @f OUT, 'C:/oo.txt', 1

EXECsp_OAMethod @f, 'Write', NULL, 缓存依赖文件不得删除

EXECsp_OAMethod @f, 'Close' /*等效于：f.Close*/

EXECsp_OADestroy @f /*等效于：set f = nothing*/

EXECsp_OADestroy @fso

 

 

 

Create TRIGGERWriteCacheDepFile ON Procurement

FORINSERT, UPDATE, DELETE

AS

ExecTest