insert ve update komutu

[Ahmet ALTUNTAŞ]

begin
qry.close;
qry.Parameters.ParamByName('p1').Value:=Edit1.Text;
qry.Parameters.ParamByName('p2').Value:=DBEdit1.Text;
qry.Open;
try
if not qryControl.Parameters.ParamByName('t1').Value = 1 then
if not qryControl.Parameters.ParamByName('t2').Value= datetostr(Bugun) then
qrycontrol.Open;
begin
QryControl.Open;
qryPost.Close;
qryPost.SQL.Clear;
qryPost.SQL.Text:='insert into Tbl_Hareket (GirisSaat,Adi,Soyadi,KartNo,Departman,Bolum,Giris,Cikis,GirisTarih) VALUES ('
+#39 +edit2.text +#39+ ','+#39 +dbedit1.text +#39+ ','+#39 +dbedit2.text +#39+ ','
+#39 +dbedit3.text +#39+ ','+#39 +dbedit4.text +#39+ ','+#39 +dbedit5.text +#39+ ','+ inttostr(1) + ','+ inttostr(0) + ','+#39 +edit4.text +#39+ ')';
qryPost.ExecSQL;
end;
if QryControl.Parameters.ParamByName('t1').Value = 1 then
if qryControl.Parameters.ParamByName('t2').Value= datetostr(Bugun) then
QryControl.Open;
begin
QryPost.close;
QryPost.SQL.Clear;
QryPost.SQL.text:= 'update Tbl_Hareket Set Cikis='+
#39 + inttostr(1) +#39+ 'where GirisTarih=' + #39+ DateToStr(Bugun) + #39;
QryPost.ExecSQL;


merhaba arkadaşar
1 tablom var
tablodaki giriş alanı ilk seferde boş.boş oldugu için ilk query insert olacak ve giriş kısmındaki deger 1 olacak ve aynı zamanda çıkış kısmındaki degerde 0 olacak.
ama eger giris kısmındaki deger 1 se bu sefer insert yapmıycak ve cikisdaki 0 degerini 1 yapacak.Bu şekilde yaptıgımda hem update hem ınserrt yapıyor.

[mkysoft]

parameters dan değerler okunmaz, fieldsbyname('sütunadı') şeklinde verilere erişmeniz gerekir.

[Ahmet ALTUNTAŞ]

Cevap için teşekkür ederim kardeşim.
Pazartesi deniycem.sonucu paylaşırm.

[conari]

forum kuralları, KOD TAGI