sun8426
June 25th, 2008, 01:34 PM
Hello,
I tried to use the oaCreate/OAMethod to write to a text file from an existing sproc. I did not get an error, however, I did not see the new line of text got written to the text file. Here is my code:
DECLARE @FS int, @OLEResult int, @FileID int, @FileName varchar(255), @Text1 varchar(255)
set @FileName = 'c:\dummy.txt'
set @text1 = 'header file'
EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUT
IF @OLEResult <> 0 PRINT 'Scripting.FileSystemObject'
--Open a file
execute @OLEResult = sp_OAMethod @FS, 'OpenTextFile', @FileID OUT, @FileName, 8, 1
IF @OLEResult <> 0 PRINT 'OpenTextFile'
--Write Text1
execute @OLEResult = sp_OAMethod @FileID, 'WriteLine', Null, @Text1
IF @OLEResult <> 0 PRINT 'WriteLine'
EXECUTE @OLEResult = sp_OADestroy @FileID
EXECUTE @OLEResult = sp_OADestroy @FS
thank you in advance......
sun8426
I tried to use the oaCreate/OAMethod to write to a text file from an existing sproc. I did not get an error, however, I did not see the new line of text got written to the text file. Here is my code:
DECLARE @FS int, @OLEResult int, @FileID int, @FileName varchar(255), @Text1 varchar(255)
set @FileName = 'c:\dummy.txt'
set @text1 = 'header file'
EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUT
IF @OLEResult <> 0 PRINT 'Scripting.FileSystemObject'
--Open a file
execute @OLEResult = sp_OAMethod @FS, 'OpenTextFile', @FileID OUT, @FileName, 8, 1
IF @OLEResult <> 0 PRINT 'OpenTextFile'
--Write Text1
execute @OLEResult = sp_OAMethod @FileID, 'WriteLine', Null, @Text1
IF @OLEResult <> 0 PRINT 'WriteLine'
EXECUTE @OLEResult = sp_OADestroy @FileID
EXECUTE @OLEResult = sp_OADestroy @FS
thank you in advance......
sun8426