Adjust parameter count down since SqlConnection uses a couple.

Author: rspeele

src/Rezoom.SQL.Mapping/CommandBatch.fs

@@ -29,8 +29,8 @@ type private CommandBatchRuntimeBackend =
         | _ -> Other
     member this.MaxParameters() =
         match this with
-        | SQLServer -> 2100
-        | Oracle -> 2000
+        | SQLServer -> 2098 // actual is 2100 but SqlCommand implementation takes 2 for itself
+        | Oracle -> 1900 // actual is 2000 but leave plenty of breathing room since it's untested
         | Postgres
         | MySQL -> 10_000
         | SQLite 

src/TypeProviderUsers/TypeProviderUser.SQLite/TestSelects.fs

@@ -8,6 +8,7 @@ open Rezoom
 open Rezoom.SQL
 open Rezoom.SQL.Plans
 open MBrace.FsPickler
+open Rezoom
 
 type TestEqualInteger = SQL<"""
 select * from Users where Id = @userId
@@ -141,6 +142,18 @@ let ``replay works`` () =
             ()
         else failwith "not equal"
 
+type InsertPicture = SQL<"insert into Pictures row SHA256 = @sha, PNGData = @png">
+
+[<Test>]
+let ``lotsa parameters`` () =
+    let task =
+        plan {
+            let g() = Guid.NewGuid().ToByteArray()
+            for i in batch [0..2000] do
+                do! InsertPicture.Command(g(), g()).Plan()
+        } |> Execution.execute Execution.ExecutionConfig.Default
+    task.Wait()
+
 open Rezoom.SQL.Raw
 open System.Data