用于解析 SQL 语句的库

Question

我希望能够解析任意 SQL SELECT 语句并检索各个组成部分（列、关系、JOIN 条件、WHERE 条件、ORDER BY 列），最好使用 Delphi。快速的谷歌搜索显示了几种不同的免费软件产品，但不清楚它们是否完整和/或正在积极开发中。

我迫切需要提取一系列 VIEW 定义中使用的关系列表，以确保在我尝试创建视图之前存在所需的视图或表。因此，例如，对于语句：

SELECT PersonID, LastName, OrderID 
FROM People P INNER JOIN Orders O ON P.PersonID = O.PersonID

我需要取回“人员”和“订单”的值。 （显然，这是一个简单的示例。我希望能够处理更复杂的情况，例如，“FROM”一词可能作为表达式的一部分出现在列列表中）。

我正在尝试在允许使用从 DLL 导出的 STDCALL 函数的数据库中提供此服务，因此理想情况下，任何候选库都可以从 Delphi 或 C 中调用。

Answer 1

看看Gold Parser.有Delphi版本，下载页面有SQL语法。

Answer 2

SQL 解析器很复杂。

你有没有想过这样的做法：

1. 开始交易。
2. 向服务器发送 CREATE VIEW 命令。
3. 捕捉错误（任何体面的数据库驱动程序都应该能够做到这一点）。
4. 如果出现错误，解析错误消息并向客户端显示丢失的表。
5. 回滚

查看这个例子（PostgreSQL）：

=> begin;
BEGIN
=> create view testview as select foo,bar from a join b on a.x=b.y;
ERROR:  relation "a" does not exist
LINE 1: create view testview as select foo,bar from a join b on a.x=...
                                                    ^
=> rollback;
ROLLBACK

或者这个（甲骨文）：

SQL> create view testview as select foo,bar from a join b on a.x=b.y;
create view testview as select foo,bar from a join b on a.x=b.y
                                                   *
ERROR at line 1:
ORA-00942: table or view does not exist

SQL> rollback;

Rollback complete.

Answer 3

您可以将 Delphi 与 ADODB 一起使用。

在不真正打开记录集的情况下使用 TADOQuery 来测试您的查询是否良好。您还可以检索查询的字段名称。

在表单上放置一个 TADOConnection。 删除 TMemo 和 TButton 并尝试以下代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  lADOQuery : TADOQuery;
  lFieldNames : TStrings;
begin
  lADOQuery := TADOQuery.Create(nil);
  try
    lADOQuery.Connection := ADOConnection1;
    lADOQuery.SQL.Text := Memo1.Text;
    lFieldNames := TStringList.create;
    try
      lADOQuery.GetFieldNames(lFieldNames);

      showmessage(lFieldNames.Text); // Show fieldNames of the query

      // To show that the dataset is not actually opened try this :
      // Throws an exception ( Dataset closed )
      //showmessage(inttostr(  lADOQuery.RecordCount ));
    except
      On e: Exception do
        ShowMessage('Invalid query');
    end;
    lFieldNames.free;
  finally
    lADOQuery.free;
  End;
end;