PrimaryKey in einer Paradox-DB löschen und erstellen

[gnr82]

Hallo,

ich habe folgendes Problem:

Ich benötige eine Tabelle (in einer Paradox-DB) die einen PrimaryKey besitz, gleichzeitig möchte ich die Struktur der Tabelle ändern können (Spalte hinzufügen, ändern, löschen, etc.). Derzeit ist das ändern allerdings nur möglich, wenn die Tabelle keinen Primärschlüssel besitzt.
Also war für mich jetzt der einfachste Weg den Primärschlüssel für die Zeit, in der ich Änderungen vornehme, herauszunehmen und danach wieder einzufügen. Leider funktioniert das nicht. Ich kann weder den Primärschlüssel entfernen, noch setzten wenn keiner da ist.

Anbei noch Auszüge aus dem Quellcode:

Delphi-Quellcode:

//
doADOquery(optionsarray[2],
           'alter table EXPORT add constraint PRIMARYKEY1 primary key (ID)',
           true,
           false);

doADOquery(optionsarray[2],
           'alter table EXPORT drop constraint PRIMARYKEY1',
           true,
           false);

Danke für eure Hülfe

[shmia]

Deine Tabelle heisst "EXPORT". Das könnte aber ein reserviertes Wort sein.
Versuche mal die Tabelle umzubenennen oder setze den Tabellennamen in Anführungszeichen.

Laut LocalSQL.hlp löscht man den Primärschlüssel so
DROP INDEX orders.PRIMARY Wenn alle Stricke reisen, musst du eine neue Tabelle mit der neuen Struktur erzeugen
und die Daten aus der Tabelle rüberkopieren.

[gnr82]

Hallo nochmal.

Ich lösch jetzt doch die ganze tabelle und erstell diese über SQL-Anweisung neu. Das funktioniert soweit ganz gut, bis auf ... den PrimaryKey.

Fehlermeldung (Zitat):
Die Eigenschaften wird für externe Datenquellen oder für Datenbanken, die in einer früheren Version von Microsoft Jet erstellt wurden, nicht unterstützt.


Eine Idee woran das liegen kann?


Ich will doch nur eine Paradox-Datenbank mit einem PrimaryKey erstellen...

Könnt Ihr mir da nochmal helfen???

Danke

[mkinzler]

Wie sieht das Statement aus?

[gnr82]

SQL-Script:

create table "test.db" (
id integer not null primary key,
test char(50))

[mkinzler]

Das DDL-Statement müßte so eigentlich funktionieren.
Funktioniert die Erzeugung ohne Primärschlüssel?
Funktioniert das spätere Hinzufügen des Selbigen als Constraint?

[Andreas Schilling]

Ich kenne nur den Weg über die BDE-Komponenten TTable. Vielleicht läßt sich das aber verwenden.

Delphi-Quellcode:

Uses
  DB, DBTables, SysUtils;

Function ChkANAMNESE(DName: String): Boolean;
  {Die Funktion ChkANAMNESE erzeugt die   Datei ANAMNESE.DB
   falls diese noch nicht existiert.
   Ist das Ergebnis True, so wurde die Tabelle neu erstellt.}
Function ChkIdxANAMNESE(DName: String): Boolean;
  {Die Funktion ChkIdxANAMNESE erzeugt die   Indizes der Datei ANAMNESE.DB
   falls diese noch nicht existieren.
   Ist das Ergebnis True, so wurden die Indizes neu erstellt.}

Implementation

Function ChkANAMNESE;
Begin
  Result:=False;
  If Not FileExists(DName) Then
  With TTable.Create(Nil) Do
  Begin
    TableName:=DName;
    With FieldDefs Do
    Begin
      Add('AnamneseID',TFieldType(14),0,False);
      Add('PR_ID',TFieldType(3),0,True);
      Add('Datum',TFieldType(9),0,True);
      Add('Parameter',TFieldType(1),30,False);
      Add('Ergebnis_ID',TFieldType(3),0,True);
      Add('LE_ID',TFieldType(3),0,True);
      Add('Text',TFieldType(16),25,False);
      Add('Bemerkungen',TFieldType(1),100,False);
      Add('LetzteVeraenderungUser',TFieldType(1),8,True);
      Add('LetzteVeraenderungZeit',TFieldType(11),0,True);
      Add('RecordStatus',TFieldType(3),0,False);
    End; {end with FieldDefs}
    CreateTable;
    Result:=True;
    Free;
    ChkIdxANAMNESE(DName);
  End; {end with TTable}
End; {end Function}

Function ChkIdxANAMNESE;
Begin
  Result:=False;
  With TTable.Create(Nil) do
  Begin
    TableName:=DName;
    Exclusive:=True;
    Open;
    IndexDefs.Clear;
    AddIndex('','AnamneseID', []+[ixPrimary]+[ixUnique]);
    AddIndex('PRIDDatum_Index','PR_ID;Datum', []+[ixCaseInsensitive]);
    Close;
    Free;
  End;  {end with TTable}
End;  {end Function}

End.

[mkinzler]

Wenn schon BDE dann TQuery!

[marabu]

Guten Morgen,

hier wird mit LocalSQL gearbeitet, nicht mit SQL:

SQL-Code:

CREATE TABLE "test.db" (
  id INTEGER,
  test CHAR(50),
  PRIMARY KEY (id)
)

Gültigkeitsbeschränkungen werden von der BDE verwaltet und nicht über LocalSQL manipuliert.

Grüße vom marabu

[Ines]

Hallo, ich hatte vor kurzem ähnlichen Fehler (allerdings BDE).

Zitat von gnr82:

Ich will doch nur eine Paradox-Datenbank mit einem PrimaryKey erstellen...

Bei mir lag es daran, daß das Feld zum Erstellen des PrimaryKeys nicht das erste Feld in der Tabelle war. Nach dem Ändern der Tabellenstruktur hat dann das Setzen des PrimaryKeys funktioniert.

Viele Grüße
Ines