[ saxa @ 09.10.2011. 01:17 ] @
IME VISIINA TEŽINA
maja 170 30
ana 155 40
tanja 160 50
petra 160 60

imam npr ovakvu bazu. I sad bih htjela ispisati u nekoj tablici (npr. StringGrid) podatke na način:

VISINA ---- TEŽINA ---- IME
160 ---- 50, 60 ---- tanja, petra

ovo je kod kojim izvlačim podatak u prvu kolonu

Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('SELECT * FROM tablica WHERE VISINA Like 160);
Form1.ADOQuery1.Active := true;
Form1.ADOQuery1.Open;

i sad, kako da ubacim podatke u ostale kolone (čelije), s obzirom da su različiti i da ih trebam odvojit zarezom...

hvala unaprijed
[ savkic @ 09.10.2011. 21:48 ] @
> ovo je kod kojim izvlačim podatak u prvu kolonu

> Form1.ADOQuery1.Close;
> Form1.ADOQuery1.SQL.Clear;
> Form1.ADOQuery1.SQL.Add('SELECT * FROM tablica WHERE VISINA Like 160);
> Form1.ADOQuery1.Active := true;
> Form1.ADOQuery1.Open;

> i sad, kako da ubacim podatke u ostale kolone (čelije), s obzirom da su različiti i da ih trebam odvojit zarezom...

Ti sa ovim upitom dobijaš sve kolone date tabele, za prikaz je najlakše da koristiš neki DBGrid, recimo default Delphijev TDBGrid. Ako mora u StringGrid onda ideš redom po dobijenim slogovima i ubacuješ ih, npr:

Code:

var
  Temp: string;
begin
  while not AdoQuery.Eof do
  begin
     Temp := AdoQuery.Fields[0].AsString + ',' + AdoQuery.Fields[1].AsString;
     StringGrid.Cells[0, 1] := Temp ; // Ne znam tacnu sintaksu ali otprilike je to ideja
     AdoQuery.Next;
  end;
end;
[ _deran_ @ 09.10.2011. 22:04 ] @
Za firebird bazu bi ovako nekako izgledao upit:
Code:
select visina, list(tezina), list(ime) from tablica group by visina


Nisi navela koja je baza u pitanju.
[ saxa @ 10.10.2011. 12:13 ] @
Hvala SAVKIĆ to je to .. nisam znala da kad pišeš petlju

while not AdoQuery.Eof do

treba na kraju ić

AdoQuery.Next;

hvala ... radi

(btw ...ACCESS je u igri)