SQLLite Datensatz hinzufügen, wenn nicht vorhanden

[AlexII]

Ist aber sehr umständlich... UNIQUE übernimmt dir die Arbeit. Damit wird der Wert nur ein Mal gespeichert!

Delphi-Quellcode:

CREATE TABLE [tbland] (
  [id_land] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT UNIQUE, 
  [land] TEXT NOT NULL UNIQUE)

[Klaus01]

Hallo,

vielleicht hilft Dir upsert oder insert or replace weiter.

Grüße
Klaus

[Sir Rufo]

Ein INSERT OR REPLACE ist immer mit Vorsicht zu genießen, denn bei einem REPLACE wird die alte Zeile gelöscht und mit den übergebenen Daten wieder eingefügt.

Da könnte es besser sein ein ON CONFLICT IGNORE zu verwenden. Allerdings verbergen sich auch hier Fallstricke. Bei MySQL (ON DUPLICATE KEY UPDATE) wird z.B. trotz Update der AutoInc-Wert erhöht.

[Peter666]

Danke, ich hab die Einträge wie folgt geändert:

Code:

CREATE TABLE [Cities] (
[ID] INTEGER  NOT NULL PRIMARY KEY AUTOINCREMENT,
[Province] INTEGER  NOT NULL,
[Name] VARCHAR(256)  UNIQUE NOT NULL,
[Latitude] FLOAT  NULL,
[Longitude] FLOAT  NULL
);

CREATE TABLE [Countries] (
[ID] INTEGER  PRIMARY KEY NOT NULL,
[Region] INTEGER  NOT NULL,
[Name] VARCHAR(256)  UNIQUE NOT NULL
);

CREATE TABLE [Location] (
[ID] INTEGER  PRIMARY KEY NOT NULL,
[City] INTEGER  NOT NULL,
[Radio] INTEGER UNIQUE NOT NULL,
[Frequency] FLOAT  NULL,
[Band] INTEGER  NULL
);

CREATE TABLE [Province] (
[ID] INTEGER  PRIMARY KEY NOT NULL,
[Country] INTEGER  NOT NULL,
[Name] VARCHAR(256)  UNIQUE NOT NULL
);

CREATE TABLE [Stations] (
[ID] INTEGER  PRIMARY KEY NOT NULL,
[Genre] INTEGER  NULL,
[Name] VARCHAR(256)  NOT NULL,
[URL] VARCHAR(256)  UNIQUE NOT NULL,
[Logo] VARCHAR(256)  NULL
);

Bei Stations habe ich nur die URL als Unique eingetragen, da in diversen Regionen die Sendernamen mitunter gleich sind.

[AlexII]

Dann würde ich noch folgendes machen, das ganze in die try except setzen:

Delphi-Quellcode:

  try
    // hier die ganzen SQL Abfragen 
  except
    on E: Exception do MessageDlg('Fehler! Die Abfrage konnte nicht durchgeführt werden!'
    + sLineBreak + sLineBreak + E.ClassName + sLineBreak + E.Message, mtError, [mbOk], 0);
  end;

In der "E.Message" wird angezeigt was schief gelaufen ist. Falls ein vorhandener Eintrag hinzugefügt wird, wird in der "E.Message" die Meldung stehen, dass der Wert bereits vorhanden ist.

[Sir Rufo]

@AlexII

Erklär doch bitte mal was passiert, wenn du das try except nicht verwendest und eine Exception auftritt.

[AlexII]

Zitat von Sir Rufo:

@AlexII

Erklär doch bitte mal was passiert, wenn du das try except nicht verwendest und eine Exception auftritt.

Es wird ein Fehler angezeigt, das auf jeden Fall denke ich, aber ich weiß nicht was das für eine Fehlermeldung sein wird. Irgendwas mit "DB error" oder so, womit man nichts anfangen kann. Oder irre ich mich?

Werde ich aber testen!