anchor.diff:  let insertValues page =
     let format field =
       if field.FieldType = Id
  -    then "DEFAULT"
  +    then ""
       else sprintf "@%s" field.AsDBColumn
   
     page.Fields
  
positive.code:   String.Format("""
  use master;
  GO
  ALTER DATABASE {0} SET SINGLE_USER
  GO
  DROP DATABASE {0}
  GO
  CREATE DATABASE {0};""", dbname )
  
  let initialSetupTemplate (dbname : string) = System.String.Format("""
  
  
negative.code:   let field = to_sqlserver_dbColumn field
    let search = searchHowToClause how value
    let sql =
      sprintf "SELECT TOP 500 * FROM %s.dbo.%s
  WHERE lower(%s) LIKE lower(@search)
  " field
  
    use connection = connection connectionString
    use command = command connection sql
  