let imagesFolder = @"Z:\dummy_images"

let connectionStringSetting = new ConnectionStringSettings("rvproject_demo_devEntities", "metadata=res://*/DAL.Demo.DemoDb.csdl|res://*/DAL.Demo.DemoDb.ssdl|res://*/DAL.Demo.DemoDb.msl;provider=System.Data.SqlClient;provider connection string=\"data source=rvdatabase;initial catalog=rvproject_demo_dev;user id=dbadmin;password=R41Ladmin;MultipleActiveResultSets=True;App=EntityFramework\"")
connectionStringSetting.ProviderName <- "System.Data.EntityClient"
ignore(ConfigurationManager.ConnectionStrings.Add(connectionStringSetting))

let dbctx = new rvproject_demo_devEntities()

let runQuery (q:Expr<IQueryable<'T>>) =
  match q with
  | Application(Lambda(builder, Call(Some builder2, miRun, [Quote body])), queryObj) ->
      query.Run(Expr.Cast<Microsoft.FSharp.Linq.QuerySource<'T, IQueryable>>(body))
  | _ -> failwith "Wrong argument"