mysql - 如何使用 zeoslib 获取选择结果

Question

我正在使用 mysql 开发一个项目，为此我正在使用 zeoslib 做一个类，我可以建立连接，我可以执行插入、更新等查询。但我的问题是 select，我运行它悄悄地，但我该怎么做才能得到返回呢？我想要像 PHP 这样的东西，我可以告知列名称，然后它返回该列中的行的值。

Answer 1

您要选择的内容很重要，这里是一个使用 TZQuery 获取整数值的示例；

function TAccess.getProgramNo(aProgramName:WideString):Integer;
 var
  q:TZQuery;
begin
  Result := -1;
  q := TZQuery.Create(Self);
  try
      q.Connection := conn;
      q.SQL.Text := ' SELECT progno FROM programs WHERE name = :name ORDER BY progno ASC ';
      q.ParamByName('name').Value := aProgramName;
      q.Open;
      if q.RecordCount > 0 then
        Result := q.FieldByName('progno').AsInteger;
  finally
    q.Free();
  end;
end;

如果你想返回一个对象列表(我没有编译这个)；

function TAccess.getPrograms(aProgramName:WideString):TList;
 var
  q:TZQuery;
begin
  Result := TList.Create;
  q := TZQuery.Create(Self);
  try
      q.Connection := conn;
      q.SQL.Text := ' SELECT progno FROM programs WHERE name = :name ORDER BY progno ASC ';
      q.ParamByName('name').Value := aProgramName;
      q.Open;
      While not q.EOF do
        begin
          result.Add(TZoo.Create(....));
          q.Next;
        end;
  finally
    q.Free();
  end;
end;