Delphi Can › Delphi › Genel Programlama v
JSON Verilerini Veritabanına Kaydetmek
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Gösterim Stili
JSON Verilerini Veritabanına Kaydetmek
kajmerantime Çevrimdışı
Başlangıç Düzeyi
*
Başlangıç
Yorumları: 61
Konuları: 13
Kayıt Tarihi: 29-09-2023
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 12
  • Delphi 11


Rep Puanı: 118
Başlangıç
#1
02-11-2023, Saat: 10:12
Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden  Shy
Kod: (Select All)
procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;
Cevapla
hi_selamlar Çevrimdışı
Moderatör
********
Moderatör Grubu
Yorumları: 852
Konuları: 40
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
  • Lazarus / FPC


Rep Puanı: 4.327
Uzman
#2
02-11-2023, Saat: 11:11
(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden  Shy
Kod: (Select All)
procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;

Merhabalar,

Hangi veri tabanı kullandığınızı bilmiyorum ama, MySQL 8 ile birlikte JSON desteği mevcut.
https://dev.mysql.com/doc/refman/8.0/en/json.html

Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
ahmet6513 Çevrimdışı
Başlangıç Düzeyi
*
Başlangıç
Yorumları: 89
Konuları: 7
Kayıt Tarihi: 08-01-2019
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 11


Rep Puanı: 253
Acemi
#3
02-11-2023, Saat: 13:23 (Son Düzenleme: 02-11-2023, Saat: 13:24, Düzenleyen: ahmet6513.)
(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden  Shy
Kod: (Select All)
procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;


daha detaylısı vardır belki ama ilk aklıma gelen replace :Smile

 
Memo.lines.text  := StringReplace(Memo.lines.text,':true',[RfReplaceALL]);

Memo.Lines.Text := StringReplace(Memo.Lines.Text,':false',[RfReplaceALL]);

gibisinden çoğaltabilirsin
Cevapla
RAD Coder Çevrimdışı
1 ❤ 0
****
Uzman
Yorumları: 1.031
Konuları: 31
Kayıt Tarihi: 22-07-2016
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 13
  • Delphi 12
  • Delphi 11
  • Delphi 10 Serisi


Rep Puanı: 5.260
Üstad
#4
02-11-2023, Saat: 15:24
   

Bilmem anlatabildim mi?  Cool
Begin : = end / 2;
Cevapla
hi_selamlar Çevrimdışı
Moderatör
********
Moderatör Grubu
Yorumları: 852
Konuları: 40
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
  • Lazarus / FPC


Rep Puanı: 4.327
Uzman
#5
02-11-2023, Saat: 17:26
(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden  Shy
Kod: (Select All)
procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;

Merhabalar,

Gibi bir yapı ile...

{
  "malzemeler": [
   
      {
        "malzeme_adi": "KUMAŞ",
        "durum": 0
      },
      {
        "malzeme_adi": "İPLİK",
        "durum": 0
      }
  
  ]
}

Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
RAD Coder Çevrimdışı
1 ❤ 0
****
Uzman
Yorumları: 1.031
Konuları: 31
Kayıt Tarihi: 22-07-2016
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 13
  • Delphi 12
  • Delphi 11
  • Delphi 10 Serisi


Rep Puanı: 5.260
Üstad
#6
02-11-2023, Saat: 17:58 (Son Düzenleme: 02-11-2023, Saat: 18:00, Düzenleyen: RAD Coder.)
Şöyle de olabilir.
{
   "secili": ["KUMAŞ", "İPLİK"]
}
Yada
["KUMAŞ", "İPLİK"]
Begin : = end / 2;
Cevapla
kajmerantime Çevrimdışı
Başlangıç Düzeyi
*
Başlangıç
Yorumları: 61
Konuları: 13
Kayıt Tarihi: 29-09-2023
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 12
  • Delphi 11


Rep Puanı: 118
Başlangıç
#7
03-11-2023, Saat: 15:05 (Son Düzenleme: 03-11-2023, Saat: 15:07, Düzenleyen: kajmerantime.)
(02-11-2023, Saat: 17:26)hi_selamlar Adlı Kullanıcıdan Alıntı:
(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden  Shy
Kod: (Select All)
procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;

Merhabalar,

Gibi bir yapı ile...

{
  "malzemeler": [
   
      {
        "malzeme_adi": "KUMAŞ",
        "durum": 0
      },
      {
        "malzeme_adi": "İPLİK",
        "durum": 0
      }
  
  ]
}

Kolay gelsin.



Kod: (Select All)
procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonArray: TJsonArray;
 i: Integer;
 JsonStr: string;
 JsonKeys: TStringList;
begin
 JsonObject := TJSONObject.Create;
 JsonKeys := TStringlist.Create;
 JsonArray := TJsonArray.Create;

 try
   for i := 0 to clbTurler.Items.Count - 1 do
     begin
       if clbTurler.Items[i].Checked then
         begin
           JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
           JsonArray.Add(clbTurler.Items[i].Text);

           JsonKeys.Add(clbTurler.Items[i].Text);
         end;
   end;

   JsonStr := JsonArray.ToString;
   Memo.Lines.Text := JsonStr;

   // JSON veriyi doğrudan UnicodeString'e dönüştür
   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;
İlgilenen arkadaşlar için şu şekilde yaptım.

Örnek veritabanı kayıtı şu şekilde: ["KUMAŞ","İPLİK"]

Tekrardan teşekkürlerrr.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Rest.JSON array serilize hk yhackup 11 1.971 28-11-2024, Saat: 12:35
Son Yorum: delphi.developer
  Json Data Binding ile oluşturulan json içine Array ekleme aegean 4 1.612 17-05-2024, Saat: 12:36
Son Yorum: Tuğrul HELVACI
  JSON DataSet Serialize for Unidac Halil Han BADEM 2 1.475 08-11-2023, Saat: 16:53
Son Yorum: Halil Han BADEM
  JSon Format m_ekici 7 2.098 02-10-2023, Saat: 09:24
Son Yorum: yhackup
  RESTRequest Nesnesinde Body içinde JSON Gönderme Hk. pro_imaj 2 1.469 04-06-2023, Saat: 00:47
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi