Adoquery ile birden fazla tabloya kayıt işlemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
memoli79
Üye
Mesajlar: 29
Kayıt: 05 Nis 2007 01:29

Adoquery ile birden fazla tabloya kayıt işlemi

Mesaj gönderen memoli79 »

Herkese kolay gelsin.
Benim sorum şöyle;
Database access dir.

4 ayrı tablom var.bu tabloların hepsinde HastaId alanları var.

form üzerinde dbeditler kullandım.

Adoquery ile bağlantıları yaptım dbedit bağlantıları da tamam.

Alanlara bilgileri girip kaydet dediğimde hatayla karşılaşıyorum.
Hata ise şudur.

detay tablemin edit yda insert modda olmadığını söylüyor.

Yardımcı olursanız çok sevinirim.

Kod aşağıdaki gibidir.

Kod: Tümünü seç

if fdm.AdoQhastatbl.State in [dsInsert,dsEdit] then fdm.AdoQhastatbl.Post;
if fdm.AdoQdetaytbl.State in [dsInsert,dsEdit] then fdm.AdoQdetaytbl.Post;
if fdm.AdoQozgecmistbl.State in [dsInsert,dsEdit] then fdm.AdoQozgecmistbl.Post;
if fdm.AdoQfonksiyoneltbl.State in [dsInsert,dsEdit] then fdm.AdoQfonksiyoneltbl.Post;

if fdm.AdoQdetaytblHastaId.AsString='' then fdm.AdoQdetaytblHastaId.AsString:=fdm.AdoQhastatblHastaId.AsString;
if fdm.AdoQozgecmistblHastaId.AsString='' then fdm.AdoQozgecmistblHastaId.AsString:=fdm.AdoQhastatblHastaId.AsString;
if fdm.AdoQfonksiyoneltblHastaId.AsString='' then fdm.AdoQfonksiyoneltblHastaId.AsString:=fdm.AdoQhastatblHastaId.AsString;
Kullanıcı avatarı
Battosai
Üye
Mesajlar: 1316
Kayıt: 01 Eki 2007 12:02
Konum: Ankara

Mesaj gönderen Battosai »

Kod: Tümünü seç


if fdm.AdoQdetaytblHastaId.AsString='' then fdm.AdoQdetaytblHastaId.AsString:=fdm.AdoQhastatblHastaId.AsString;

if fdm.AdoQhastatbl.State in [dsInsert,dsEdit] then fdm.AdoQhastatbl.Post;
memoli79
Üye
Mesajlar: 29
Kayıt: 05 Nis 2007 01:29

Mesaj gönderen memoli79 »

Çok teşekkür ederim.

emeğine sağlık
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Mesaj gönderen ikutluay »

memoli79 yazdı:Çok teşekkür ederim.

emeğine sağlık
Kodları arkadaşında belirttiği gibi kontrollü yazmanız ilerdede sizin için faydalı olacaktır..
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Cevapla