SQL le integer değişken

[husonet]

Arkadaşlar tablomda bir integer alanım var ben buna Sql kullanarak sorgulama içinde integer değişken göndermek istiyorum ama programımda hep hata alıyorum.

[mussimsek]

kodu ve SQL cümlesini gönderirsen bakalım. Dönüşümlerde veya SQL cümlesinde bir hata vardır.

Kolay gelsin.

[husonet]

Kodum Şöyle

Kod: Tümünü seç

IslemNo := CariNakitIslemlerFrm.AdoDataSet1ISLEMNO.Value;

AdoQuery1.Close;
AdoQuery1.Sql.Clear;
AdoQuery1.Sql.Add('Select * From NakitIslemler');
AdoQuery1.Sql.Add('Where IslemNo = 'IslemNo'');
AdoQuery1.Open;

if AdoQuery1.RecordCount > 0 Then
      ShowMessage('Bu n.lu kayıt daha önce girilmiş' + #13#10 + ' lütfen işlem noyu değiştiriniz.');

[calvan]

parametre kullanman lazım, zannedersem aşağıdaki kod işini görür


IslemNo := CariNakitIslemlerFrm.AdoDataSet1ISLEMNO.Value;
AdoQuery1.Close;
AdoQuery1.Sql.Clear;
AdoQuery1.Sql.Add('Select * From NakitIslemler');
AdoQuery1.Sql.Add('Where IslemNo = :IslemNo');
AdoQuery1.Parameters[0].Value := IslemNo
AdoQuery1.Open;

[freeman35]

IslemNo := CariNakitIslemlerFrm.AdoDataSet1ISLEMNO.Value;

Value size değerin tipini verir yani TField stringse string integer sa intiger
ama
AdoQuery1.Parameters[0].Value := IslemNo
burdaki value variant tır yani tipi belli olmayan değer. bu atama yapılınca delphi sırayla tüm bildiği veri tiplerine göre tarama yapıyor, MArcu contu amcam bu işleminse 12 kat yavaşlık verdiğini ve bu yüzden variantlara atamak yerine asinteger asstring gibi gerçek tiplerine atama yapın
kolay gele

[husonet]

Arkadaşlar yardımlarınız için çok teşekkür ederim. Problemimi çözdüm sevgili arkadaşım Freeman sizinde tafsiyelerinize uyacağım uyarınız için ayrıca teşekkür ederim.

[husonet]

Merhaba

Arkadaslar tafsiyenize uymaya çalışıyorum. Kodlarımda düzenleme yapıyorum
AdoQuery1.Parameters[0].Value := IslemNo ;
bu kodu şu şekilde değiştiriyorum ve çalışan kodu çalıştıramıyorum.
AdoQuery1.Parameters[0].AsInteger := IslemNo;
Sizce problem nedir.

[mussimsek]

Merhaba,

hocam ben daha önce ADO kullandım. Bana en uygunu :

Query1.Parameters.ParamByName('PAR').Value := ...

şeklinde kullanmak gelmişti. Yanlış hatırlamıyorsam zaten ADO'da sadece Value şeklinde kullanabiliyoruz.

Kolay gelsin.