Bu Kodda ne hata var ?

[sair]

With BelgeAlanlarRaporu.Belge do begin
Close;
Unprepare;
SQL.Clear;
SQL.Add('SELECT DISTINCT KIMLIK.KUTUK,KIMLIK.ADI,KIMLIK.SOYADI,KIMLIK.BABAADI,KIMLIK.DOGYER,KIMLIK.DOGTAR,BELGE.BELTAR FROM KIMLIK,BELGE');
SQL.Add('where belge.yili like :ALAN and kimlik.kutuk=belge.kutuk and Belge.KOYU=:KOY ORDER by kimlik.kutuk');
prepare;
Params[0].AsString:=Edit1.Text;
Params[0].AsString:=DbLookUpComboBox1.Text;
Open;
end;

Bu kodda ne yanlışlık var da "Traying to store a string of lenght 22 into a field that can only contain 4" hatası alıyorum...
Open a geldiğinde yukardaki hatayı veriyor..

[sair]

ey allam..
params ların ikisine de 0 vermişim..

[akdatilla]

Üzülme, her programcının başına gelir böyle şeyler. Sadece 1karakterlik hatanın bile bulunması güç olabiliyor.
Hatayı bulduktan sonra da bumuydu beni bu kadar süründüren diyor insan.
Allah cümlemize kolaylık versin.

[sair]

Amiiin