In Absolute Database mehrere Tabellen anlegen...

[scrat1979]

Hallo!

Habe gerade leider meinen Source nicht zur Hand. In diesem lege ich eine Datenbank sowie 2 Tabellen ohne Probleme an. Wenn Du mich morgen noch einmal ggf. per PN erinnerst dann poste ich den zugehörigen Source gerne hier in den Thread!

[EDIT]
Habe zwar überhaupt keine Zeit, aber trotzdem hab ich nicht vergessen, dir folgenden Source zu posten Er erzeugt 2 Tabellen für meine Seriennummern-Datenbank. Ich hoffe Dir hiermit weiterhelfen zu können!
Musst mal schauen, kann sein dass die Datenbank bzw. die Tabellen auf active := false gestellt sein müssen. Über ein Feedback wäre ich dankbar!
[/EDIT]

Delphi-Quellcode:

procedure TMainForm.CreateDatabase;
begin
 { Datenbank initialisieren }
  ABSDatabase.DatabaseName := 'SerienNrDatenbank';
  ABSDatabase.DatabaseFileName := DATFile;

  // Tabelle "SERIALS" anlegen
  ABSTable_serials.DatabaseName := 'SerienNrDatenbank';
  ABSTable_serials.TableName := 'serials';

  with ABSTable_serials do
   begin
     with FieldDefs do
   begin
      Clear;
         Add('id',ftAutoInc,0,False);
         Add('Programmname',ftString,50,False);
         Add('Benutzername',ftString,50,False);
         Add('EMail',ftString,200,False);
         Add('Key', ftString, 400, False);
         Add('Loginname',ftString,40,False);
         Add('Loginpass',ftString,40,False);
         Add('Filename',ftString,50,False);
         Add('File',ftBLOB,0,False);
         Add('Bemerkung',ftMemo,0,False);
         Add('Newflag', ftboolean, 0, False);
         Add('Website', ftString, 50, False);
    end;
     {specifying table indexes}
     with IndexDefs do
       begin
         Clear;
         Add('Pridx','id',[ixPrimary]);
         Add('alphidx','Programmname;id',[ixCaseInsensitive]);
       end;
   end;


  // Tabelle "SCANS" anlegen
  ABSTable_Scans.DatabaseName := 'SerienNrDatenbank';
  ABSTable_Scans.TableName := 'scans';

  with ABSTable_Scans do
   begin
     {specifying table fields}
     with FieldDefs do
   begin
      Clear;
         Add('id',ftAutoInc,0,False);
         Add('MasterKey',ftInteger,0,False);
         Add('ScanNr',ftInteger,0,False);
         Add('Grafik',ftBLOB,0,False);
         Add('Bemerkung',ftString,200,False);
    end;
     {specifying table indexes}
     with IndexDefs do
       begin
         Clear;
         Add('PrimaryIDX','id;ScanNr',[ixPrimary]);
         Add('ToSerial', 'MasterKey',[]);
       end;
   end;

  { Datenbank erstellen }
  ABSDatabase.CreateDatabase;

  { Tabelle erstellen }
  ABSTable_serials.CreateTable;
  ABSTable_scans.CreateTable;
end;

SCRaT