UPDATE OR INSERT INTO - Problem

[RWarnecke]

Hallo zusammen,

mit dem folgenden Quelltext füge ich neue Datensätze hinzu oder ändere diese.

Delphi-Quellcode:

  with UniQuery_Ansprechpartner do
  begin
    SQL.Clear;
    SQL.Add('UPDATE OR INSERT INTO');
    SQL.Add('Ansprechpartner (Kundennr, Vorname, Nachname, Telefon1, Telefon2, Fax, Mobil, EMail)');
    SQL.Add('VALUES (:Kundennr, :Vorname, :Nachname, :Telefon1, :Telefon2, :Fax, :Mobil, :EMail)');
    SQL.Add('MATCHING (Kundennr, Vorname, Nachname)');
    ParamByName('Kundennr').AsString := Klasse.KundenNr;
    ParamByName('Vorname').AsString := Klasse.Vorname;
    ParamByName('Nachname').AsString := Klasse.Nachname;
    ParamByName('Telefon1').AsString := Klasse.Telefon1;
    ParamByName('Telefon2').AsString := Klasse.Telefon2;
    ParamByName('Fax').AsString := Klasse.Fax;
    ParamByName('Mobil').AsString := Klasse.Mobil;
    ParamByName('EMail').AsString := Klasse.EMail;
    Execute;
  end;

Nur bei der Änderung gibt es ein kleines Problem. Wenn ich jetzt den Nachnamen ändern muss, wird ein neuer Datensatz angelegt mit dem neuen Namen und der alte Datensatz bleibt bestehen. Da ich in der Tabelle keinen Index habe, ist dafür aus meiner Sicht der MATCHING-Teil schuld. Jetzt ist die Frage, wie kann ich es trotzdem realisieren, dass im bestehenden Datensatz der Nachname oder Vorname geändert werden kann ?

Meine Tabelle sieht so aus :

Code:

/******************************************************************************/
/****                                Tables                                ****/
/******************************************************************************/


CREATE GENERATOR GEN_ANSPRECHPARTNER_ID;

CREATE TABLE ANSPRECHPARTNER (
    ID        INTEGER NOT NULL,
    KUNDENNR  VARCHAR(15) NOT NULL,
    VORNAME   VARCHAR(50) NOT NULL,
    NACHNAME  VARCHAR(75) NOT NULL,
    TELEFON1  VARCHAR(30),
    TELEFON2  VARCHAR(30),
    FAX       VARCHAR(30),
    MOBIL     VARCHAR(30),
    EMAIL     VARCHAR(100)
);




/******************************************************************************/
/****                               Triggers                               ****/
/******************************************************************************/


SET TERM ^ ;



/******************************************************************************/
/****                         Triggers for tables                          ****/
/******************************************************************************/



/* Trigger: ANSPRECHPARTNER_BI */
CREATE OR ALTER TRIGGER ANSPRECHPARTNER_BI FOR ANSPRECHPARTNER
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.id is null) then
    new.id = gen_id(gen_ANSPRECHPARTNER_id,1);
end
^


SET TERM ; ^