Как получить выбранные результаты, используя zeoslib

Question

Как получить выбранные результаты, используя zeoslib

0

Я работаю над проектом с mysql, и для этого я занимаюсь классом с помощью zeoslib, я могу установить соединение, я могу выполнять запросы, такие как вставка, обновление и т.д. Но моя проблема заключается в выборе, я запускаю его тихо, но как бы я сделал, чтобы получить возвращение? Я хотел бы что-то вроде PHP в том, что я сообщаю имя столбца, и он возвращает мне значение строки, которая находится в этом столбце.

TheUser 05 дек. 2018, в 00:21

Источник

1

Вы когда-нибудь работали с потомками TDataSet, такими как TTable, или компонентами ADO? Я никогда не использовал Zeos, но если TZQuery не происходит от TDataSet, возможно, есть еще один компонент TZ. После этого все станет стандартным, и вы, вероятно, сможете найти подробные сведения о том, как связать элементы управления, осведомленные о данных, с набором данных. См. Например: Связывание элемента управления данными с набором данных в документации Delphi.
GolezTrol 04 дек. 2018, в 23:20

Теги:

mysql

delphi

1 ответ

Ещё вопросы

Вы когда-нибудь работали с потомками TDataSet, такими как TTable, или компонентами ADO? Я никогда не использовал Zeos, но если TZQuery не происходит от TDataSet, возможно, есть еще один компонент TZ. После этого все станет стандартным, и вы, вероятно, сможете найти подробные сведения о том, как связать элементы управления, осведомленные о данных, с набором данных. См. Например: Связывание элемента управления данными с набором данных в документации Delphi.

sddk · Accepted Answer · 2018-12-05T02-43-00.000Z

Важно, что вы хотите выбрать, вот пример, который использует 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;

Вы должны использовать q.Free, а не q.Destroy ().