üzerinde çalıştığım bir programda sql kodlarından kaynaklandığını düşündüğüm bir hata ile karşılaştım.kaç saattir uğraşıyorum ama aynı hata devam ediyor. yıllardır program yazıyorum böyle bir hata ile ilk defa karşılaştım. kod çalışıyor görevini yapıyor ama eksik yapıyor. bu konuda bana yardımcı olursanız sevinirim. kodlar şöyle:
var
a,s :Integer;
begin
ADO_ILCELER.Close;
ADO_ILCELER.sql.Clear;
ADO_ILCELER.sql.add('Select * from TBL_ILCELER order by ILCE_ADI');
ADO_ILCELER.Open;
ADO_ILCELER.First;
for s:=0 to ADO_ILCELER.recordcount-1 do begin
ADO_MUFETTIS_LISTESI.Close;
ADO_MUFETTIS_LISTESI.sql.Clear;
ADO_MUFETTIS_LISTESI.sql.add('Select * from TBL_MUFETTIS_LISTESI order by ADI_SOYADI');
ADO_MUFETTIS_LISTESI.Open;
ADO_MUFETTIS_LISTESI.First;
for a:=0 to ADO_MUFETTIS_LISTESI.recordcount-1 do begin
ADO_GUNCELLE.Active:=true;
ADO_GUNCELLE.insert;
DBEdit1.Text:=DBEdit5.Text; // MÜFETTİŞ İSİMLERİ
DBEdit2.Text:=DBEdit6.Text; // İLÇE ADLARI
DBEdit3.Text:=DBEdit7.Text; // İLÇE TÜRLERİ
ADO_MUFETTIS_LISTESI.Next;
end;
ADO_ILCELER.next;
end;
end;
hata:tüm MÜFETTİŞLERE tüm ilçeleri ekliyor ama son Müfettişin Son İLÇESİNİ EKLEMİYOR.
ÖRNEĞİN: SON MÜFETTİŞ OLAN ZEYNEL İN SON İLÇESİ OLAN YAVUZELİ İLÇESİNİ EKLEMİOR. DİĞER TÜM MÜFETTİŞLERDE YAVUZELİ İLÇESİ VAR AMA SADECE SON MÜFETTİŞ OLAN ZEYNEL İSİMLİ MÜFETTİŞİN YAVUZELİ İLÇESİ YOK.ŞAŞIRTICI BİR DURUM DEĞİL Mİ
