Question

我正在使用mysql开发项目，为此，我正在使用zeoslib做一个类，我可以建立连接，可以执行诸如insert，update等查询。但是我的问题是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;

如何使用zeoslib获得选择结果

1 个答案: