Never been to TextSnippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world (or not, you can keep them private!)

« Newer Snippets
Older Snippets »
2 total  XML / RSS feed 

Scripting schema updates in MSSQL #1

This SQL statement will alter a table only if a column in the table to be altered does NOT contain a column named 'FavoriteColorId'.

From: http://haacked.com/

IF NOT EXISTS
(
    SELECT * FROM [information_schema].[columns]
    WHERE    table_name   = 'Customer'
    AND      table_schema = 'dbo'
    AND      column_name  = 'FavoriteColorId'
)
BEGIN
    ALTER TABLE [dbo].[Customer]
    ADD FavoriteColorId int

Create a PivotTable cache and report from ADODB.Recordset

// description of your code here
Create a PivotTable cache and report from ADODB.Recordset

Dim objPivotCache   As Object
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
    SourceType:=xlExternal)
Set objPivotCache.Recordset = rsNostro
With objPivotCache
    .CreatePivotTable TableDestination:=Range("A43"), _
        TableName:="Performance"
End With

With ActiveSheet.PivotTables("Performance")
    .SmallGrid = False
    With .PivotFields("C_4")
        .Orientation = xlRowField
        .Position = 1
    End With
    With .PivotFields("C_2")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With .PivotFields("C_7")
        .Orientation = xlDataField
        .Position = 1
    End With
End With
« Newer Snippets
Older Snippets »
2 total  XML / RSS feed