</StoredProcedure> -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/ CREATE PROCEDURE tp_File_CloseFile ( @FS int, -- File system object reference @FileID int -- File id reference ) AS BEGIN SET NOCOUNT ON
EXEC tp_File_WriteFile @FileID, '1. ceci est un test' EXEC tp_File_WriteFile @FileID, '2. ceci est un autre test'
EXEC tp_File_CloseFile @FS, @FileID </Sample>
</StoredProcedure> -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/ CREATE PROCEDURE tp_File_OpenFile ( @FileName nvarchar(250), -- Name of the file to create @FS int OUTPUT, -- File system object reference @FileID int OUTPUT -- File id reference ) AS BEGIN SET NOCOUNT ON
DECLARE @OLEResult int
-- Create scripting object EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUT IF @OLEResult <> 0 RETURN -1
</StoredProcedure> -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/ CREATE PROCEDURE tp_File_WriteFile ( @FileID int, -- File id reference @Text nvarchar(4000), -- Text to write @NewLine int = 1 ) AS BEGIN SET NOCOUNT ON
DECLARE @OLEResult int
-- Write the text in the file IF @NewLine = 1 BEGIN EXECUTE @OLEResult = sp_OAMethod @FileID, 'WriteLine', Null, @Text END ELSE BEGIN EXECUTE @OLEResult = sp_OAMethod @FileID, 'Write', Null, @Text END
IF @OLEResult <> 0 RETURN -1
END GO
---------------------------------------------------------------------- Philippe TROTIN - Microsoft Service France
</StoredProcedure>
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/
CREATE PROCEDURE tp_File_CloseFile
(
@FS int, -- File system object reference
@FileID int -- File id reference
)
AS
BEGIN
SET NOCOUNT ON
EXEC tp_File_WriteFile @FileID, '1. ceci est un test'
EXEC tp_File_WriteFile @FileID, '2. ceci est un autre test'
EXEC tp_File_CloseFile @FS, @FileID
</Sample>
</StoredProcedure>
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/
CREATE PROCEDURE tp_File_OpenFile
(
@FileName nvarchar(250), -- Name of the file to create
@FS int OUTPUT, -- File system object reference
@FileID int OUTPUT -- File id reference
)
AS
BEGIN
SET NOCOUNT ON
DECLARE @OLEResult int
-- Create scripting object
EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUT
IF @OLEResult <> 0 RETURN -1
</StoredProcedure>
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/
CREATE PROCEDURE tp_File_WriteFile
(
@FileID int, -- File id reference
@Text nvarchar(4000), -- Text to write
@NewLine int = 1
)
AS
BEGIN
SET NOCOUNT ON
DECLARE @OLEResult int
-- Write the text in the file
IF @NewLine = 1
BEGIN
EXECUTE @OLEResult = sp_OAMethod @FileID, 'WriteLine', Null, @Text
END
ELSE
BEGIN
EXECUTE @OLEResult = sp_OAMethod @FileID, 'Write', Null, @Text
END
IF @OLEResult <> 0 RETURN -1
END
GO
----------------------------------------------------------------------
Philippe TROTIN - Microsoft Service France
"Julien" <Julien@discussions.microsoft.com> wrote in message
news:CAC9F139-134A-4751-A71E-B44FA12C1510@microsoft.com...
</StoredProcedure> -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/ CREATE PROCEDURE tp_File_CloseFile ( @FS int, -- File system object reference @FileID int -- File id reference ) AS BEGIN SET NOCOUNT ON
EXEC tp_File_WriteFile @FileID, '1. ceci est un test' EXEC tp_File_WriteFile @FileID, '2. ceci est un autre test'
EXEC tp_File_CloseFile @FS, @FileID </Sample>
</StoredProcedure> -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/ CREATE PROCEDURE tp_File_OpenFile ( @FileName nvarchar(250), -- Name of the file to create @FS int OUTPUT, -- File system object reference @FileID int OUTPUT -- File id reference ) AS BEGIN SET NOCOUNT ON
DECLARE @OLEResult int
-- Create scripting object EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUT IF @OLEResult <> 0 RETURN -1
</StoredProcedure> -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/ CREATE PROCEDURE tp_File_WriteFile ( @FileID int, -- File id reference @Text nvarchar(4000), -- Text to write @NewLine int = 1 ) AS BEGIN SET NOCOUNT ON
DECLARE @OLEResult int
-- Write the text in the file IF @NewLine = 1 BEGIN EXECUTE @OLEResult = sp_OAMethod @FileID, 'WriteLine', Null, @Text END ELSE BEGIN EXECUTE @OLEResult = sp_OAMethod @FileID, 'Write', Null, @Text END
IF @OLEResult <> 0 RETURN -1
END GO
---------------------------------------------------------------------- Philippe TROTIN - Microsoft Service France