Raporlama

[haydarxxx]

QRY_OGRENCI adındaki IBdatasete girmiş olduğum kayıtları sorgulama yaptırarark raporlamak yapmak istiyorum bunun için IBquery3 bileşenimi kullanarak bağlantlarını QRY_OGRENCI (Ibdataset) e bağladım.

IBquery3
sql si
select * from TBL_OGRENCI

form3 deki quicrep e eklediğim sub detail bandının Dataset özelliğine Form1.IBQuery3 olarak yazdım ve subdetail bantına eklediğim QRDBText1 in dataset ine Form1.IBQuery3 yazdım kısacası bantımda gerekli bağlantılarımı IBQuery3 bağladım.(sorguyu alacağı query)

procedure TForm1.Button5Click(Sender: TObject);
begin
IBQuery3.SQL.Clear;
IBQuery3.SQL.Add('select * from TBL_OGRENCI Where SINIFI='+Edit6.text+'' );
IBQuery3.open;
form3.quickrep1.preview ;
end;

de edit6.text imde 1A sınıfını aratarak sadece bu sınıfları listelemek istiyorum.ama hata veriyor.İstediğim koşullamada nerde hata yapıyorum anlamadım.

[nitro]

Kod: Tümünü seç

procedure TForm1.Button5Click(Sender: TObject);
begin
IBQuery3.SQL.Clear;
IBQuery3.SQL.Add('select * from TBL_OGRENCI Where SINIFI='+#39+Edit6.text+#39 );
IBQuery3.open;
form3.quickrep1.preview ;
end; 

olarak dene
klay gelsin

[haydarxxx]

nikrokanat teşekkür ediyorum.
Bu haftaki sayısalda 39 u oynamalıyım .Sağolasın

[nitro]

kardeş boşver sayısal'ı. helal kazanmaktan daha iyisi yok.

Kod: Tümünü seç

IBQuery3.SQL.Add('select * from TBL_OGRENCI Where SINIFI='+#39+Edit6.text+#39 );

yerine

Kod: Tümünü seç

IBQuery3.SQL.Add('select * from TBL_OGRENCI Where SINIFI='+quotedstr(Edit6.text) );

yaz. aynı işi yapıyo. böylece seni sayısal lotoya yönlendirmez