用 OData Service 访问 Demographics
// 编译命令
//"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 TypeProviderDemographics.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 Demographics = ODataService<"https://api.datamarket.azure.com/Esri/KeyUSDemographicsTrial/">
let Esri() =
let db = Demographics.GetDataContext()
db.Credentials <- System.Net.NetworkCredential(
"MSN帐号","主帐户密钥")
let q = query {
for d in db.demog1 do
where (d.StateName = "Washington")
where (d.CountyName = "King County")
sortBy d.GeographyId
}
q |> Seq.filter (fun n -> match n.GeographyName.Trim().ToLower() with
| "redmond" -> true
| "bellevue" -> true
| "kirkland" -> true
| _ -> false )
|> Seq.iter (fun n -> printfn "%A - %A" n.GeographyId n.PerCapitaIncome2010.Value)
Esri()