使用微软的类型提供程序

使用微软的类型提供程序

//Using the type provider sample

#r @"C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\System.Data.Linq.dll";;

#r @"E:\Projects\F#3\FSharp.Data.TypeProviders.dll";;

open Microsoft.FSharp.Data.TypeProviders;;

[<Generate>]

type T0 = SqlDataConnection<"Data Source=.\SQLEXPRESS;Initial Catalog=FSharpSample;User ID=sa;Password=FSharpSample1234">

let TypeProvider1 () = 

    let db= T0.GetDataContext();

    let q2 = query {

        for n in db.Course do 

        select n.CourseName

    }

    q2 |> Seq.iter (fun n -> printfn "%A" n)