Delphi 数据库获取所有用户名

本文整理自网络，侵删。

 
function Tform1.GetAllUser: TStringList;
begin
  Result := TStringList.Create;
  Result.Clear;
  with TADOQuery.Create(nil) do
    try
      Connection := FdbJbda;    
      Close;
      SQL.Clear;
      SQL.Add('select name from data');
      Open;
      while not Eof do
      begin
        Result.Add(Format('%s', [Fields[0].AsString]));
        Next;
      end;
      Close;  

    finally
      Free;
    end;
end;
 

相关阅读 >>

Delphi 网络时间校对

Delphi监测按键输入

Delphi adoquery查询，如何得到查询记录数？

Delphi中控制扫描仪

Delphi 中将tmemorystream转换为'string'

Delphi 关闭自己,重新运行

Delphi 内存池

Delphi中showmodal 和 show 的区别

Delphi 获取计算机已运行时间

Delphi xe安装 tclientsocket, tserversocket控件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 数据库获取所有用户名