用 OData Service 访问在线的 Northwind 数据库

用 OData Service 访问在线的 Northwind 数据库

// 编译命令

//"C:\Program Files\Microsoft SDKs\F#\3.0\Framework\v4.0\fsc.exe"  --optimize- --tailcalls- --platform:x86 -r:"C:\Program Files\Reference Assemblies\Microsoft\FSharp\3.0\Runtime\v4.0\FSharp.Core.dll" -r:"E:\Projects\F#3\FSharp.Data.TypeProviders.dll" -r:"C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\Profile\Client\mscorlib.dll" -r:"C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\Profile\Client\System.Core.dll" -r:"C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\Profile\Client\System.Data.Services.Client.dll" -r:"C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\Profile\Client\System.dll"  --noframework  TypeProviderODataNorthwind.fsx

#if INTERACTIVE

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

#endif

open System.Data.Services.Client;;

#if INTERACTIVE

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

#endif

open Microsoft.FSharp.Data.TypeProviders;;

[<Generate>]

type Northwind = ODataService< "http://services.odata.org/Northwind/Northwind.svc/" >

let typeProviderOData02() = 

    let db = Northwind.GetDataContext()

    let q = query {

        for c in db.Customers do

        select c

        take 3

    }

    q |> Seq.iter ( fun n -> printfn "%s" n.ContactName)

typeProviderOData02()