add records + anonymous records to the sample

Author: AngelMunoz

FSharp/FSharpRepoDB/FSharpRepoDB/Program.fs

@@ -1,10 +1,24 @@
 // Learn more about F# at http://fsharp.org
 
-open FSharpRepoDB
+open System
 open Microsoft.Data.SqlClient
 open RepoDb
 open RepoDb.Extensions
-open System
+open FSharpRepoDB.Types
+
+let url (argv: string array) =
+    let getFromEnv =
+        System.Environment.GetEnvironmentVariable("MSSQL_DB_URL")
+        |> Option.ofObj
+
+    let fromArgsOrEnv = 
+        argv 
+        |> Array.tryFind(fun arg -> arg.Contains "--dburl=")
+        |> Option.map (fun f -> f.Split('=') |> Seq.tryLast)
+        |> Option.flatten
+        |> Option.orElse getFromEnv
+
+    fromArgsOrEnv |> Option.defaultValue "Server=127.0.0.1;Database=TestDB;User Id=sa;Password=Password1!;"
 
 [<EntryPoint>]
 let main argv =
@@ -13,20 +27,21 @@ let main argv =
     SqlServerBootstrap.Initialize()
 
     // Open the connection
-    let connection = (new SqlConnection("Server=.;Database=TestDB;Integrated Security=SSPI;")).EnsureOpen()
+    let connection = (new SqlConnection(url argv)).EnsureOpen()
 
     // Get the fields
     let personType = typedefof<Person>
     let dbFields = DbFieldCache.Get(connection, "Person", null).AsList()
     let fields = FieldCache.Get(personType).AsList()
 
-    // Create the type
-    let person = new Person (Convert.ToInt64(0), "John Doe", 32, "New York", true)
+    let person = { Id = 0L; Name = "John Doe"; Address = "New York"; Age = 32; IsActive = true }
 
     // Insert (Generic-Based)
     let id = connection.Insert<Person, int64>(person)
     Console.WriteLine(Convert.ToString(id))
 
+    // Create PersonLike Record the type
+    let person = {| Name = "John Doe"; Age = 32; Address = "New York"; IsActive = true|}
     // Insert (Table-Based)
     let id = connection.Insert<int64>(ClassMappedNameCache.Get<Person>(), person)
     Console.WriteLine(Convert.ToString(id))