anchor.diff:                                      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)
  
positive.code:                 ProvidedStaticParameter("ConnectionStringOrName", typeof<string>) 
                  ProvidedStaticParameter("ResultType", typeof<ResultType>, ResultType.Tuples) 
                  ProvidedStaticParameter("ConfigFile", typeof<string>, "") 
                  ProvidedStaticParameter("DataDirectory", typeof<string>, "") 
              ],             
              instantiationFunction = this.CreateType
          )
  
negative.code:         let connectionStringOrName : string = unbox parameters.[0] 
          let resultType : ResultType = unbox parameters.[1] 
          let configFile : string = unbox parameters.[2] 
  
          let resolutionFolder = config.ResolutionFolder
  
  