wizards/source/access2base/Database.xba | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
New commits: commit 2a65be46f191f53177188a1f1827e71381a5983a Author: Jean-Pierre Ledure <j...@ledure.be> AuthorDate: Thu Dec 24 13:55:43 2020 +0100 Commit: Jean-Pierre Ledure <j...@ledure.be> CommitDate: Fri Dec 25 14:39:05 2020 +0100 Fix #118767 - Identify Firebird DBMS in DFunction() Change-Id: I2fb3d414e3cd537654bbfae71fcdd80cf8ae4648 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/108185 Reviewed-by: Jean-Pierre Ledure <j...@ledure.be> Tested-by: Jean-Pierre Ledure <j...@ledure.be> diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 2e361cecfc13..07b19ca0a2bd 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1167,7 +1167,7 @@ Dim sProductName As String sTarget = UCase(psFunction) & "(" & psExpr & ")" End If sSql = "SELECT " & sTarget & " AS " & sTempField & " FROM " & psDomain & sWhere & sOrderBy & sLimit - Case "FIREBIRD" + Case "FIREBIRD", "FIREBIRD (ENGINE12)" If psFunction = "" Then sTarget = "FIRST 1 " & psExpr Else sTarget = UCase(psFunction) & "(" & psExpr & ")" sSql = "SELECT " & sTarget & " AS " & sTempField & " FROM " & psDomain & sWhere & sOrderBy Case Else ' Standard syntax - Includes HSQLDB _______________________________________________ Libreoffice-commits mailing list libreoffice-comm...@lists.freedesktop.org https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits