github/sql-server-samples
1
0
Fork 0
mirror of https://github.com/Microsoft/sql-server-samples.git synced 2025-12-08 14:58:54 +00:00
Code Issues Releases Wiki Activity

Merge pull request #462 from keyset/master

Browse Source 
Add F# code examples
This commit is contained in:
Umachandar Jayachandran
2019-01-29 14:40:02 -08:00
committed by GitHub
parent a1a0595184 9fab24e57b
commit d74168a32d
7 changed files with 274 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/README.md
+1 -1
View File
@@ -22,7 +22,7 @@ Samples that help with the management of SQL Server and Azure SQL Database.
__[tutorials](tutorials/)__
Samples showing how to connect to SQL databases using various programming languages, including Python, C#, Java, Ruby, Node.js, and PHP.
Samples showing how to connect to SQL databases using various programming languages, including Python, C#, F#, Java, Ruby, Node.js, and PHP.
__[containers](containers/)__
samples/tutorials/README.md
+1
View File
@@ -4,6 +4,7 @@
Contains samples that show how to connect to Microsoft SQL databases, including SQL Server, Azure SQL Database, and Azure SQL Data Warehouse from different langauges like:
* C#
* C/C++
* F#
* Java
* Node.js
* PHP
samples/tutorials/f#/README.md
+56
View File
@@ -0,0 +1,56 @@
# Get started with SQL Server and F#
Get started quickly with developing applications in F# on any OS with SQL Server
### Contents
[About this sample](#about-this-sample)<br/>
[Before you begin](#before-you-begin)<br/>
[Run this sample](#run-this-sample)<br/>
[Disclaimers](#disclaimers)<br/>
[Related links](#related-links)<br/>
<a name=about-this-sample></a>
## About this sample
- **Applies to:** SQL Server 2016 (or higher)
- **Workload:**
- CRUD with .NET
- Performance improvements with Columnstore
- **Programming Language:** F#
- **Authors:** keyset
<a name=before-you-begin></a>
## Before you begin
To run this sample, you need the following prerequisites.
**Software prerequisites:**
1. SQL Server 2016 (or higher)
2. [.NET Core](https://www.microsoft.com/net/download) v2.1 or higher
## Run this sample
1. In Visual Studio, open the Program.fs file and update the connection string username and password with your own.
2. Open a terminal in the desired sample subfolder and execute:
```
dotnet run
```
<a name=disclaimers></a>
## Disclaimers
The scripts and this guide are provided as samples. They are not part of any Azure service and are not covered by any SLA or other Azure-related agreements. They are provided as-is with no warranties express or implied. Microsoft takes no responsibility for the use of the scripts or the accuracy of this document. Familiarize yourself with the scripts before using them.
<a name=related-links></a>
## Related Links
For more information, see these articles:
* To see more getting started tutorials, visit our [tutorials page](https://www.microsoft.com/en-us/sql-server/developer-get-started/)
samples/tutorials/f#/SqlServerColumnstoreSample/Program.fs
+88
View File
@@ -0,0 +1,88 @@
// Learn more about F# at http://fsharp.org
open System
open System.Data.SqlClient
let SumPrice connection =
let sql = "SELECT SUM(Price) FROM Table_with_5M_rows;"
let startTicks = DateTime.Now.Ticks;
use command = new SqlCommand(sql, connection)
try
command.ExecuteScalar() |> ignore
let elapsed = TimeSpan.FromTicks(DateTime.Now.Ticks) - TimeSpan.FromTicks(startTicks)
elapsed.TotalMilliseconds
with
| ex ->
printfn "%O" ex
0.
let executeSqlCommand sql connection =
use command = new SqlCommand(sql, connection)
command.CommandTimeout <- 300 //5 minutes
command.ExecuteNonQuery() |> ignore
[<EntryPoint>]
let main argv =
try
printfn "*** SQL Server Columnstore demo ***"
// Build connection string
let builder = new SqlConnectionStringBuilder()
builder.DataSource <- "localhost"
builder.UserID <- "sa"
builder.Password <- "your_password"
builder.InitialCatalog <- "master"
// Connect to SQL
printf "Connecting to SQL Server ... "
use connection = new SqlConnection(builder.ConnectionString)
connection.Open()
printfn "Done."
// Create a sample database
printf "Dropping and creating database 'FSharpSampleDB' ... "
let sql = "DROP DATABASE IF EXISTS [FSharpSampleDB]; CREATE DATABASE [FSharpSampleDB]"
executeSqlCommand sql connection
printfn "Done."
// Insert 5 million rows into the table 'Table_with_5M_rows'
printf "Inserting 5 million rows into table 'Table_with_5M_rows'. This takes ~1 minute, please wait ... "
let sql = "
USE FSharpSampleDB;
WITH a AS (SELECT * FROM (VALUES(1),(2),(3),(4),(5),(6),(7),(8),(9),(10)) AS a(a))
SELECT TOP(5000000)
ROW_NUMBER() OVER (ORDER BY a.a) AS OrderItemId
,a.a + b.a + c.a + d.a + e.a + f.a + g.a + h.a AS OrderId
,a.a * 10 AS Price
,CONCAT(a.a, N' ', b.a, N' ', c.a, N' ', d.a, N' ', e.a, N' ', f.a, N' ', g.a, N' ', h.a) AS ProductName
INTO Table_with_5M_rows
FROM a, a AS b, a AS c, a AS d, a AS e, a AS f, a AS g, a AS h;"
executeSqlCommand sql connection
printfn "Done."
// Execute SQL query without columnstore index
let elapsedTimeWithoutIndex = SumPrice(connection)
printfn "Query time WITHOUT columnstore index: %fms" elapsedTimeWithoutIndex
// Add a Columnstore Index
printf "Adding a columnstore to table 'Table_with_5M_rows' ... "
let sql = "CREATE CLUSTERED COLUMNSTORE INDEX columnstoreindex ON Table_with_5M_rows;"
executeSqlCommand sql connection
printfn "Done."
// Execute the same SQL query again after columnstore index was added
let elapsedTimeWithIndex = SumPrice(connection)
printfn "Query time WITH columnstore index: %fms" elapsedTimeWithIndex
// Calculate performance gain from adding columnstore index
Math.Round(elapsedTimeWithoutIndex / elapsedTimeWithIndex)
|> printfn "Performance improvement with columnstore index: %f x!"
printfn "All done. Press any key to finish..."
Console.ReadKey(true) |> ignore
with
| ex -> printfn "%O" ex
0 // return an integer exit code
samples/tutorials/f#/SqlServerColumnstoreSample/SqlServerColumnstoreSample.fsproj
+16
View File
@@ -0,0 +1,16 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>netcoreapp2.1</TargetFramework>
</PropertyGroup>
<ItemGroup>
<Compile Include="Program.fs" />
</ItemGroup>
<ItemGroup>
<PackageReference Include="System.Data.SqlClient" Version="4.5.1" />
</ItemGroup>
</Project>
samples/tutorials/f#/SqlServerSample/Program.fs
+96
View File
@@ -0,0 +1,96 @@
// Learn more about F# at http://fsharp.org
open System
open System.Data.SqlClient
[<EntryPoint>]
let main argv =
printfn "Connect to SQL Server and demo Create, Read, Update and Delete operations."
let builder = new SqlConnectionStringBuilder()
builder.DataSource <- "localhost"
builder.UserID <- "sa"
builder.Password <- "your_password"
builder.InitialCatalog <- "master"
printf "Connecting to SQL Server ... "
use connection = new SqlConnection(builder.ConnectionString)
try
connection.Open()
printfn "Done."
// Create a sample database
printf "Dropping and creating database 'FSharpSampleDB' ... "
let sql = "DROP DATABASE IF EXISTS [FSharpSampleDB]; CREATE DATABASE [FSharpSampleDB]"
use command = new SqlCommand(sql, connection)
command.ExecuteNonQuery() |> ignore
printfn "Done."
// Create a Table and insert some sample data
printf "Creating sample table with data, press any key to continue..."
Console.ReadKey(true) |> ignore
let sql = "
USE FSharpSampleDB;
CREATE TABLE Employees (
Id INT IDENTITY(1,1) NOT NULL PRIMARY KEY,
Name NVARCHAR(50),
Location NVARCHAR(50)
);
INSERT INTO Employees (Name, Location) VALUES
(N'Tom', N'United States'),
(N'Krzysztof', N'Poland'),
(N'Isaac', N'Germany'); "
use command = new SqlCommand(sql, connection)
command.ExecuteNonQuery() |> ignore
printfn "Done."
// INSERT demo
printf "Inserting a new row into table, press any key to continue... "
Console.ReadKey(true) |> ignore
let sql = "
INSERT Employees (Name, Location)
VALUES (@name, @location);"
use command = new SqlCommand(sql, connection)
command.Parameters.AddWithValue("@name", "Don") |> ignore
command.Parameters.AddWithValue("@location", "United Kingdom") |> ignore
let rowsAffected = command.ExecuteNonQuery()
printfn "%i row(s) inserted" rowsAffected
// UPDATE demo
let userToUpdate = "Tom";
printf "Updating 'Location' for user '%s', press any key to continue... " userToUpdate
Console.ReadKey(true) |> ignore
let sql = "UPDATE Employees SET Location = N'United Kingdom' WHERE Name = @name"
use command = new SqlCommand(sql, connection)
command.Parameters.AddWithValue("@name", userToUpdate) |> ignore
let rowsAffected = command.ExecuteNonQuery()
printfn "%i row(s) updated" rowsAffected
// DELETE demo
let userToDelete = "Don";
printf "Deleting user '%s', press any key to continue... " userToDelete
Console.ReadKey(true) |> ignore
let sql = "DELETE FROM Employees WHERE Name = @name;"
use command = new SqlCommand(sql, connection)
command.Parameters.AddWithValue("@name", userToDelete) |> ignore
let rowsAffected = command.ExecuteNonQuery()
printfn "%i row(s) deleted" rowsAffected
// READ demo
printfn "Reading data from table, press any key to continue... "
Console.ReadKey(true) |> ignore
let sql = "SELECT Id, Name, Location FROM Employees;"
use command = new SqlCommand(sql, connection)
use reader = command.ExecuteReader()
while reader.Read() do
printfn "%i %s %s" (reader.GetInt32(0)) (reader.GetString(1)) (reader.GetString(2))
with
| ex -> printfn "%O" ex
printfn "All done. Press the any key to finish..."
Console.ReadKey(true) |> ignore
0 // return an integer exit code
samples/tutorials/f#/SqlServerSample/SqlServerSample.fsproj
+16
View File
@@ -0,0 +1,16 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>netcoreapp2.1</TargetFramework>
</PropertyGroup>
<ItemGroup>
<Compile Include="Program.fs" />
</ItemGroup>
<ItemGroup>
<PackageReference Include="System.Data.SqlClient" Version="4.5.1" />
</ItemGroup>
</Project>