Add Rezoom.SQL.Raw module to help build dynamic SQL commands.

Author: rspeele

src/Rezoom.SQL.Mapping/Raw.fs

@@ -0,0 +1,57 @@
+/// Provides helpers for building raw SQL commands and parameters.
+/// This stuff does *NOT* go through RZSQL parsing/typechecking/translation.
+/// It should be a last resort for when you absolutely can't accomplish what you're doing statically.
+module Rezoom.SQL.Raw
+open System
+open System.Data
+open Rezoom.SQL.Mapping
+open System.Collections.Generic
+
+let sql text = CommandText text
+
+let argOfType dbType o =
+    InlineParameter (dbType, o)
+
+let private typeMap =
+    [|  typeof<byte>, DbType.Byte
+        typeof<sbyte>, DbType.SByte
+        typeof<int16>, DbType.Int16
+        typeof<uint16>, DbType.UInt16
+        typeof<int>, DbType.Int32
+        typeof<uint32>, DbType.UInt32
+        typeof<int64>, DbType.Int64
+        typeof<uint64>, DbType.UInt64
+        typeof<string>, DbType.String
+        typeof<double>, DbType.Double
+        typeof<single>, DbType.Single
+        typeof<bool>, DbType.Boolean
+        typeof<Guid>, DbType.Guid
+        typeof<decimal>, DbType.Decimal
+        typeof<DateTime>, DbType.DateTime
+        typeof<DateTimeOffset>, DbType.DateTimeOffset
+    |] |> dict
+
+let private guessDbType (ty : Type) =
+    let succ, found = typeMap.TryGetValue(ty)
+    if succ then found else DbType.Object
+
+let arg (o : obj) =
+    let dbType =
+        if isNull o then DbType.Object
+        else guessDbType (o.GetType())
+    argOfType dbType o
+
+let connectionDynamicCommand<'row> connectionName (sql : CommandFragment array) =
+    let cmdData =
+        {   ConnectionName = connectionName // should match the one in rzsql.json/App.config
+            Fragments = sql
+            Identity = ""
+            DependencyMask = Rezoom.BitMask.Full
+            InvalidationMask = Rezoom.BitMask.Full
+            Cacheable = false
+            ResultSetCount = None // not statically known
+        }
+    CommandConstructor.Command1<'row IReadOnlyList>(cmdData, [||])
+
+let dynamicCommand<'row> (sql : CommandFragment array) =
+    connectionDynamicCommand<'row> "rzsql" sql

src/Rezoom.SQL.Mapping/Rezoom.SQL.Mapping.fsproj

@@ -76,6 +76,7 @@
     <Compile Include="IScalar.fs" />
     <Compile Include="CommandParts.fs" />
     <Compile Include="Command.fs" />
+    <Compile Include="Raw.fs" />
     <Compile Include="CommandBatch.fs" />
     <Compile Include="ConnectionProvider.fs" />
     <Compile Include="ConnectionContext.fs" />

src/TypeProviderUsers/TypeProviderUser.SQLite/TestSelects.fs

@@ -116,7 +116,7 @@ let ``replay works`` () =
             ()
         else failwith "not equal"
 
-open Rezoom.SQL.Mapping
+open Rezoom.SQL.Raw
 open System.Data
 
 type RawSQLQuery = SQL<"""
@@ -126,7 +126,7 @@ type RawSQLQuery = SQL<"""
 [<Test>]
 let ``test raw sql parameter`` () =
     let results =
-        RawSQLQuery.Command(whereClause = [| CommandText "1="; InlineParameter(DbType.Int32, 1) |]) |> runOnTestData
+        RawSQLQuery.Command(whereClause = [| sql "1="; arg 1 |]) |> runOnTestData
     for result in results do
         printfn "%A" result.Email