Sayfayı Yazdır | Pencereyi Kapat

sqlite update

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=828
Tarih: 21 Ocak 2025 Saat 12:40
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: sqlite update
Mesajı Yazan: rabiagnbs
Konu: sqlite update
Mesaj Tarihi: 07 Ağustos 2024 Saat 11:22
Burada veri güncelleme işlemi başarılı demesine rağmen verileri tekrar uygulamada görüntülemek istediğimde eski bilgiler gözüküyor ne yapmalıyım : 

Var 
 muzeDegistir: TclStyleForm;
 muzeIsimDegistir, muzeTuruDegistir, muzeUcretDegistir,muzeYorumDegistir: TclProEdit; 
 muzeDegistirLabel1, muzeDegistirLabel2: TclProLabel;
 muzeDegistirPanel1: TclProPanel;
 muzeDegisiklikKaydet: TclProButton;
 
 
 void UpdateMuzeData;
{
  try
    Clomosy.DBSQLiteQuery.SQL.Text = 'UPDATE Museums SET muze_turu = ' +QuotedStr(muzeTuruDegistir.Text)+  'AND muze_ucret=' +QuotedStr(muzeUcretDegistir.Text)+ 
    'AND muze_yorum=' +QuotedStr(muzeYorumDegistir.Text)+' WHERE muze_isim = ' +QuotedStr(muzeIsimDegistir);
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Müze Bilgileri güncelleme başarılı!');
  except
    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  } 
}

 
 
 
{
  muzeDegistir=TclStyleForm.Create(Self);
  muzeDegistir.SetFormBGImage(' https://i.pinimg.com/originals/d8/ea/25/d8ea252948af6d69b709d5b533dfec5d.jpg" rel="nofollow - https://i.pinimg.com/originals/d8/ea/25/d8ea252948af6d69b709d5b533dfec5d.jpg ');
  
  muzeDegistirPanel1=muzeDegistir.AddNewProPanel(muzeDegistir,'muzeDegistirPanel1');
  clComponent.SetupComponent(muzeDegistirPanel1,
  '{
  "Align": "alCenter",
  "Width" :500, 
  "Height":500,
  "RoundHeight":20,
  "RoundWidth":20,
  "BackGroundColor":"null"
  }');
  
  muzeDegistirLabel1=muzeDegistir.AddNewProLabel(muzeDegistirPanel1,'muzeDegistirLabel1','Bilgilerini Değiştirmek istediğiniz' + #13#10 +'müzenin ismini giriniz:');
  clComponent.SetupComponent(muzeDegistirLabel1,'{
  "MarginBottom": 800,
  "Width": 600,
  "Height": 100,
  "TextColor":"#8e1414",
  "TextSize":18,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BackGroundColor":"null"
   }');
  
  muzeIsimDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeIsimDegistir', 'Müze İsim:');
  clComponent.SetupComponent(muzeIsimDegistir,'{
  "MarginBottom": 600,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  
  muzeDegistirLabel2=muzeDegistir.AddNewProLabel(muzeDegistirPanel1,'muzeDegistirLabel2',' Bilgileri Güncelleyiniz ✍ ');
  clComponent.SetupComponent(muzeDegistirLabel2,'{
  "MarginBottom": 450,
  "Width": 600,
  "Height": 100,
  "TextColor":"#8e1414",
  "TextSize":18,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BackGroundColor":"null"
   }');
  
  muzeTuruDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeTuruDegistir', 'Müze Türü:');
  clComponent.SetupComponent(muzeTuruDegistir,'{
  "MarginBottom": 400,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  
  muzeUcretDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeUcretDegistir', 'Müze Giriş Ücreti:');
  clComponent.SetupComponent(muzeUcretDegistir,'{
  "MarginBottom": 300,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  
  muzeYorumDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeYorumDegistir', 'Müze Yorumu:');
  clComponent.SetupComponent(muzeYorumDegistir,'{
  "MarginBottom": 200,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  
  muzeDegisiklikKaydet=muzeDegistir.AddNewProButton(muzeDegistirPanel1, 'muzeDegisiklikKaydet', ' Güncellemeleri Kaydet');
   clComponent.SetupComponent(muzeDegisiklikKaydet,'{
   "MarginTop":700,
   "TextColor":"#fae6fc",
   "TextWidth":50,
   "TextHeight":10,
   "TextSize":15,
   "Width" :230, 
   "Height":50,
   "RoundHeight":10,
   "RoundWidth":10,
   "BorderWidth":2,
   "TextBold":"yes",
   "BackGroundColor":"#e2c1c8"
    }');
    
  muzeDegistir.AddNewEvent(muzeDegisiklikKaydet,tbeOnClick,'UpdateMuzeData');
  
  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');
   
  muzeDegistir.Run;
}


-------------
RabiaGnbs


Cevaplar:
Mesajı Yazan: Developer
Mesaj Tarihi: 07 Ağustos 2024 Saat 13:20
Merhaba Rabia,
void UpdateMuzeData;
{
  try
    Clomosy.DBSQLiteQuery.SQL.Text = 'UPDATE Museums SET muze_turu = ' +QuotedStr(muzeTuruDegistir.Text)+  'AND muze_ucret=' +QuotedStr(muzeUcretDegistir.Text)+ 
    'AND muze_yorum=' +QuotedStr(muzeYorumDegistir.Text)+' WHERE muze_isim = ' +QuotedStr(muzeIsimDegistir);
    ShowMessage(Clomosy.DBSQLiteQuery.SQL.Text);
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Müze Bilgileri güncelleme başarılı!');
  except
    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  } 
}
ShowMessage(Clomosy.DBSQLiteQuery.SQL.Text);  ile gelen text bir kontrol eder misin? Muhtemelen update cümlen bir hata vardır.

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 07 Ağustos 2024 Saat 13:37
UPDATE Museums SET muze_turu 'Türbe' AND muze_ucret='200' AND muze_yorum='Çok güzel'WHERE müze_isim='5413527040' yazdırıyor show message'de

-------------
RabiaGnbs

Mesajı Yazan: Developer
Mesaj Tarihi: 07 Ağustos 2024 Saat 13:57
Merhaba Rabia,
where koşulunda yer alan 5413527040 böyle bir müze ismi yoksa güncelleme yapamaz. 
QuotedStr(muzeIsimDegistir)  gelen veriyi kontrol eder misin?

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 07 Ağustos 2024 Saat 14:31
ben öyle bir isim girmedim string şeklinde müze ismi girdim ama bu şekilde sayı olarak gösteriyor 

-------------
RabiaGnbs

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 07 Ağustos 2024 Saat 14:32
Ve veri tabanında olan bir isim girdim



-------------
RabiaGnbs

Mesajı Yazan: Developer
Mesaj Tarihi: 07 Ağustos 2024 Saat 14:46
Merhaba Rabia 
Kodunu paylaşır mısın?

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 07 Ağustos 2024 Saat 15:10
Var 
 muzeDegistir: TclStyleForm;
 muzeIsimDegistir, muzeTuruDegistir, muzeUcretDegistir,muzeYorumDegistir: TclProEdit; 
 muzeDegistirLabel1, muzeDegistirLabel2: TclProLabel;
 muzeDegistirPanel1: TclProPanel;
 muzeDegisiklikKaydet: TclProButton;
 
 
void UpdateMuzeData;
{
  try
    Clomosy.DBSQLiteQuery.SQL.Text = 'UPDATE Museums SET muze_turu = ' +QuotedStr(muzeTuruDegistir.Text)+  'AND muze_ucret=' +QuotedStr(muzeUcretDegistir.Text)+ 
    'AND muze_yorum=' +QuotedStr(muzeYorumDegistir.Text)+' WHERE muze_isim = ' +QuotedStr(muzeIsimDegistir);
    ShowMessage(Clomosy.DBSQLiteQuery.SQL.Text);
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Müze Bilgileri güncelleme başarılı!');
  except
    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  } 
}


 
{
  muzeDegistir=TclStyleForm.Create(Self);
  muzeDegistir.SetFormBGImage(' https://i.pinimg.com/originals/d8/ea/25/d8ea252948af6d69b709d5b533dfec5d.jpg" rel="nofollow - https://i.pinimg.com/originals/d8/ea/25/d8ea252948af6d69b709d5b533dfec5d.jpg ');
  
  muzeDegistirPanel1=muzeDegistir.AddNewProPanel(muzeDegistir,'muzeDegistirPanel1');
  clComponent.SetupComponent(muzeDegistirPanel1,
  '{
  "Align": "alCenter",
  "Width" :500, 
  "Height":500,
  "RoundHeight":20,
  "RoundWidth":20,
  "BackGroundColor":"null"
  }');
  
  muzeDegistirLabel1=muzeDegistir.AddNewProLabel(muzeDegistirPanel1,'muzeDegistirLabel1','Bilgilerini Değiştirmek istediğiniz' + #13#10 +'müzenin ismini giriniz:');
  clComponent.SetupComponent(muzeDegistirLabel1,'{
  "MarginBottom": 800,
  "Width": 600,
  "Height": 100,
  "TextColor":"#8e1414",
  "TextSize":18,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BackGroundColor":"null"
   }');
  
  muzeIsimDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeIsimDegistir', 'Müze İsim:');
  clComponent.SetupComponent(muzeIsimDegistir,'{
  "MarginBottom": 600,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  
  muzeDegistirLabel2=muzeDegistir.AddNewProLabel(muzeDegistirPanel1,'muzeDegistirLabel2',' Bilgileri Güncelleyiniz ✍ ');
  clComponent.SetupComponent(muzeDegistirLabel2,'{
  "MarginBottom": 450,
  "Width": 600,
  "Height": 100,
  "TextColor":"#8e1414",
  "TextSize":18,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BackGroundColor":"null"
   }');
  
  muzeTuruDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeTuruDegistir', 'Müze Türü:');
  clComponent.SetupComponent(muzeTuruDegistir,'{
  "MarginBottom": 400,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  
  muzeUcretDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeUcretDegistir', 'Müze Giriş Ücreti:');
  clComponent.SetupComponent(muzeUcretDegistir,'{
  "MarginBottom": 300,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  muzeUcretDegistir.clTypeOfField = taFloat;
  
  muzeYorumDegistir=muzeDegistir.AddNewProEdit(muzeDegistirPanel1, 'muzeYorumDegistir', 'Müze Yorumu:');
  clComponent.SetupComponent(muzeYorumDegistir,'{
  "MarginBottom": 200,
  "Width" :400, 
  "Height":40,
  "TextColor":"#12366b",
  "TextSize":20,
  "TextVerticalAlign":"center",
  "TextHorizontalAlign":"center",
  "TextBold":"yes",
  "BorderColor":"#ffffff",
  "RoundHeight":20,
  "RoundWidth":20,
  "BorderWidth":1,
  "BackGroundColor":"#f8f8f8"
  }');
  
  muzeDegisiklikKaydet=muzeDegistir.AddNewProButton(muzeDegistirPanel1, 'muzeDegisiklikKaydet', ' Güncellemeleri Kaydet');
   clComponent.SetupComponent(muzeDegisiklikKaydet,'{
   "MarginTop":700,
   "TextColor":"#fae6fc",
   "TextWidth":50,
   "TextHeight":10,
   "TextSize":15,
   "Width" :230, 
   "Height":50,
   "RoundHeight":10,
   "RoundWidth":10,
   "BorderWidth":2,
   "TextBold":"yes",
   "BackGroundColor":"#e2c1c8"
    }');
    
  muzeDegistir.AddNewEvent(muzeDegisiklikKaydet,tbeOnClick,'UpdateMuzeData');
  
  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');
   
  muzeDegistir.Run;
}


-------------
RabiaGnbs

Mesajı Yazan: Developer
Mesaj Tarihi: 03 Eylül 2024 Saat 15:32
Merhaba Rabia,
Hatan devam ediyor mu?


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net