关闭

用 OData 访问 MetricMash - U.S. Unemployment Data

424人阅读 评论(0) 收藏 举报

用 OData 访问 MetricMash - U.S. Unemployment 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  TypeProviderUnemployment.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 TU = Microsoft.FSharp.Data.TypeProviders.ODataService<"https://api.datamarket.azure.com/MetricMash/USConsumerPriceIndex/">

let MetricMash1() =
    let db = TU.GetDataContext()
    //let db = TU.ServiceTypes.TimeReference()
    db.Credentials <- NetworkCredential ("MSN帐号","主帐户密钥")

    let q = query {
        for u in db.TimeReference do
        where (u.Year = "2009")
        select u
    }

    q |> Seq.iter(fun n -> printfn "%A - %A" (n.MonthMMM + ", " + n.Year) n.DateValue)

MetricMash1()

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:854686次
    • 积分:19069
    • 等级:
    • 排名:第454名
    • 原创:40篇
    • 转载:40篇
    • 译文:40篇
    • 评论:41条
    最新评论