处理 Top
#r @"C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\System.Data.Linq.dll";;
#r @"E:\Projects\F#3\FSharp.Data.TypeProviders.dll";;
open Microsoft.FSharp.Data.TypeProviders;;
//open System.Linq;;
// Count() 在其中
open System.Data.Linq;;
open System.Data.Linq.SqlClient;
// SqlMethods 作其中
[<Generate>]
type T0 = SqlDataConnection<"Data Source=.\SQLEXPRESS;Initial Catalog=FSharpSample;User ID=sa;Password=FSharpSample1234">
let TypeProvider4() =
let db = T0.GetDataContext()
let q = query {
for s in db.Student do
where (SqlMethods.Like( s.Name, "%a%" ) )
select s
take 2
}
q |> Seq.iter (fun n -> printfn "%A" n.Name)
q |> Seq.length