F# Listing 35.1

scratchpad.fsx

#load "Domain.fs"
#load "Operations.fs"

#r @"C:\Users\Dane Balia\Documents\Visual Studio 2015\Projects\learnfsharp\src\code-listings\lesson-35\packages\FSharp.Data.SqlClient.1.8.2\lib\net40\FSharp.Data.SqlClient.dll"

open Capstone6.Operations
open Capstone6.Domain
open System
open FSharp.Data

let [<Literal>] Conn = "Name=AccountsDb"
type AccountsDb = SqlProgrammabilityProvider<Conn>

type GetAccountId = SqlCommandProvider<"SELECT TOP 1 AccountId FROM dbo.Account WHERE Owner = @owner", Conn, SingleRow = true> 
let accountId : Guid option = GetAccountId.Create(Conn, 100).Execute("tony")