kayıt işlemi integer alanı boş geçersem?

[selm@n]

Selamun Aleykum arkadaşlar;
daha önce form da sorulmuş ama ben ginede yapamadım.
adet ve birimfiyat'ı diye alanlarım var bunlar integer alanlar
boş olarak kayıt ettiğimde hata veriyor nasıl 0 değeri atıya bilirim veya
boş olarak kayıt ederim.
Veritabanım MSAccess
ADO kullanıyorum
edit7 --> adet alanı
edit8 --> birimfiyat alanı

Kod: Tümünü seç

with dm.QSiparisAl do begin
Close;
Sql.Text:='insert into siparisal (musno, siparisno, urunadi, adet, birimfiyat, sipaltarih, siptestarih, sipverper, sipalper) Values ('''
+edit1.Text+''','''
+edit5.Text+''','''
+edit6.Text+''','''
+edit7.Text+''','''
+edit8.Text+''','''
+edit9.Text+''','''
+edit10.Text+''','''
+edit11.Text+''','''
+edit12.Text+''')';
ExecSQL;

[hakkus]

Merhabalar,
Tablo nu oluştururken default 0 atayabilirsiniz.

Kod: Tümünü seç

BIR_FIY   DOUBLE PRECISION DEFAULT 0,
ADET    DOUBLE PRECISION DEFAULT 0,

[selm@n]

Merhaba ;

MSAccess'ta adet ve birimfiyat alanlarımın varsayılan değerleri 0
alan boyutu yazan yer ise Uzun Tamsayı diye geçiyor
kod'um da bi yanlışlık var mı...

[naile]

İnteger olan değerler için tek tırnak koymalısın

Kod: Tümünü seç

values ('+edit1.text+')  

gibi..

Veya param kullanabilirsin

Kod: Tümünü seç

query1.Close;
query1.SQL.Clear;
query1.SQL.ADD('INSERT INTO TABLO VALUES (:ADET,:BIRIMFIYAT)');
PARAMBYNAME('ADET').ASINTEGER := strtoint(edit1.text);
PARAMBYNAME('BIRIMFIYAT').ASINTEGER := strtoint(edit2.text);

editler boş olursa null atar.

[selm@n]

peki Null yerine nasıl 0 Atarım .

Kod: Tümünü seç

+edit6.Text+''','
buraya strtoint (+edit7.Text+','''

yazdım olmadı nasıl yapa bilirim

[naile]

editleri önce kontrol edip içlerine 0 yazdırabilirsin. Yani exec işleminden önce

Kod: Tümünü seç

if edit6.text = '' then
  edit6.text := '0';
if edit7.text = '' then
  edit7.text := '0';

Kod: Tümünü seç

strtoint ('+edit7.Text+')

[salvation]

peki Null yerine nasıl 0 Atarım .

Kod: Tümünü seç

+edit6.Text+''','
buraya strtoint (+edit7.Text+','''

yazdım olmadı nasıl yapa bilirim

Şöyle yapabilirsin:

Kod: Tümünü seç

Var
  test:variant;
Begin
  test := edit7.text;
  if VarIsNull(test) then // test değişkeninin içeriği NULL ise
  begin
    test := 0;
    edit7.text := 0 //istersen
  end;
End;

[selm@n]

Cevap veren tüm arkadaşlara teşekkür ediyorum
sorunumu sizin sayenizde çözdüm..
hepnize iyi çalışmalar;