Delphi Interbase Sql 转换为 Sql Server 和 Oracle

Question

我有一个使用数据库的delphi应用程序 间基/火鸟。为了查阅和写入数据，我使用 InterBase 组件选项板（IBTable、IBQuery、IBDataset）。我是 正在将我的系统转换为 sqlserver / Oracle，但我有 在运行时使用 SQL 指令组装的数千个查询 特定数据库InterBase/Firebird。有谁知道 任何生成 Parse 命令的组件或工具 Interbase -> SQL Server 或 Interbase->甲骨文？

我需要的是这样的：

Var
  Parser: TParser;
  OutputSql: String;
Begin
   Parser := TParser.Create();
   Parser.Text := 'SELECT FIRST 10 CITYNAME FROM TBCITY';

   if Firebird then
      OutPutSql := Parser.ParseTo('SQLSERVER');

   if Oracle then
      OutPutSql := Parser.ParseTo('ORACLE');

   ComponentAccess.Sql.Text := OutPutSql;
   ...

结果：

Parser.ParseTo('SQLSERVER');

将是

“从 TBCITY 选择前 10 个城市名称”

并且

Parser.ParseTo('ORACLE');

将是

“从 TBCITY 选择城市名称，其中 ROWNUM <= 10”

Answer 1

1）据我所知，像AnyDAC这样的库具有SQL抽象语法。也许您可以在 SQL 命令文本中使用此功能。

2) 如果您在运行时组装 SQL，那么为什么不直接这样编写代码：

if Firebird then
  SQL.Add(...)
else if Oracle then
  SQL.Add(...)
...

Answer 2

我们已经在 AnyDAC 中实现了这一点。您可以使用 LIMIT 转义函数：

ADQuery1.Sql.Text := 'SELECT {LIMIT(10)} CITYNAME FROM TBCITY';

AnyDAC 会自动将其转换为目标 DBMS 语法。

Answer 3

我使用了 Components4Developers 中的 kbmMW，它有一组抽象的查询，提供宏等来启用 /easier/跨数据库工作，但主要用于客户端/服务器使用。 Devart 也做了一套很好的跨数据库组件 - 我们使用他们的SQL Server 集。然而，我完成的每个项目最终都会为每个数据库编写一组特定的 SQL 脚本。显然，简单的选择内容有相当多的共同点，但不同数据库的功能集通常差异太大，无法轻松使用。

我最终得到的结果与 @oodesigner 的响应类似，只是我们使用 $ifdef 并在单独的 const 单元中定义 SQL 字符串。

{$ifdef USE_MSSQL}
  QUERY_ONE = 'select blah blah blah...';
{$else}
  QUERY_ONE = 'select nah nah nah...';
{$endif}

然后在主单元中进行简单的分配

SQL.Text := QUERY_ONE;

或

SQL.Text := Format(QUERY_TWO, [some_very_carefully_quoted_stuff_or_use_params]);

不知道任何可以自动化或解析它的东西。这样做的问题是，您仍然必须仔细检查每个查询，因为转换时很容易出错。