sql ve null

[rapsodim]

Arkadaşlar edit16.text e bir integer değer girince sonuç veriyor fakat boşluk olunca sonuç alamıyorum.nasıl yapabilirim.

form2.query1.close;
form2.query1.sql.clear;
form2.Query1.SQL.Add('SELECT * from makina');
form2.Query1.SQL.Add('where makno=:xx');
query1.Params[0].asinteger:=strtoint(edit16.text);
form2.Query1.SQL.Add('ORDER BY MAKNO');
form2.query1.OPEN;

[Uğur1982]

merhaba;

Kod: Tümünü seç

strtoint(edit16.text)

Asıl sorunun buradan kaynaklanıyor.edit16.text 'e girdiğin değer integer olmak zorunda .Çünkü çevirme yapmışsın.
edit16.text e de İnteger girme zorunluluğu koysan daha iyi olur.

iyi günler...

[rsimsek]

Ya da ;

Kod: Tümünü seç

form2.query1.close;
form2.query1.sql.clear;
form2.Query1.SQL.Add('SELECT * from makina');
form2.Query1.SQL.Add('where makno = :x or :x = 0');
try
  if StrToInt(Edit16.Text) > 0 then ;  // numeric bir değer ise alt satıra geçer..
  query1.Params[0].AsInteger := StrToInt(Edit16.Text);
except
  query1.Params[0].AsInteger := 0; // numeric değer değilse/ boş ise buraya..
end;
form2.Query1.SQL.Add('ORDER BY MAKNO');
form2.query1.OPEN;

yapabilirsin

[oguzozturk74]

Gerçi Recep abinin cevabının üzerine cevap olmaz ama ,
Affet Recep abi ,

Kod: Tümünü seç

query1.Params[0].asinteger:=strtoint(Trim(edit16.text)); 

şeklinde boşlukları kırpsan

[rsimsek]

edit e numeric değer girmeyince hata verir Benim verdiğim yapıda sıfır girilmiş ise tüm kayıtlar gelir yada alfabetik bir değer boşluk dahil girilmiş ise de sıfır girilmiş gibi tüm kayıtlar gelir.