Sql'de sayısal değişkenle alan karşılaştırma

[metinkorkmaz]

Kod:
IBDataSet1.SelectSQL.Add('select * from a1 where sn='+IntTostr(Edit1.Text)+' ');

Bu kodda tip sorunu var. IntToStr parametre olarak int almalıdır, ama edit1.text string yapıdadır.

Dialect 3 sorunu varsa, şunu dene (alan isimlerini çift tırnakla belirt):
IBDataSet1.SelectSQL.Add('select * from a1 a where a."sn"='+deger);

[vedatkaba]

bu kodu verilen cevaplar doğrultusunda İBSQl bieleşeniyle bir dene istersen bakalım orda çalışacakmı.

[yokname]

Hepsini Tek tek ibsql dede denedim aynı hata tekrarlanıyor ancak

Kod: Tümünü seç

IBsql1.SQL.Add('select * from a1 where sn='+IntTostr(Edit1.Text)+');

yapınca

Kod: Tümünü seç

There is no overloaded version of 'IntToStr' that can be called with these arguments

hatası verdi arkadaşa rezil oldum gibi çünkü bu alternatiflerden hiç birisi işe yaramadı.
Arkadaşım sql string alandır orada direk içinde integer karşılaştırma yapamazsın demişti.

[yokname]

Kod: Tümünü seç

('select * from a1 where sn=''+IntTostr(Edit1.Text)+');

bu kodda sq

Kod: Tümünü seç

l parse error

verdi[/code]

[vedatkaba]

Kod: Tümünü seç

('select * from a1 where sn='''+IntTostr(Edit1.Text)+'''');

Bu şekilde nasıl olur bilmiyorum ama denemediysen dene.

[yokname]

Maalesef yine

Kod: Tümünü seç

There is no overloaded version of 'IntToStr' that can be called with these arguments

verdi
en yakını

Kod: Tümünü seç

('select * from a1 where sn=''+IntTostr(Edit1.Text)+');

bana göre ama buda çalışmadı peki bu mümkünmüdür arkadaşlar bu konuda fikirleriniz nelerdir...

[Uğur1982]

valla bugün çuvalladık .kafam karışık mı nedir

Kod: Tümünü seç

IBsql1.SQL.Add('select * from a1 where sn='+Edit1.Text+' ');

böyle çalışıyor fakat Edit1.Text e integer değer girmen gerekir

iyi günler...

[vedatkaba]

Kod: Tümünü seç

('select * from a1 where sn=''+inttostr(strtoint(Edit1.Text))+');

bu şekilde olur gibi ama dene bakalım ne olcak.

[yokname]

evet

Kod: Tümünü seç

 ('select * from a1 where sn='+Edit1.Text+' ');

bu şekilde oluyor ama benim yapmak istediğim

Kod: Tümünü seç

('select * from a1 where sn=''+IntTostr(Edit1.Text)+');

şeklindeydi yani direk sql in içinden sayıyı stringe çevirmeden yapmaktı ama bu kadar yoldan sonra olmuyorsa demekki olmuyor. Arkadaşada rezil oldum
Öğrenmenin yaşı yoktur

[fduman]

Kod: Tümünü seç

('select * from a1 where sn=''+IntTostr(Edit1.Text)+');

şeklindeydi yani direk sql in içinden sayıyı stringe çevirmeden yapmaktı ama

Olayın başını kaçırdım ancak burada bir hata var. Edit1.Text string tipindedir. Sen IntToStr ile string'e integer muamelesi yapmak istemişsin. Yanlış bir kullanım. Böyle bir çevirme işlemine gerek yok.

[bobasturk]

merhaba,

Kod: Tümünü seç

var
  s1,s2,s:String;
    begin
      s1:=Edit1.Text;
      s2:=Edit2.text;

      dgirissrgibquery.close;

  with dgirissrgibquery.sql do
    begin
      Clear;
      Add('Select*From DEMIRBAS_GIRIS');
  if s1<>'' then s:='(DEMIRBAS_NO LIKE '''+s1+''')';
  if s2<>'' then
    begin
  if s<>'' then s:=s+' AND ';
      s:=s+'(GIRIS_ZAMANI = '''+s2+''')'
    end;
  if s<>'' then add ('WHERE '+s);
    add('ORDER BY DEMIRBAS_NO');
    end;
      dgirissrgibquery.Open;
      dgirissrgibquery.Last;

   if dgirissrgibquery.IsEmpty then
     ShowMessage('Sorguladığınız Kayıt Bulunamadı!!!');

burada demirbaş no integer bir alan ve edit içine girilen sayı ile aramayı yapıyor bi sorun çıkmıyor sizde böyle bir sorunun çıkması baya garip bi olay ama muhakkak çözümü vardır veya bi yerde yanlış bir şeyler

kolay gelsin

[yokname]

Böyle oluyor çünkü siz string değer karşılaştırıyorsunuz.Ama s1 değişkenini integer yapıp sayısal bir alanla karşılaştıramıyoruz.Bunun sebebi de bence sql.text in string bir değer olması string değer içinde sayısal bir değer karşılaştırmaya çalıştım ben.