sa tragem o linie; am ajuns la asta:
use RESCOSA2009
DECLARE @retVal INT
DECLARE @comHandle INT
DECLARE @errorSource VARCHAR(8000)
DECLARE @errorDescription VARCHAR(8000)
DECLARE @pstrVersion INT
DECLARE @retString VARCHAR(100)
DECLARE @pstrEntitate VARCHAR(100)
DECLARE @pstrNumeFisier VARCHAR(100)
DECLARE @pstrFunctie NVARCHAR(100)
DECLARE @pstrNumeFirma NVARCHAR(100)
SET @pstrVersion = 1
SET @pstrFunctie = 'Export'
SET @pstrEntitate = 'Terti'
SET @pstrNumeFisier = 'C: a.txt'
SET @pstrNumeFirma = 'RESCO SA'
EXEC @retVal = sp_OACreate 'BGInterfaces.IInterfacesBO', @comHandle OUTPUT
IF (@retVal <> 0)
BEGIN
EXEC sp_OAGetErrorInfo @comHandle, @errorSource OUTPUT, @errorDescription OUTPUT
SELECT [Error Source] = @errorSource, [Description] = @errorDescription
RETURN
END
EXEC @retVal = sp_OAMethod @comHandle, 'Initializare', NULL, @pstrVersion, @pstrNumeFirma
IF (@retVal <> 0)
BEGIN
EXEC sp_OAGetErrorInfo @comHandle, @errorSource OUTPUT, @errorDescription OUTPUT
SELECT [Error Source] = @errorSource, [Description] = @errorDescription
RETURN
END
SELECT retString = @retString, retVal = @retVal
EXEC @retVal = sp_OAMethod @comHandle, @pstrFunctie, @retString OUTPUT, @pstrEntitate, @pstrNumeFisier
IF (@retVal <> 0)
BEGIN
EXEC sp_OAGetErrorInfo @comHandle, @errorSource OUTPUT, @errorDescription OUTPUT
SELECT [Error Source] = @errorSource, [Description] = @errorDescription
RETURN
END
SELECT retString = @retString, retVal = @retVal
EXEC sp_OADestroy @comHandle
primul select returneaza:
NULL 0
iar al doilea:
0