Datenbankstruktur im Quelltext erstellen, wie?

[nahpets]

Hallo,
if not ttable.Exists then ttable.CreateTable; sollte dein Problem lösen.
Die Felddefinitionen müssen in FieldDefs abgelegt, die Indexdefinitionen (soweit erforderlich) in IndexDefs, und StoreDefs muss = True sein.
Das Erstellen der Tabelle kannst Du dann z. B. ins FormCreate legen, dann wird die Tabelle beim ersten Programmstart automatisch erstellt. TTable.Active := True sollte dann auch im FormCreate stehen.

[Nintendo]

Hey, Danke @nahpets, das war es, was ich wissen wollte.

Allerdings bescwert er sich immer noch, das meine Datei, deren Name ich mit

TTable.DatabaseName := <mein>.dbf;

zugewiesen habe, nicht existiert.

Ich will ja aber gerade nach Definition der Felder mit dem Feldeditor im Objektinspektor, die Datei schreiben, wenn sie noch nicht existiert und wenn sie existiert, dann einfach mit TTable.Open öffnen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: Tobject);
begin
  MyTable.DatabaseName := <mein>.dbf;
  if MyTable.Exists then MyTable.OPen else
  begin
    MyTable.StoreDefs := true;
    MyTable.CreateTable;
  end;
end;

Was kann/muss ich noch machen?

[nahpets]

Hallo,

der Tabellenname kommt nach TTable.TableName.
TTable.DatabaseName bleibt leer.

[Nintendo]

Danke so weit. Aber jetzt erhalte ich eine

EDBEngineError Exception mit der Meldung "Merkmal nicht verfügnar".

Was muss ich noch machen?

[himitsu]

Mir ist, als hätte ich es mal so gemacht, das war allerdings beim Firebird Embedded.

Delphi-Quellcode:

//TIBTable

IBTable1.Close;
IBTable1.TableName := 'abd';
IBTable1.FieldDefs.Clear;
IBTable1.FieldDefs.Add(...);
IBTable1.FieldDefs.Add(...);
IBTable1.FieldDefs.Add(...);
IBTable1.CreateTable;

Oder du rufst das entsprechende CREATE TABLE abc ... auf (execute).

[nahpets]

Zitat von Nintendo:

Danke so weit. Aber jetzt erhalte ich eine

EDBEngineError Exception mit der Meldung "Merkmal nicht verfügnar".

Was muss ich noch machen?

poste bitte mal Deine Tabellendefinition, nicht alle in TTable auswählbaren Datentypen werden von allen Datenbank unterstützt. DBF hat da ziemliche Einschränkungen, ohne hier die Definitionen sehen zu können, gibts keine realistische Chance das Problem lösen zu helfen.

[hoika]

Hallo,
Ich würde das ganze per TQuery machen.

Heiko

[Nintendo]

Zitat von nahpets:

Zitat von Nintendo:

Danke so weit. Aber jetzt erhalte ich eine

EDBEngineError Exception mit der Meldung "Merkmal nicht verfügnar".

Was muss ich noch machen?

poste bitte mal Deine Tabellendefinition, nicht alle in TTable auswählbaren Datentypen werden von allen Datenbank unterstützt. DBF hat da ziemliche Einschränkungen, ohne hier die Definitionen sehen zu können, gibts keine realistische Chance das Problem lösen zu helfen.

Habe jetzt alle Feldtypen auf ftString gesetzt. Habe außerdem statt TTable das TClientDataset verwendet. Jetzt kommt keine Fehlermeldung mehr, aber ich kann in die Eingabefelder TDBEdit auch nichts eingeben.

Habe außerdem das Ganze mal mit der TDBF Komponente in Lazarus nachgebaut und musste feststellen, das die Felderzuweisung auch nicht klappt. ABer das werde ich jetzt entweder selber hinkriegen oder halt keine Datenbanken programmieren.