#r"nuget: FSharp.Data.SqlClient"openFSharp.DataopenFSharp.Data.SqlClientlet [<Literal>]connectionString="Server=.;Database=AdventureWorks2012;Trusted_Connection=True;"typeMyCommand= SqlCommandProvider<"""selectdata.afrom(select 1 a union all select 2 union all select 3) datawheredata.a > @data""", connectionString>;;(new MyCommand(connectionString)).Execute(data=1)|> Seq.toArray|> printfn"%A"

Quick Links

Type Providers

SqlCommandProvider

openFSharp.Data[<Literal>]letconnectionString="Data Source=.;Initial Catalog=AdventureWorks2012;Integrated Security=True;TrustServerCertificate=true"// The query below retrieves top 3 sales representatives from North American region with YTD sales of more than one million.douse cmd=new SqlCommandProvider<"        SELECT TOP(@topN) FirstName, LastName, SalesYTD        FROM Sales.vSalesPerson        WHERE CountryRegionName = @regionName AND SalesYTD > @salesMoreThan        ORDER BY SalesYTD", connectionString>(connectionString)    cmd.Execute(topN=3L, regionName="United States", salesMoreThan=1000000M)|> printfn"%A"

seq[("Pamela","Ansman-Wolfe",1352577.1325M);("David","Campbell",1573012.9383M);("Tete","Mensa-Annan",1576562.1966M)]

SqlProgrammabilityProvider

typeAdventureWorks= SqlProgrammabilityProvider<connectionString>douse cmd=new AdventureWorks.dbo.uspGetWhereUsedProductID(connectionString)for xin cmd.Execute( StartProductID=1, CheckDate= System.DateTime(2013,1,1))do//check for nullsmatch x.ProductAssemblyID, x.StandardCost, x.TotalQuantitywith| Some prodAsmId, Some cost, Some qty->             printfn"ProductAssemblyID:%i, StandardCost:%M, TotalQuantity:%M" prodAsmId cost qty|_->()

ProductAssemblyID:749, StandardCost:2171.2942, TotalQuantity:1.00ProductAssemblyID:750, StandardCost:2171.2942, TotalQuantity:1.00ProductAssemblyID:751, StandardCost:2171.2942, TotalQuantity:1.00

SqlEnumProvider

//by convention: first column is Name, second is ValuetypeShipMethod= SqlEnumProvider<"    SELECT Name, ShipMethodID FROM Purchasing.ShipMethod ORDER BY ShipMethodID", connectionString>//Combine with SqlCommandProviderdouse cmd=new SqlCommandProvider<"        SELECT COUNT(*)        FROM Purchasing.PurchaseOrderHeader        WHERE ShipDate > @shippedLaterThan AND ShipMethodID = @shipMethodId", connectionString, SingleRow=true>(connectionString)//overnight orders shipped since Jan 1, 2008    cmd.Execute( System.DateTime(2008,1,1), ShipMethod.``OVERNIGHT J-FAST``)|> printfn"%A"

Some(Some1085)

SqlFileProvider

typeSampleCommand= SqlFile<"sampleCommand.sql">typeSampleCommandRelative= SqlFile<"sampleCommand.sql","MySqlFolder">use cmd1=new SqlCommandProvider<SampleCommand.Text, ConnectionStrings.AdventureWorksNamed>()use cmd2=new SqlCommandProvider<SampleCommandRelative.Text, ConnectionStrings.AdventureWorksNamed>()

Build Status

Maintainers