Skip to content

Commit be5dcd5

Browse files
committed
Update to fix "SELECT 1" issues and "" results with latest FSharp.Core
1 parent a8fd13b commit be5dcd5

File tree

29 files changed

+153
-126
lines changed

29 files changed

+153
-126
lines changed

docs/RELEASE_NOTES.md

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,7 @@
1+
### 1.5.18 - 31.03.2026
2+
* Fix for new LINQ mapping of ExpressionType.Block
3+
* Fix for empty select since FSharp.Core 10.1.201 query changes.
4+
15
### 1.5.17 - 14.09.2025
26
* DateTimeOffset function translations
37
* Faster disposing of commands

src/SQLProvider.Common/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.Common")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type provider for SQL database access, common library")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.Common"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type provider for SQL database access, common library"
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

src/SQLProvider.Common/SqlRuntime.QueryExpression.fs

Lines changed: 20 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -681,20 +681,27 @@ module internal QueryExpressionTransformer =
681681
match projs with
682682
| [] -> prevLambda, foundparams
683683
| proj::tail ->
684-
let operations =
685-
// Full entities don't need to be transferred recursively
686-
// but Canonical operation structures cannot be lost.
687-
[| for KeyValue(k,v) in foundparams do
688-
if k = "" then yield k, v
689-
else
690-
for colp in v do
691-
match colp with
692-
| OperationColumn _ -> yield k, v
693-
| EntityColumn _ -> () |]
694-
foundparams.Clear()
695-
operations |> Array.distinct |> Array.iter(fun (k, v) ->foundparams.Add(k,v))
696684
let lambda1, dbparams1 = visitExpression proj prevLambda initDbParam
697-
dbparams1 |> Seq.iter(fun k -> foundparams.[k.Key] <- k.Value )
685+
if dbparams1.Count = 0 then
686+
// This was not a database call projection, there was probably some unrelated extra-wrapping lambda.
687+
// It's safest to keep any previous parameters.
688+
()
689+
else
690+
let operations =
691+
// Full entities don't need to be transferred recursively
692+
// but Canonical operation structures cannot be lost.
693+
[| for KeyValue(k,v) in foundparams do
694+
if k = "" then yield k, v
695+
else
696+
for colp in v do
697+
match colp with
698+
| OperationColumn _ -> yield k, v
699+
| EntityColumn _ -> () |]
700+
701+
foundparams.Clear()
702+
operations |> Array.distinct |> Array.iter(fun (k, v) ->foundparams.Add(k,v))
703+
dbparams1 |> Seq.iter(fun k -> foundparams.[k.Key] <- k.Value )
704+
698705
composeProjections tail lambda1 foundparams
699706

700707
let generatedMegaLambda, finalParams = composeProjections projs (Unchecked.defaultof<LambdaExpression>) (Dictionary<string, ResizeArray<ProjectionParameter>>())

src/SQLProvider.DesignTime/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.DesignTime")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type providers for any SQL database access.")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.DesignTime"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type providers for any SQL database access."
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

src/SQLProvider.DuckDb.DesignTime/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.DuckDb.DesignTime")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type providers for DuckDb database access.")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.DuckDb.DesignTime"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type providers for DuckDb database access."
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

src/SQLProvider.DuckDb.Runtime/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.DuckDb.Runtime")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type providers for DuckDb database access.")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.DuckDb.Runtime"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type providers for DuckDb database access."
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

src/SQLProvider.Firebird.DesignTime/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.Firebird.DesignTime")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type providers for Firebird database access.")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.Firebird.DesignTime"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type providers for Firebird database access."
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

src/SQLProvider.Firebird.Runtime/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.Firebird.Runtime")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type providers for Firebird database access.")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.Firebird.Runtime"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type providers for Firebird database access."
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

src/SQLProvider.MsAccess.DesignTime/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.MsAccess.DesignTime")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type providers for Microsoft Access database access.")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.MsAccess.DesignTime"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type providers for Microsoft Access database access."
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

src/SQLProvider.MsAccess.Runtime/AssemblyInfo.fs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,13 +5,13 @@ open System.Reflection
55
[<assembly: AssemblyTitleAttribute("SQLProvider.MsAccess.Runtime")>]
66
[<assembly: AssemblyProductAttribute("SQLProvider")>]
77
[<assembly: AssemblyDescriptionAttribute("Type providers for Microsoft Access database access.")>]
8-
[<assembly: AssemblyVersionAttribute("1.5.17")>]
9-
[<assembly: AssemblyFileVersionAttribute("1.5.17")>]
8+
[<assembly: AssemblyVersionAttribute("1.5.18")>]
9+
[<assembly: AssemblyFileVersionAttribute("1.5.18")>]
1010
do ()
1111

1212
module internal AssemblyVersionInformation =
1313
let [<Literal>] AssemblyTitle = "SQLProvider.MsAccess.Runtime"
1414
let [<Literal>] AssemblyProduct = "SQLProvider"
1515
let [<Literal>] AssemblyDescription = "Type providers for Microsoft Access database access."
16-
let [<Literal>] AssemblyVersion = "1.5.17"
17-
let [<Literal>] AssemblyFileVersion = "1.5.17"
16+
let [<Literal>] AssemblyVersion = "1.5.18"
17+
let [<Literal>] AssemblyFileVersion = "1.5.18"

0 commit comments

Comments
 (0)