Indsætte grafstruktur - hvordan findes id'er

Kan du evt. behandle grafstrukturens data før du gemmer i databasen? Det må alt andet lige være hurtigere end at gemme og efterbehandle.

Jeg kan sagtens behandle dataen inden, så er selvfølgeligt en mulighed at lade min applikation generere unikke id'er og tildele til dem. Import processen er altid "serialiseret", så man kunne måske gemme en "new_id_counter" et andet sted i databasen, og så fortsætte fra den hver gang import koden kører.

Har det fået til at virke med fra applikationen at tildele en unik id til hver record, og så i en "property" tabel at gemme hvor langt jeg kom efter hver import run. Smider du et svar? Vil i øvrigt gerne høre fra folk hvis der er nogle best-practice/smarte måder at holde styr på den her applikations id på.

Jeg kan godt smide et svar (hermed gjort). Lige et spørgsmål til det sidste du nævner, at A peger på B, men at B også peger tilbage på A. Er det nødvendigt at B kender A?

Det er ikke det store problem hvis du har hele din grafstruktur i hukommelsen á la (kodeeksempel i Delphi):

type
  TData = class
  private
    fUniqueID : integer;
    fChild : TData;
    fParent1 : TData;
    fParent2 : TData;
  public
    constructor Create(aUniqueID : integer);
    property UniqueID : integer read fUniqueID;
    property Parent1 : TData read fParent1 write fParent1;
    property Parent2 : TData read fParent2 write fParent2;
    property Child : TData read fChild write fChild;
    procedure WriteRecord(aQuery : TADOQuery);
  end;

...

  procedure TData.WriteRecord(aQuery : TADOQuery);
  begin
    aQuery.SQL.Text :=
      'insert into data'+
      '  (ID, Parent1ID, Parent2ID, ChildID)'+
      '  values (:ID, :Parent1ID, :Parent2ID, :ChildID)';
    aQuery.Parameters.ParamByName('ID').Value := fUniqueID;
    with aQuery.Parameters.ParamByName('Parent1ID') do
      if assigned(fParentID1) then
        Value := fParentID1.UniqueID
      else
        Value := NULL;
    with aQuery.Parameters.ParamByName('Parent2ID') do
      if assigned(fParentID2) then
        Value := fParentID2.UniqueID
      else
        Value := NULL;
    with aQuery.Parameters.ParamByName('ChildID') do
      if assigned(fChildID) then
        Value := fChildID.UniqueID
      else
        Value := NULL;
    aQuery.ExecSQL;
  end;

.. Indlæsningen må ske i en overordnet klasse der kan administrere træet og foretage søgninger i det (en eller anden objektliste-klasse):

  TDataContainer.ReadData;
  var
    Query : TADOQuery;
    Data : TData;
    Parent1, Parent2, Child : TData;
  begin
    Query := TADOQuery.Create(nil);
    try
      ...
      Query.SQL.Text := 
        'select ID, Parent1ID, Parent2ID, ChildID from data';
      Query.Open;
      while not Query.Eof do
      begin
        Data := TData.Create(Query.FieldByName('ID').Value,
                            Query.FieldByName('Parent1ID').Value,                                         
                            Query.FieldByName('Parent2ID').Value,
                            Query.FieldByName('ChildID').Value);

        Add(Data); // Føj til contailer

        Parent1 := Lookup(Data.Parent1ID);
        if assigned(Parent1) then
        begin
          Parent1.ChildID := Data;
          Data.Parent1 := Parent1;
        end;

        Parent2 := Lookup(Data.Parent2ID);
        if assigned(Parent2) then
        begin
          Parent2.ChildID := Data;
          Data.Parent2 := Parent2;
        end;

        Child := Lookup(Data.ChildID);
        if assigned(Child) then
        begin
          if assigned(Child.Parent1) then
            Child.Parent2 := Data
          else
            Child.Parent1 := Data;
          Data.Child := Child;
        end;
        Query.Next;
      end;
    finally
      Query.Free;
    end;
  end;

  TDataContainer.WriteData;
  var
    i : integer;
    Data : TData;
    Query : TADOQuery;
  begin
    // Begin work
    try
      for i := 0 to Count - 1 do
      begin
        Data := Items[i] as TData;
        Data.WriteRecord(Query);
      end;
      // Commit work
    except
      // Rollback work
    end;
  end;
 

Indlæsningen vil blive lidt tung, men ikke noget der skulle kunne mærkes (medmindre det bliver kodet i VB (!)). Så fik du lige mit bud.

Takker for inputtet. Tror jeg ender med at gå noget i den retning. Din sidste post blev også en kommentar så du må da gerne lige smide et svar =)

Lukker selv pga manglende svar.