insert ile Null Değer Gönderme

Firebird ve Interbase veritabanları ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
akuyumcu63
Üye
Mesajlar: 386
Kayıt: 02 Tem 2007 09:43

insert ile Null Değer Gönderme

Mesaj gönderen akuyumcu63 »

merhaba

Kod: Tümünü seç

  with frmDmDac.QryInsertingLarge do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO TBLFATURA (CARIID,FATKOD,TARIH,SAAT,FIRMAADI) VALUES');
      SQL.Add('(:param0,:param1,:param2,:param3,:param4)  RETURNING ID');
      if chkCariyeAktar.Checked = True then ParamByName('param0').AsLargeInt := StrToInt64Def(Trim(EditCariID.Text),0);
      if chkCariyeAktar.Checked = False then ParamByName('param0').Clear();
      ParamByName('param1').Value := Trim(txtFaturaKodu.Text);
      if txtIslemTarihi.EditValue <> Null Then ParamByName('param2').AsDate    := txtIslemTarihi.EditValue;
      if Trim(txtIslemSaati.Text) <> '00:00' Then ParamByName('param3').AsTime := txtIslemSaati.EditValue;
      ParamByName('param4').Value := Trim(txtFirmaAdi.Text);
      Open;
    end;
CARIID alanı BIGINT olarak tanımlı duruma göre bu alana null deger göndermek istiyorum. çok şey denedim bir türlü olmadı.

Kod: Tümünü seç

ParamByName('param0').Asstring :='';
yada

Kod: Tümünü seç

ParamByName('param0').AsLargeInt  := 0;

bu şekillerdede kullandım. her defasında aldığım hata mesajı
SQL error code =-303
conversiyon error from string "".

firebird 2.5.2 ve component olarak FDQuery kullanıyorum.
İsteyen, yapabildiğinden daha fazlasını yapar.
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: insert ile Null Değer Gönderme

Mesaj gönderen freeman35 »

if chkCariyeAktar.Checked
then ParamByName('param0').AsLargeInt := StrToInt64Def(Trim(EditCariID.Text),0);
else ParamByName('param0').Value := Null; // Value nun tipi variant tır. Tipini bildiğin değişkenleri, o tip ile kullan, yani aşağıdaki gibi "Value" ya string atama gibi
.......
ParamByName('param1').AsString := Trim(txtFaturaKodu.Text);
Kolay gele
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
akuyumcu63
Üye
Mesajlar: 386
Kayıt: 02 Tem 2007 09:43

Re: insert ile Null Değer Gönderme

Mesaj gönderen akuyumcu63 »

sonunda çözüldü. bu sorun beni çok yormuştu. teşekkür ederim.
İsteyen, yapabildiğinden daha fazlasını yapar.
Cevapla