Как добавить элементы из запроса SQL в TListView - PullRequest
Новая
       45

Как добавить элементы из запроса SQL в TListView

0 голосов
/ 22 февраля 2019

Я хочу добавить элементы из запроса в TListView, используя цикл for.Но я получаю сообщение об ошибке «Слишком много фактических параметров» из строки ListViewShifts.Items.Add ().Как правильно добавить в список запрос? 

  Qry := TFDQuery.Create(DBConnection);
  Qry.Connection := DBConnection;
  Qry.SQL.Text := 'SELECT Count(10) FROM Bookings WHERE NurseNo=:nurseID;';
  Qry.Params.ParamByName('nurseID').AsInteger := NurseID;
  Qry.Active := True;

  //Fill the list view with the shifts that have the nurses ID
  for Count := 0 to 10 do
  begin
    ListViewShifts.Items.Add(Qry.Fields[Count].AsString);
  end;

Ответы [ 2 ]

0 голосов
/ 22 февраля 2019 
   VAR
   SY1:INTEGER;
   mydata:string;
   begin
   mydata:='mydatabasename';
   qry_tables.Close;
   qry_tables.SQL.Clear;
   qry_tables.SQL.text:= 'SELECT TABLE_NAME NAME FROM information_schema.TABLES       WHERE TABLE_SCHEMA = '+QuotedStr(mydata);
   qry_tables.Open;

   ListViewShifts.Clear;
   for SY1 := 1 to qry_tables.RecordCount do
    begin
     ListViewShifts.Items.Add(qry_tables.FieldByName('NAME').TEXT);
     qry_tables.NEXT;
    end;

я использовал mysql

0 голосов
/ 22 февраля 2019

Вам необходимо учесть следующее:

  • Если ваша ListViewShifts переменная TListView, метод ListViewShifts.Items.Add не ожидает параметров.В этом причина Too many actual parameters ошибки.
  • SQL-оператор SELECT Count(10) FROM Bookings WHERE NurseNo=:nurseID; вернет набор результатов только с одним столбцом.
  • Если вы хотите получить первые 10 строк, то, вероятно, ваш оператордолжно быть: SELECT TOP(10) FROM Bookings WHERE NurseNo=:nurseID;
  • Использование методов набора данных First, Eof и Next для выборки записей из набора результатов.

Следующий базовый пример показывает, как добавить10 предметов в вашем TListView: 

procedure TMainForm.btnGet(Sender: TObject);
var
   li: TListItem;
begin

   Qry := TFDQuery.Create(DBConnection);
   Qry.Connection := DBConnection;
   Qry.SQL.Text := 'SELECT TOP(10) FROM Bookings WHERE NurseNo=:nurseID;';
   Qry.Params.ParamByName('nurseID').AsInteger := NurseID;
   Qry.Active := True;

   Qry.First; 
   for Count := 1 to 10 do
   begin
      Qry.Next;
      li := ListViewShifts.Items.Add;
      li.Caption := Qry.Fields[0].AsString;
   end;
   (*
   Qry.First;
   while not Qry.Eof do begin
      li := ListViewShifts.Items.Add;
      li.Caption := Qry.Fields[0].AsString;
      Qry.Next;
   end;
   *)
end;
...