[delphi] + [sql] Jak wybrac z bazy dane i wstawic do tablicy

0

Mam taki kod:

SelectSQL := 'SELECT id FROM tabelka WHERE id = '''+Form63.ClientBcNoEdit.Text+''';';

//wywolanie SQL z insertem danych
Form1.PublicQuery.SQL.Clear;
Form1.PublicQuery.SQL.Add(SelectSQL);
Form1.PublicQuery.Active := True;

//wyjmujemy dane z zapytania i przypisujemy do zmienncyh
id := Form1.PublicQueryDataSource.DataSet.FieldByName('id').AsInteger;

//zamykamy polaczenie i czyscimy
Form1.PublicQuery.Active := False;
Form1.PublicQuery.SQL.Clear;

kiedy go wykonam w zmiennej ID mam jedna wartosc a jak zrobic zebym mogl odczytac wszystkei dane czy wstawic to do jakiejs tablicy? zastosowac tu petle czy jak to zrobic?

Wyczailem tez takie cos:

id1 := Form1.PublicQueryDataSource.DataSet.FieldByName('id').AsInteger;
Form1.PublicQueryDataSource.DataSet.Next;
id2 := Form1.PublicQueryDataSource.DataSet.FieldByName('id').AsInteger;

czyli potrzebuej zrobic petle ale jak wykryc ile razy ma byc to NEXT zrobione ?

0
var
 Tab :array of Typ;

j := 0;
SetLength(Tab, Form1.PublicQueryDataSource.DataSet.RecordCount);
with Form1.PublicQueryDataSource.DataSet do
  while not Eof do
  begin
    Tab[j] := FieldByName('id').AsInteger;
    Next();
    Inc(j);
  end;

// Poczytaj również to

1 użytkowników online, w tym zalogowanych: 0, gości: 1