Delphi Can
JSON Verilerini Veritabanına Kaydetmek - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: JSON Verilerini Veritabanına Kaydetmek (/showthread.php?tid=7487)

JSON Verilerini Veritabanına Kaydetmek - kajmerantime - 02-11-2023

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:
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;


Cvp: JSON Verilerini Veritabanına Kaydetmek - hi_selamlar - 02-11-2023

(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:
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.

Cvp: JSON Verilerini Veritabanına Kaydetmek - ahmet6513 - 02-11-2023

(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:
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

Cvp: JSON Verilerini Veritabanına Kaydetmek - RAD Coder - 02-11-2023

[attachment=2460]

Bilmem anlatabildim mi?  Cool

Cvp: JSON Verilerini Veritabanına Kaydetmek - hi_selamlar - 02-11-2023

(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:
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.

Cvp: JSON Verilerini Veritabanına Kaydetmek - RAD Coder - 02-11-2023

Şöyle de olabilir.
{
   "secili": ["KUMAŞ", "İPLİK"]
}
Yada
["KUMAŞ", "İPLİK"]


Cvp: JSON Verilerini Veritabanına Kaydetmek - kajmerantime - 03-11-2023

(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:
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:
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.