Mai jos este o bucata din T-SQL-ul meu care nu returneaza nimic si nu executa nimic; testat in VB.Net functioneaza perfect

DECLARE @retVal INT
DECLARE @comHandle INT
DECLARE @errorSource VARCHAR(8000)
DECLARE @errorDescription VARCHAR(8000)
DECLARE @retString VARCHAR(100)
DECLARE @pstr_Entitate VARCHAR(100)
DECLARE @pstr_NumeFisier VARCHAR(100)

SET @pstr_Entitate = 'Terti'
SET @pstr_NumeFisier = 'C:\a.txt'

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
SELECT @comHandle

EXEC @retVal = sp_OAMethod @comHandle, 'Export', @retString OUTPUT, @pstr_Entitate, @pstr_NumeFisier
IF (@retVal <> 0)
BEGIN
EXEC sp_OAGetErrorInfo @comHandle, @errorSource OUTPUT, @errorDescription OUTPUT
SELECT [Error Source] = @errorSource, [Description] = @errorDescription
RETURN
END
SELECT @retString
EXEC sp_OADestroy @comHandle

SELECT @comHandle returneaza 16711422 si asta este bine
SELECT @retString returneaza "nimic"

In VB.Net
Imports Interop.BGInterfaces
...
objInterfaces = New CInterfacesBO
objInterfaces.Initializare(1, "ceva")
objInterfaces.Export("Terti", "C:\a.txt")

DLL-ul apelat este un COM.

peste tot chemi
IF (@retVal <> 0)
poti, te rog, sa pui si un mesaj, sa vedem care e primul retval= 0 ?

---

Ignat Andrei
http://serviciipeweb.ro/iafblog

Ce versiune de SQL Server folositi?

---

Cristian Andrei Lefter, SQL Server MVP
MCT, MCSA, MCDBA, MCAD, MCSD .NET,
MCTS, MCITP - Database Administrator SQL Server 2005
http://sqlserver.ro

SELECT @retVal returneaza 0 dupa fiecare incercare de captare a unei erori... deci nu am eroare pe cele doua bucle BEGIN...END

SQL 2008 (SP1 cred)
9.00.4053.00

eu vad o diferenta intre cele 2 coduri
in VB.NET mai aveti
objInterfaces.Initializare(1, "ceva")

---

Ignat Andrei
http://serviciipeweb.ro/iafblog

Exact. Asa se face initializarea si cred ca acolo este problema. Nu stiu din T-SQL cum sa parsez acel 1 care stabileste (intern DLL) versiunile functiilor care se pot utiliza. Din pacate DLL-ul este o cutie neagra pentru mine si tot ce stiu este ca codul VB.Net functioneaza pefect.

Nu inteleg de ce nu scrii

EXEC @retVal = sp_OAMethod @comHandle, 'Initializare', @retString OUTPUT, 1, 'ceva'


http://msdn.microsoft.com/en-us/library/aa238864%28SQL.80%29.aspx

---

Ignat Andrei
http://serviciipeweb.ro/iafblog

Multumesc frumos dar... nu ma prind
EXEC @retVal = sp_OAMethod @comHandle, 'Initializare', @retString OUTPUT, 1, 'ceva'

SELECT @retVal
returneaza -2147221504

si sp_OAGetErrorInfo ce zice?

---

Ignat Andrei
http://serviciipeweb.ro/iafblog

ODSOLE Extended Procedure Error in parameters, or attempt to retrieve a return value from a method that doesn't supply one.

pune fara

@retString OUTPUT,

- se pare ca nu intoarce si valoare initialize...

---

Ignat Andrei
http://serviciipeweb.ro/iafblog

sp_OAMethod usage: ObjPointer int IN, MethodName varchar IN [, @returnval OUT [, additional IN, OUT, or BOTH params]]

se pare ca nu este optional @retString OUTPUT

am acum EXEC @retVal = sp_OAMethod @comHandle, 'Initializare', 1,'ceva'

AHA!
EXEC @retVal = sp_OAMethod @comHandle, 'Initializare', NULL, 1, @pstrNumeFirma

OK, am mai facut un pas!
Dar cum fac sa-i parsez functiei cele doua valori @pstrEntitate, @pstrNumeFisier

DECLARE @pstrEntitate VARCHAR(100)
DECLARE @pstrNumeFisier VARCHAR(100)
SET @pstrEntitate = 'Terti'
SET @pstrNumeFisier = 'C:\a.txt'

Scopul final este sa export o lista de clienti in fisierul specificat.

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