返回指定表、字段信息

最新推荐文章于 2023-05-26 17:30:29 发布

原创最新推荐文章于 2023-05-26 17:30:29 发布 · 298 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#table #code #sql

Delphi 专栏收录该内容

36 篇文章

订阅专栏

博客涉及SQL、表格及代码相关信息技术内容，但具体信息缺失。推测围绕SQL操作表格及代码编写等方面。

function GetTable(TableName, SourceName, FieldName,
  Code: string): string;
begin
  result := '';
  try
    with cdsSQL do
    begin
      Close;
      Data := null;
      CommandText := ' select ' + FieldName +
                     ' from '   + TableName +
                     ' where '  + SourceName +
                     ' = ''' + Trim(code) + '''';
      Open;
      if recordcount = 1 then
        result := FieldByName(FieldName).asstring
      else
        result := '';
    end;
  finally
    cdsSQL.Close;
  end;
end;