SQL Server

CSV Delete Column

Demonstrates the DeleteColumn method. SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    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
    -- chosenlist-com,ChosenList.com,5,web,Scottsdale,AZ,1-Oct-06,140000,USD,seed
    -- digg,Digg,60,web,San Francisco,CA,1-Oct-05,2800000,USD,a
    -- facebook,Facebook,450,web,Palo Alto,CA,1-Sep-04,500000,USD,angel
    -- facebook,Facebook,450,web,Palo Alto,CA,1-May-05,12700000,USD,a
    -- photobucket,Photobucket,60,web,Palo Alto,CA,1-May-06,10500000,USD,b
    -- omnidrive,Omnidrive,,web,Palo Alto,CA,1-Dec-06,800000,USD,angel
    -- geni,Geni,18,web,West Hollywood,CA,1-Jan-07,1500000,USD,a
    -- twitter,Twitter,17,web,San Francisco,CA,1-Jul-07,5400000,USD,b
    -- stumbleupon,StumbleUpon,,web,San Francisco,CA,1-Dec-05,1500000,USD,seed
    -- gizmoz,Gizmoz,,web,Menlo Park,CA,1-May-07,6300000,USD,a
    -- mahalo,Mahalo,40,web,Santa Monica,CA,1-Jan-06,5000000,USD,a

    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
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'chosenlist-com,ChosenList.com,5,web,Scottsdale,AZ,1-Oct-06,140000,USD,seed', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'digg,Digg,60,web,San Francisco,CA,1-Oct-05,2800000,USD,a', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'facebook,Facebook,450,web,Palo Alto,CA,1-Sep-04,500000,USD,angel', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'facebook,Facebook,450,web,Palo Alto,CA,1-May-05,12700000,USD,a', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'photobucket,Photobucket,60,web,Palo Alto,CA,1-May-06,10500000,USD,b', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'omnidrive,Omnidrive,,web,Palo Alto,CA,1-Dec-06,800000,USD,angel', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'geni,Geni,18,web,West Hollywood,CA,1-Jan-07,1500000,USD,a', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'twitter,Twitter,17,web,San Francisco,CA,1-Jul-07,5400000,USD,b', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'stumbleupon,StumbleUpon,,web,San Francisco,CA,1-Dec-05,1500000,USD,seed', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'gizmoz,Gizmoz,,web,Menlo Park,CA,1-May-07,6300000,USD,a', @bCrlf
    EXEC sp_OAMethod @sb, 'AppendLine', @success OUT, 'mahalo,Mahalo,40,web,Santa Monica,CA,1-Jan-06,5000000,USD,a', @bCrlf

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

    -- Indicate that the 1st line contains column names.
    EXEC sp_OASetProperty @csv, 'HasColumnNames', 1
    EXEC sp_OAMethod @sb, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @csv, 'LoadFromString', @success OUT, @sTmp0

    -- Delete the "city" column, which is at index 4.  (the 1st column is at index 0)
    EXEC sp_OAMethod @csv, 'DeleteColumn', @success OUT, 4

    EXEC sp_OAMethod @csv, 'SaveToString', @sTmp0 OUT
    PRINT @sTmp0

    -- Output is:

    -- permalink,company,numEmps,category,state,fundedDate,raisedAmt,raisedCurrency,round
    -- lifelock,LifeLock,,web,AZ,1-May-07,6850000,USD,b
    -- mycityfaces,MyCityFaces,7,web,AZ,1-Jan-08,50000,USD,seed
    -- flypaper,Flypaper,,web,AZ,1-Feb-08,3000000,USD,a
    -- infusionsoft,Infusionsoft,105,software,AZ,1-Oct-07,9000000,USD,a
    -- gauto,gAuto,4,web,AZ,1-Jan-08,250000,USD,seed
    -- chosenlist-com,ChosenList.com,5,web,AZ,1-Oct-06,140000,USD,seed
    -- digg,Digg,60,web,CA,1-Oct-05,2800000,USD,a
    -- facebook,Facebook,450,web,CA,1-Sep-04,500000,USD,angel
    -- facebook,Facebook,450,web,CA,1-May-05,12700000,USD,a
    -- photobucket,Photobucket,60,web,CA,1-May-06,10500000,USD,b
    -- omnidrive,Omnidrive,,web,CA,1-Dec-06,800000,USD,angel
    -- geni,Geni,18,web,CA,1-Jan-07,1500000,USD,a
    -- twitter,Twitter,17,web,CA,1-Jul-07,5400000,USD,b
    -- stumbleupon,StumbleUpon,,web,CA,1-Dec-05,1500000,USD,seed
    -- gizmoz,Gizmoz,,web,CA,1-May-07,6300000,USD,a
    -- mahalo,Mahalo,40,web,CA,1-Jan-06,5000000,USD,a

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


END
GO