SQL Server

CSV Set Cell by Index or Name

Demonstrates how to update the value of a CSV cell, or add new cells. SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    --  We have the following CSV...

    --  permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round
    --  lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b
    --  mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed
    --  flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a
    --  infusionsoft,Infusionsoft,105,software,Gilbert,AZ,1-Oct-07,9000000,USD,a
    --  gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed

    DECLARE @bCrlf int
    SELECT @bCrlf = 1
    DECLARE @sb int
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sb OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'infusionsoft,Infusionsoft,105,software,Gilbert,AZ,1-Oct-07,9000000,USD,a', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed', @bCrlf

    DECLARE @csv int
    EXEC @hr = sp_OACreate 'Chilkat.Csv', @csv OUT

    EXEC sp_OASetProperty @csv, 'HasColumnNames', 1
    EXEC sp_OAMethod @sb, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @csv, 'LoadFromString', @success OUT, @sTmp0

    --  Update the city "Gilbert" to "Tuscon".
    EXEC sp_OAMethod @csv, 'SetCell', @success OUT, 3, 4, 'Tuscon'

    --  Add a new row.
    DECLARE @row_idx int
    EXEC sp_OAGetProperty @csv, 'NumRows', @row_idx OUT
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'permalink', 'yelp'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'company', 'Yelp'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'numEmps', ''
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'category', 'web'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'city', 'San Francisco'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'state', 'CA'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'fundedDate', '1-Jul-04'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'raisedAmt', '1000000'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'raisedCurrency', 'USD'
    EXEC sp_OAMethod @csv, 'SetCellByName', @success OUT, @row_idx, 'round', 'a'

    --  Show the updated CSV:
    EXEC sp_OAMethod @csv, 'SaveToString', @sTmp0 OUT
    PRINT @sTmp0

    --  Output should be:
    --  permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round
    --  lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b
    --  mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed
    --  flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a
    --  infusionsoft,Infusionsoft,105,software,Tuscon,AZ,1-Oct-07,9000000,USD,a
    --  gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed
    --  yelp,Yelp,,web,San Francisco,CA,1-Jul-04,1000000,USD,a

    EXEC @hr = sp_OADestroy @sb
    EXEC @hr = sp_OADestroy @csv


END
GO