query sonucunu edit e alma

[Misafir]

Adoquery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Sum(ucret) From itfmuayene Where tarih between :tarih1 and :tarih2 ');
Adoquery1.Parameters.ParamByName('tarih1').Value:=datetostr(datetimepicker13.Date);
Adoquery1.Parameters.ParamByName('tarih2').Value:=datetostr(datetimepicker14.Date);
Adoquery1.Open;

boyle bir sorgu yaptım...

1 dogrumu ;?

2 diyelimki doğru.... bu sonucu edit nesnesine (ki normal edittir dbedit deel.)

3 diyelimki doğru deel...doğgrusu nasıldır....nasıl olmalıdır...teşekkürler....

[Misafir]

2 nci çıkkı eskik yazmışım....

bu sonucu edit nesnesine nasıl aktarırım (edit normal edit db edit deel)

[mege]

Kod: Tümünü seç

with Query do
  begin
  Sql.Clear;
  Sql.Add('SELECT tablo.xxxx)');
  Sql.Add('FROM tablo');
  Sql.Add('WHERE tablo.Tarih=:TAR');
  Params[0].AsDate:=Date;
  Open;
  if not Fields[0].isNull then
     if Fields[0].AsInteger <> 0 then
        maxxxxNo := Fields[0].AsInteger;
 // tabi sen burda edite atıcan
 //  if not Fields[0].isNull then
 //        Edit2.text := Fields[0].AsString;

  Close;
  end;

bu ara ma tuşu çalışıyormuş güzel şeyler buldu, tüm alanlar için
viewtopic.php?p=21713#21713