用 OData Service 访问 China Enterprises Data

用 OData Service 访问 China Enterprises Data

// 编译命令

//"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\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 TypeProviderSME.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;;

open System.Net;;

[<Generate>]

type SME = Microsoft.FSharp.Data.TypeProviders.ODataService<"https://api.datamarket.azure.com/Chanjet/ChinaSmallAndMediumEnterprises/">

let Chanjet() =

let db = SME.GetDataContext()

// 也可以写成：

// let db = SME.ServiceTypes.ChanjetChinaSmallAndMediumEnterprisesContainer()

db.Credentials <- NetworkCredential ("MSN帐号","主帐户密钥")

let q = query {

for g in db.GeographyInfo do

where (g.EconomicZoneId.Value=2)

select g

}

q |> Seq.iter ( fun n -> printfn "%A - %A" n.ProvinceNameEnglish n.ProvinceNameChinese )

Chanjet()