anchor.diff:                      if not( String.IsNullOrEmpty(%%args.[0]))
                       then %%args.[0]
                       elif byName then Configuration.GetConnectionStringRunTimeByName(connectionStringOrName)
  -                    else designTimeConnectionString
  -                        
  -                do
  -                    if dataDirectory <> ""
  -                    then AppDomain.CurrentDomain.SetData("DataDirectory", dataDirectory)
  +                    else designTimeConnectionString                        
                   box(new SqlConnection( runTimeConnectionString))
               @@>
   
  
positive.code:                                     if byName then Configuration.GetConnectionStringRunTimeByName(value)
                                      else designTimeConnectionString
                          
                                  do
                                      if dataDirectory <> ""
                                      then AppDomain.CurrentDomain.SetData("DataDirectory", dataDirectory)
  
                                  let this = new SqlCommand(twoPartsName, new SqlConnection(runTimeConnectionString)) 
                                  this.CommandType <- CommandType.StoredProcedure
                                  let xs = %%Expr.NewArray( typeof<SqlParameter>, parameters |> List.map QuotationsFactory.ToSqlParam)
  
negative.code:                 ProvidedStaticParameter("ConnectionStringOrName", typeof<string>) 
                  ProvidedStaticParameter("ResultType", typeof<ResultType>, ResultType.Tuples) 
                  ProvidedStaticParameter("ConfigFile", typeof<string>, "") 
              ],             
              instantiationFunction = this.CreateType
          )
  