获取TField所在的表名

Question

我使用的是一个TDataSet，其中CommandText属性被设置为一个SQL查询。我还执行了以下函数，该函数根据TDataSet的字段创建部分SQL查询。然而，它是不完整的。如您所见，我仍然需要获取TField所在的表的名称。我该如何实现这一点？

function GetDataSetFieldsMSSQL(Dataset: TDataSet): String;
var
  I, L: Integer;
  TableName: String;
begin
  Result := '';
  L := Dataset.Fields.Count;
  if (L > 0) then
  begin
    TableName := ... // Name of the table for the Dataset.Fields[0] field.
    Result := '[' + TableName + '].[' + Dataset.Fields[0].FieldName + ']';
    I := 1;
    while (I < L) do
    begin
      TableName := ... // Name of the table for the Dataset.Fields[I] field.
      Result := Result + ',[' + TableName + '].[' + Dataset.Fields[I].FieldName + ']';
      Inc(I);
    end;
  end;
end;

Answer 1

也许对于一个简单的TDataSet根本没有解决方案？

我不这么认为。因为TDataset不仅可以从关系型数据库表中获取数据，还可以从表中获取数据。它可以是：

1. an RSS feed
2. An XML file.示例: TCliendataset是一种可以从自己的格式读取TDataset的后代，如果您有用于读取Excel电子表格或文本文件的ODBC驱动程序，并且配置的datasource.
3. Sky (以及世界各地的Delphi程序员的想象力)是字段在TDataset中所能表示的极限，则可以使用SQL来读取Excel电子表格或文本文件。

您有一些替代方法，因为您使用的是ADODataset：

分析ADOCommand

• Using的BASETABLENAME属性的commandText的约定(如在kobik的ADOCommand

• Using comment)

• Guessing by

• ( Abelisto's answer )

中

Answer 2

您可以在DBCommon单元中使用Delphi函数GetTableNameFromQuery(SQL : String):String;。只需在使用上添加DBCommon即可。=)

Answer 3

据我所知，没有任何方法可以从SQL查询组件中获取表的名称。但是，您可以为字段指定别名，例如："select foo_field as foo_dot_foo_field from foo“，然后将它们替换为正确的语法："Result := '[‘+ StringReplace(DataSet.Fields.FieldName，’点‘，'].['，rfReplaceAll) + ']'”