Home Forums SQL Server 7,2000 T-SQL Creating Extended SP using Visual Basic RE: Creating Extended SP using Visual Basic

  • Thanx all for keeping the thread live...it took sometime for me to come to conclusion....anyways i'd created a dll and called it using the following functions...

    ***************************

    DECLARE @object int

    DECLARE @hr int

    DECLARE @property varchar(255)

    DECLARE @return varchar(255)

    DECLARE @src varchar(255), @desc varchar(255)

    -- Create an object.

    EXEC @hr = sp_OACreate '{0839A7DC-8313-441D-BC73-C4A6D14B65D8}', @object OUT

    IF @hr <> 0

    BEGIN

    EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT

    SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc

    RETURN

    END

    -- Call a method.

    EXEC @hr = sp_OAMethod @object, 'writetxt',NULL,'This is my parameter'

    IF @hr <> 0

    BEGIN

    EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT

    SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc

    RETURN

    END

    -- Destroy the object.

    EXEC @hr = sp_OADestroy @object

    IF @hr <> 0

    BEGIN

    EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT

    SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc

    RETURN

    END

    ***************************

    Thanx again for ur suggestions

    Prabhakar


    Prabhakar