使用F#查询实体框架的示例

open System
open System.Data.Entity

// 定义实体框架的上下文
type MyContext() =
    inherit DbContext("name=MyContext")

    member this.Users = this.Set<User>()

and User(name: string) =
    member val Name = name

// 查询实体框架
let queryContext() =
    use context = new MyContext()

    // 查询所有用户
    query {
        for user in context.Users do
        select user
    } |> Seq.iter (fun user -> printfn "User: %s" user.Name)

// 主函数
[<EntryPoint>]
let main argv =
    queryContext()
    0