Mega Code Archive

 

Categories / Delphi / ADO Database

 

Labelde sayı toplam alma

Not:labelde sonuc alma (5000000)gösteriyor fakat virgüllü yapmıyor örnek(5,000,000)bu konuda banada yardımcı olurmusunuz lütfen? yusufzengin@hotmail.com procedure TForm1.Edit1Change(Sender: TObject); begin QUERY1.OPEN; query1.sql.clear; query1.sql.add('select *from skarty.db'); query1.sql.add('where adı like '''+edit1.text+'%'''); query1.open; QUERY1.ACtive:=false; query1.sql.clear; query1.sql.add('select sum(girtoplam) from skarty.db where sad>='''+edit3.text+''' and sad <='''+edit3.text+'{$A+}'''); query1.active:=true; query1.open; label1.caption:=query1.fields[0].asstring; end;