FIBPlus Komponenten Frage

[manfred_h]

Zitat von chaosben:

Hi ho!

Nehmen wir an, du hast eine funktionsfähige DB-Connection und eine Transaction die mit deinem FibQuery und der DB-Verknüpft ist. Dann ist die grobe Schrittfolge wie folgt:
Ganz grob.

Danke das ganze habe ich eigentlich schon zusammen. Bis auf die 3 Befehle die Fibplus nicht kennt
oder so..

Delphi-Quellcode:

procedure Tfrm_tools.btn_idreplClick(Sender: TObject);
begin
    DM.pFIBDB_Gideons.Connected := True;
    DM.pFIBDS_NursingH.Open;
    DM.pFIBDS_NursingH_D.Open;
    DM.pFIBDS_NursingH_DD.Open;
    if not DM.pFIBDS_Camps.Active then DM.pFIBDS_Camps.Open;

      DM.pFIBQ_NursingH_D.Close;
      DM.pFIBQ_NursingH_D.SQL.Text := 'UPDATE Nursing_H_D SET ID_AREA = :newID WHERE id = :oldID';
      DM.pFIBQ_NursingH_D.ParamCheck := True;

      DM.pFIBQ_NursingH.Close;
      DM.pFIBQ_NursingH.SQL.Text := 'SELECT id FROM Nursing_H';
      DM.pFIBQ_NursingH.open;
        while not (DM.pFIBQ_NursingH.Eof) do
        begin
          newID := Neue_GuID;
          oldID := DM.pFIBQ_NursingH.FieldByName('id').AsString;
          DM.pFIBQ_NursingH.edit;
          DM.pFIBQ_NursingH.FieldByName('id').AsString := newID;
          DM.pFIBQ_NursingH.post;
          DM.pFIBQ_NursingH_D.ParamByName('newID').AsString := newID;
          DM.pFIBQ_NursingH_D.ParamByName('oldID').AsString := oldID;
          DM.pFIBQ_NursingH_D.ExecQuery;
          DM.pFIBQ_NursingH.Next;
  end;

Bei diesen 3 Befehlen hapert es bei mir.

DM.pFIBQ_NursingH.open;
DM.pFIBQ_NursingH.edit;
DM.pFIBQ_NursingH.post;

hab schon mit Google nach dieversen Bsp. gesucht aber auch dort nichts gefunden.
Manfred