JSONArray in Insert-Statement

[Ykcim]

Hallo Zusammen,

ich habe die verschiedenen Vorschläge versucht umzusetzen und habe in diese Richtungen gelesen, was ich gefunden habe, aber bin irgendwie nicht zurande gekommen. Jetzt habe ich gerade noch einmal gesucht und ein Code gefunden, den ich umbauen konnte, mit dem es funktioniert...

Delphi-Quellcode:

type
  TRows = array of array of string;
  TCols = array of string;



procedure TForm1.AdvGlowButton1Click(Sender: TObject);
var   JS_Array: TJSONArray;
      JS_Value: TJSONValue;
      Insert_String, Value_String: string;
      I, J: integer;
      Rows: TRows;
      Cols: TCols;
begin
   SetLength(Cols, 6);
   SetLength(Rows, Length(Cols),0);
   Cols[0] := 'BNumber';
   Cols[1] := 'Print_Status';
   Cols[2] := 'Ship_Date';
   Cols[3] := 'Ship_Time';
   Cols[4] := 'TNumber';
   Cols[5] := 'VDienstL';
   JS_Array := TJSONArray.Create;
   try
      JS_Array := TJSONObject.ParseJSONValue(JS_ArrayString) as TJSONArray;
      I := 0;
      for JS_Value in JS_Array do begin
         SetLength(Rows, Length(Cols), Length(Rows[0])+1);
         for J := 0 to Length(Cols) -1 do begin
            Rows[J,I] := JS_Value.GetValue<string>(Cols[J]);
         end;
         INC(I);
      end;

      for I := 0 to Length(Rows[0]) -1 do begin
         if I=0 then begin
            Value_String := '';
         end
         else begin
            Value_String := Value_String + ', ';
         end;
         Value_String := Value_String+ '(';
         for J := 0 to Length(Cols) -1 do begin
            if J=0 then begin
               Value_String := Value_String + QuotedStr(Rows[J,I]);
            end
            else begin
               Value_String := Value_String + ', ' + QuotedStr(Rows[J,I]);
            end;
         end;
      end;
      Insert_String := 'INSERT INTO versand (bnumber, print_status, ship_date, ship_time, tnumber, vdienstl) '+
                       'VALUES '+Value_String;
   finally
      JS_Array.Free;
   end;

Vielen Dank für die Unterstützung!

Guten Nacht
Patrick