用 OData Service 通路線上法律

用 OData Service 通路線上法律

// 編譯指令 //"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  TypeProviderODataConsumerLegalArticles.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 Lawyers = ODataService< @"https://api.datamarket.azure.com/LexisNexis/ConsumerLegalArticles/" >

let LawyersDotCom() =     let articles = Lawyers.GetDataContext()     articles.Credentials <- NetworkCredential("MSN帳号","主帳戶密鑰")     let q = query {         for a in articles.Articles do         where (a.State = "Washington")         select a     }     q |> Seq.iter ( fun n -> printfn "%A" n.Title)     LawyersDotCom()

    但是，我的帳号，好像不能通路。