t-sql读写文件
declare @FilePath nvarchar(400),@xmlstr varchar(8000);
Declare @INT_ERR int ----错误代码，0 成功
Declare @INT_FSO int ----FSO对象标志
Declare @INT_OPENFILE int ----文本文件对象标志
Declare @STR_CONTENT varchar(8000) ----文件内容
DECLARE @output varchar(255)
DECLARE @hr int
DECLARE @source varchar(255)
DECLARE @description varchar(255)
select @FilePath = logid from optlog;
set @FilePath = 'f:/' + @FilePath + '.xml';
--set @FilePath='f:/mp.xml'
--set @STR_CONTENT = @xmlstr
select @STR_CONTENT = xmlinfo from optlog;
--创建FSO对象
--甚至可以是我们自己写的dll控件都可以
EXEC @INT_ERR = sp_OACreate 'Scripting.FileSystemObject', @INT_FSO OUTPUT
if(@INT_ERR <> 0)
BEGIN
EXEC sp_OAGetErrorInfo @INT_FSO
RETURN
END
-----文件路径
Declare @STR_FILENAME nvarchar(50)
Set @STR_FILENAME = @FilePath
---FSO.OpenTextFile(FileName, 1, FALSE),第二个参数1表示只读，第三个参数false表示文件不存在时不创建
----创建文本文件对象
----FSO的所有方法都可以用下面类似方式创建，可以实现文件的任意操作，非常方便
EXEC @INT_ERR=SP_OAMETHOD @INT_FSO,'CreateTextFile',@INT_OPENFILE OUTPUT,@STR_FILENAME
if(@INT_ERR <> 0)
BEGIN
EXEC sp_OAGetErrorInfo @INT_OPENFILE,@source OUT, @description OUT
SELECT @output = ' Source: ' + @source
PRINT @output
SELECT @output = ' Description: ' + @description
PRINT @output
RETURN
END
----读取文件，内容放到@STR_CONTENT
----读到了文件内容，后面的处理就好办了
EXEC @INT_ERR=SP_OAMETHOD @INT_OPENFILE,'Write',null,@STR_CONTENT
if(@INT_ERR <> 0)
BEGIN
EXEC sp_OAGetErrorInfo @INT_FSO, @description OUT
SELECT @output = ' Source: ' + @source
PRINT @output
SELECT @output = ' Description: ' + @description
PRINT @output
RETURN
END
----销毁创建的对象
EXEC @INT_ERR=SP_OADESTROY @INT_OPENFILE
EXEC @INT_ERR=SP_OADESTROY @INT_FSO