ib/fb veritabanı ve delphi 7 ile yaptığım çalışmada genel sorgulama olarak kullanacağım bi formu oluşturdum ve ibquery yerleştirdim.
çalıştırdığımda hata mesajı aldım mesaj şöle
dynamic sql error
sql code=-206
column unknown
ILCENO
sanırım alan tanınmıyor diyor fakat tablomda böle bi alan var aynı isimle.
oluşturduğum (yardımlarınız sayesinde) kodu aşağıya yazıyorum;
Kod: Tümünü seç
s1,s2,s3,s4,s5,s6,s7,s8,s:String;
begin
s1:=Edit1.Text;
s2:=Edit2.text;
s3:=edit3.Text;
s4:=edit4.Text;
s5:=Edit5.Text;
s6:=Edit6.text;
s7:=edit7.Text;
s8:=edit8.Text;
ibquery1.close;
with ibquery1.sql do
begin
Clear;
Add('Select * From RAPORLAR');
if s1<>'' then s:='(CERAIMNO LIKE '''+s1+''')';
if s2<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(ILCENO LIKE '''+s2+''')'
end;
if s3<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(ADI LIKE ''%'+s3+'%'')'
end;
if s4<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(SOYADI LIKE ''%'+s4+'%'')'
end;
if s5<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(BABAADI LIKE ''%'+s5+'%'')'
end;
if s6<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(DYERI LIKE ''%'+s6+'%'')'
end;
if s7<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(DTARIHI = '''+s7+''')'
end;
if s8<>'' then
begin
if s<>'' then s:=s+' AND ';
s:=s+'(GELTARIHI = '''+s8+''')'
end;
if s<>'' then add ('WHERE '+s);
add('ORDER BY ILCENO');
dbgrid1.Color :=clmoneygreen;
end;
ibquery1.Open;
if ibquery1.IsEmpty then ShowMessage('Aradığınız Kayıt Bulunamadı?');
end;
Hata bu yüzden olabilirmi.
teşekkür ve saygılarla
