Query1 de hata !!!

[ozcank]

Arkadaşlar yazmış olduğum kod da şöyle bir hata var yardım ederseniz sevinirim;
Edit1'i boş geçtiğim zaman mesaj verecek bunu veriyor fakat kod yerine carakter girdiğim zaman "Type mismatch in expression" hatası verdi.Bende bu kısmı değiştirerek ;

Kod: Tümünü seç

Query1.ParamByName('STOPYAPKOD').AsFloat:=StrToFloat(Edit1.Text);

denedim bu seferde "Query1:Field'SERTAR1' is of an unknown type" hatası alıyorum ne yapabilirim?

Kod: Tümünü seç

       if RadioButton6.Checked then
      If Edit1.Text='' Then
Begin
Query1.Active:=False;
ShowMessage('Lütfen Toplantıyı Yapan kodunu Boş Geçmeyiniz !!! ');
Edit1.Setfocus;
Exit;
end
else
begin
Query1.Sql.Clear;
Query1.Sql.Add('Select * From SISTEMFOR');
Query1.Sql.Add('Where SISTAR Between :SERTAR1 AND :SERTAR2 AND STOPYAPKD=:STOPYAPKOD');
Query1.ParamByName('STOPYAPKOD').AsString:=Edit1.Text;
Query1.ParamByName('SERTAR1').AsDate:=DateTimePicker1.date;
Query1.ParamByName('SERTAR2').AsDate:=DateTimePicker2.Date;
       end;
Query1.Active:=true;

[rsimsek]

Ya edit in boş olmamasını sağlamalısın (sadece sayısal alan olacak) ya da try / except / end bloğu içinde kontrol etmelisin.

Kod: Tümünü seç

try
  Deger := StrToFloat(Edit1.Text);
except
  Deger := 0.0;
end;

gibi

[ozcank]

"STOPYAPKD" Numeric ve indexli bundan yapıyor olabilir mi?

[bobasturk]

merhaba,

Kod: Tümünü seç

var
  sertar1, sertar2:tdate;
  begin

şeklinde tanımlama yapman gerekmiyormu?

kolay gelsin.

[Hakan Can]

Query1.ParamByName('SERTAR1').AsDate:=DateTimePicker1.date;
Query1.ParamByName('SERTAR2').AsDate:=DateTimePicker2.Date;

satırlarından önce:

Query1.ParamByName('SERTAR1').DataType:=ftDate;
Query1.ParamByName('SERTAR2').DataType:=ftDate;

girerek deneyin.