ADOQuery ile ilgili soru

[Aysegul]

Merhaba arkadaslar benim bi sorum olcakti , bir okul not sistemi programi uzerine calisiyorum ama not girisinde ayni veri ve notlari birden fazle girilebiliyo, mesela bi ogrencinin odev notu 1 den fazla girilebiliyo , bunu onlemek icin asagidaki kodu uyguladim delphi de ama calismiyor , yardimci olursaniz cok sevinirim


with DM.ADOQueryOdevNotu do
begin
Close;
SQL.Clear;
SQL.Add('select * from Odev where OgrNo = ' + QuotedStr(''+ComboBox1.Text+''));
Sql.Add('And Ogrenim_Yili = '''+ComboBox1.Text+''' ');
Sql.Add('And Semester = '''+ComboBox2.Text+''' ');
Sql.Add('And Ders = '''+ComboBox5.Text+''' ');
Open;
if (DM.ADOQueryOdevNotu.FieldByName('OgrNo').AsString=ComboBox3.Text) and (DM.ADOQueryOdevNotu.FieldByName(Ogrenim_Yili').AsString=ComboBox1.Text) and (DM.ADOQueryOdevNotu.FieldByName('Semester').AsString=ComboBox2.Text) and
(DM.ADOQueryOdevNotu.FieldByName('Ders').AsString=ComboBox5.Text) then
begin
ShowMessage('Vari Kayitli');


Yazdigim kod calismiyor eger OgrNo, Ogrenim_Yili, Semester ve ders veritabaninda varsa veri kayitli msj i gorunmesi lazim ama gorunmuyor ..
Yardimlariniz icin simdiden tesekkurler

[orhancc]

alttaki kısım yerine bunu yazabilirsin. Çektiğin sorgu zaten kayıtlı öğrencileri getiriyor eğer sonuç sıfırsa kayıt yok demektir.

Kod: Tümünü seç

if AdoQuery.RecordCount >0 then Showmessage('Kayıt Var')