interbase bilgi güncelleme

[proteknikblg]

selemun aleyküm
uzun zamandır delphi kullanıyorum ancak interbase e yeni başladım. interbase hakkında çok fazla bilgim yok hem öğrenmek hemde iş yerimde ihtiyacım olan bir programı interbase veri tabanı ile hazırlamak istedim. program genel şekliyle yavaş yavaş ortaya çıkmaya başladı kullandığım makine ile bilgi girişinde sorun yok ancak farklı bir makineden denediğimde veya aynı makinede ikinci kez başlattığım programımda bilgilerin güncellenmediğini farkettim. ayrı ayrı açtığım iki programdanda aynı table e bilgi girebiliyorum ancak birinin girdiğini diğeri görmüyor ancak programı kapatıp tekrar açarsam görüyor. bilgiler dosyaya hemen aktarılmıyordur diye düşündüm ancak database tour isimli programla baktığımda bilgiler dosyaya hemen kaydediliyor yani programdan çıkmadan bilgilerin dosyaya yazıldığını gördüm. ancak bir türlü programlar yapılan kayıtları güncel olarak alamıyor bu konuda bana bilgi verirseniz sevinirim. aşağıda kullandığım kodu yazıyorum. saygılarımla

form1.ibquery2.Close;
form1.ibquery2.SQL.Clear;
form1.ibquery2.SQL.add('insert into MLZHAREKET values (' + syc + ','+inttostr(form1.ibquery1.fieldbyname('KNO').Value)+','+trnk(deger)+','+trnk(form1.label2.caption)+','+trnk(datetostr(date))+')');
form1.ibquery2.ExecSQL;
hareketlst;

burada trnk fonksiyonu girilen değer içinde sql komut yapısını etkileyecek karakterleri ve tırnak yapısını denetliyor
hareketlst ise aşağıda
procedure hareketlst;
begin
with form5 do
begin
if form1.IBQuery1.RecordCount=0 then
begin
form1.ibquery2.Close;
form1.ibquery3.Close;
end
else
begin
form1.ibquery2.Close;
form1.ibquery2.SQL.Clear;
form1.ibquery2.SQL.Add('select TRH,ACIKLAMA,KULANICI,URKOD from MLZHAREKET where URKOD='+inttostr(form1.ibquery1.fieldbyname('KNO').Value));
form1.ibquery2.Open;
DBGrid1.Columns[0].width:=60;
DBGrid1.Columns[1].width:=300;
DBGrid1.Columns[2].width:=94;
DBGrid1.Columns[3].width:=1;
label24.Caption:=floattostr(form1.ibquery1.fieldbyname('TOPLAM').Value-form1.ibquery1.fieldbyname('INDIRIM').Value);
form1.ibquery3.Close;
form1.ibquery3.SQL.Clear;
form1.ibquery3.SQL.Add('select PERSONEL,ACIKLAMA,RAKAM,MLZ from UCRHRK where MLZ='+inttostr(form1.ibquery1.fieldbyname('KNO').Value));
form1.ibquery3.Open;
DBGrid3.Columns[0].width:=105;
DBGrid3.Columns[1].width:=300;
DBGrid3.Columns[2].width:=50;
DBGrid3.Columns[3].width:=1;
label20.caption:=form1.ibquery1.fieldbyname('SIKAYET').Value;
label21.caption:=form1.ibquery1.fieldbyname('AKSESUAR').Value;
form1.ibquery4.Close;
form1.ibquery4.SQL.Clear;
form1.ibquery4.SQL.Add('select * from CARI where KNO='+inttostr(form1.ibquery1.fieldbyname('CARI').Value));
form1.ibquery4.Open;
if form1.IBQuery4.RecordCount>0 then
begin
label14.Caption:=form1.ibquery4.fieldbyname('ADI').Value;
label15.Caption:=form1.ibquery4.fieldbyname('SOYADI').Value;
label16.Caption:=form1.ibquery4.fieldbyname('TELEFON1').Value;
label17.Caption:=form1.ibquery4.fieldbyname('TELEFON2').Value;
label18.Caption:=form1.ibquery4.fieldbyname('EMAIL').Value;
label19.Caption:=floattostr(form1.ibquery4.fieldbyname('BAKIYE').Value);
end;
DBGrid2.Columns[0].width:=45;
DBGrid2.Columns[1].width:=1;
DBGrid2.Columns[2].width:=1;
DBGrid2.Columns[3].width:=150;
DBGrid2.Columns[4].width:=105;
DBGrid2.Columns[5].width:=1;
DBGrid2.Columns[6].width:=1;
DBGrid2.Columns[7].width:=1;
DBGrid2.Columns[8].width:=1;
DBGrid2.Columns[9].width:=1;
DBGrid2.Columns[10].width:=136;
DBGrid2.Columns[11].width:=1;
DBGrid2.Columns[12].width:=1;
DBGrid2.Columns[13].width:=1;
DBGrid2.Columns[14].width:=1;
DBGrid2.Columns[15].width:=1;
DBGrid2.Columns[16].width:=1;
DBGrid2.Columns[17].width:=1;
end;
end;
end;

[aslangeri]

s.a.
öncelikle aramıza hoşgeldin.
kodlarını code tagı içerisine alırsan okuması kolay olur. arkadaşlar daha kolay kodları inceleyebilir.(mesala ben şimdi kodlara hiç bakmadım) bu bir.
ikincisi ise sormuş olduğunuz bu soru forumda daha önceleri çok konuşuldu.
size önerim
transaction ve events
konularında biraz araştırma yapmanız.
kolay gelsin.

[proteknikblg]

konu ile ilgili bi araştırma yapayım bana kaynak verebilirseniz sevinirim

[aslangeri]

kaynak= forum

[proteknikblg]

gösterdiğin kaynak hakkaten işime yaradı sorunumu çözdüm teşekkür ederim.

[aslangeri]

gösterdiğin kaynak hakkaten işime yaradı sorunumu çözdüm teşekkür ederim.