merhaba,
konuyu tekrar canlandırmak istedim zira bu hatayı bende almaya başladım. Aynı tablo, aynı alanlar değişen bişi yok. sorgu kodlarıda aynı. eski sürüm programda bu hata mesajı gelmiyor herşey düzgün çalışıyor. yeni sürümede ise bu hata mesajı dönüyor. sorguyu yapıyor mesajlara tamam diyerek geçtiğimde ama gridi ileri geri her hareket ettirdiğimde mesaj gelip duruyor.
tablodaki alanlarım ise varchar, integer, date farklı bir alan yok.
kodum şu şekilde;
Kod: Tümünü seç
var
s1,s2,s3,s4,s5,s:String;
begin
s1:=cxtextEdit6.text;
s2:=cxtextedit7.Text;
s3:=cxdateedit1.Text;
s4:=cxdateedit2.text;
s5:=cxlookupcombobox1.Text;
afisdm.AfisGenelibqry.close;
with afisdm.AfisGenelibqry.sql do
begin
Clear;
Add('Select * From AFIS');
if s1<>'' then s:='(GELENIS LIKE ''%'+s1+'%'')';
if s2<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(ISSAYI LIKE ''%'+s2+'%'')'
end;
if s3<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(ISTARIHI = '''+s3+''')'
end;
if s4<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(AFISGIRISTARIHI = '''+s4+''')'
end;
if s5<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(AFISEGIREN LIKE ''%'+s5+'%'')'
end;
if s<>'' then add ('WHERE '+s);
add('ORDER BY AFISGIRISTARIHI');
end;
afisdm.AfisGenelibqry.Open;
afisdm.AfisGenelibqry.Last;
cxgroupbox15.Caption:=cxgroupbox15.caption+' TOPLAM [ '+inttostr(afisdm.AfisGenelibqry.RecordCount)+
' ] KAYIT BULUNDU';
if afisdm.AfisGenelibqry.IsEmpty then
ShowMessage('Aranılan Kriterde Kayıt Bulunamamıştır.');
yardımı dokunan olursa sevinirim. yıllardır sorunsuz çalışan kod ne oldu anlamadım.... kolay gelsin
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.