Einzelnen Beitrag anzeigen

Benutzerbild von Mithrandir
Mithrandir
(CodeLib-Manager)

Registriert seit: 27. Nov 2008
Ort: Delmenhorst
2.379 Beiträge
 
#5

Re: Denkblockade: Wie speicher ich ein Array in einer Datenb

  Alt 3. Mai 2009, 18:02
@mkinzler, Dax:



Also, ich drösel das Problem mal von Anfang an auf:

Momentan werden die Tags in einer Schleife in die Datenbank geschrieben, und die ID anschließend einem String angehängt. Dieser String wird dann in der Datenbank gespeichert.

Im Quelltext sieht das so aus:

Delphi-Quellcode:
constructor TORPDatabase.Create(DBFileName: string);
begin
{...}
  //Create Query-Object for Tag Insert
  fInsertTagQuery := TZQuery.Create(nil);
  fInsertTagQuery.SQL.Text := 'INSERT INTO TAGS ("KEY", "VALUE") VALUES (:key, :val) RETURNING "ID"';

  //Create Query-Object for Way Insert
  fInsertWayQuery := TZQuery.Create(nil);
  fInsertWayQuery.SQL.Text := 'INSERT INTO WAYS (WAY_ID, SUB_NODES, TAGS) VALUES (:way_id, :sub_nodes, :tags) RETURNING "ID"';
{...}
end;

function TORPDataBase.WriteTagsToDB(Tags: TORPTags): string;
var
  i: integer;
begin
  Result := '';
  DecimalSeparator := '.';
  for i := 0 to Length(Tags) - 1 do
  begin
    with fInsertTagQuery do
    begin
      Connection := fConnection;
      begin
        ParamCheck := true;
        ParamByName('key').AsString := Tags[i].Key;
        ParamByName('val').AsString := Tags[i].Value;
        Open;
        Result := Result + FieldByName('ID').AsString + '|';
      end;
    end;
  end;
end;

procedure TORPDataBase.WriteWayToDB(Way: TORPWay);
var
  BlobStr: TStream;
begin
  try
    DecimalSeparator := '.';
    with fInsertWayQuery do
    begin
      Connection := fConnection;
      ParamCheck := true;
      ParamByName('way_id').AsInteger := StrToInt(Way.ID);
      ParamByName('tags').AsString := WriteTagsToDB(Way.Tags);
      ParamByName('sub_nodes').AsString := EncodeSubNodes(Way.Subnodes);
      ExecSQL;
    end;
  finally

  end;
end;
Ich sehe jetzt 2 Performanceprobleme: Zum einen musste ich gewährleisten, dass mindestens x Unterknoten gespeichert werden können, resp. deren IDs. Dadurch wird das VarChar-Feld ja riesig. Außerdem braucht es für jeden Tag ein "Insert Into" - Statement. Klar, dadurch, dass ich mit Parametern arbeite, geht das schon schneller. Aber durch die Nutzung von Blobs hätte ich mir jetzt einen stärkeren Geschwindigkeitsvorteil und einen geringeren Speicherbedarf auf Kosten der Suchfunktion erhofft. Würde ich mit diesen Mutmaßungen richtige liegen?
米斯蘭迪爾
"In einer Zeit universellen Betruges wird das Aussprechen der Wahrheit zu einem revolutionären Akt." -- 1984, George Orwell
  Mit Zitat antworten Zitat