Genel İşlemler - SQL de anlık veri

SQL de anlık veri

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=562
Tarih: 07 Ocak 2025 Saat 23:02
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: SQL de anlık veri

Mesajı Yazan: Zeren
Konu: SQL de anlık veri
Mesaj Tarihi: 15 Ağustos 2023 Saat 13:30

Benim kendi kodumda herhangi bir ülkeye basıldığında Satın almak istiyor musun evet hayır seçenekleri geliyor eveti seçerse attığım kod devreye giriyor ve SQL de alınan ülkeye alan kişinin ismi düşüyor bu kısımda sıkıntı yok ancak hangi ülkeye basarsam basayım sadece İngiltere ülkesi alınıyor.Bu kodu her ülkenin procedüründe

LastSender:= MyForm.clSender;

MyForm.AddNewEvent(testButton,tbeOnClick,'AddDataToListview');

end;

kodu ile çağırdım ama neden sadece tek butonda çalıştığını anlayamadım.

procedure SetupSqlConnection;

begin

Clomosy.DBSQLServerConnect('SQL Server','192.168.2.64','sa','zeren93353','monopoly',50000);

end;

procedure AddDataToListview;

Var

foodListQuery : TClSqlQuery;

begin

foodListQuery := TClSqlQuery.Create(nil);

if (testRadio.isChecked) then

begin

try

ShowMessage(Clomosy.AppUserDisplayName);

foodListQuery.Connection := Clomosy.DBSQLServerConnection;

isim := btn1.caption;

isim := btn2.caption;

isim := btn3.caption;

isim := btn4.caption;

isim := btn5.caption;

isim := btn6.caption;

isim := btn8.caption;

isim := btn9.caption;

isim := btn11.caption;

isim := btn12.caption;

isim := btn14.caption;

isim := btn16.caption;

isim := btn18.caption;

// ShowMessage(isim);

foodListQuery.SQL.Text := 'update dbo.arsa set alan_kisi = '+quotedstr(Clomosy.AppUserDisplayName)+'

where isim = '+quotedstr(isim);

ShowMessage(foodListQuery.Sql.Text);

foodListQuery.ExecSql;

ShowMessage('Kayıt işlemi başarılı');

finally

foodListQuery.Close;

foodListQuery.Free;

end;

else begin

ShowMessage('Doğru giriniz');

end;

Cevaplar:

Mesajı Yazan: Alforce
Mesaj Tarihi: 15 Ağustos 2023 Saat 13:50

AddDataToListView metodunun sonuna yazmanız gerkemez mi?

Kodunuzu tam bilmediğim için net bir cevap veremeyeceğim.

Umarım işinize yarar.

procedure AddDataToListview;
Var
  foodListQuery : TClSqlQuery;
begin
  foodListQuery := TClSqlQuery.Create(nil);
  if (testRadio.isChecked) then 
  begin
  try
  ShowMessage(Clomosy.AppUserDisplayName);
     foodListQuery.Connection := Clomosy.DBSQLServerConnection;
     isim := btn1.caption;
     isim := btn2.caption;
     isim := btn3.caption;
     isim := btn4.caption;
     isim := btn5.caption;
     isim := btn6.caption;
     isim := btn8.caption;
     isim := btn9.caption;
     isim := btn11.caption;
     isim := btn12.caption;
     isim := btn14.caption;
     isim := btn16.caption;
     isim := btn18.caption;
     
    // ShowMessage(isim);
     foodListQuery.SQL.Text := 'update dbo.arsa set alan_kisi = '+quotedstr(Clomosy.AppUserDisplayName)+'
     where isim = '+quotedstr(isim);
     ShowMessage(foodListQuery.Sql.Text);   
     foodListQuery.ExecSql;
     ShowMessage('Kayıt işlemi başarılı');
     finally
     foodListQuery.Close;
     foodListQuery.Free;
     end;
  end;
  else begin
  ShowMessage('Doğru giriniz'); 
  end;
  
  LastSender:= MyForm.clSender;
end;