返回指定表、字段信息

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

missingzlp

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

阅读量286

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： table code sql

本文链接：https://blog.youkuaiyun.com/missingzlp/article/details/90709661

Delphi 专栏收录该内容

36 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;