Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Tabelle dynamisch anlgen (https://www.delphipraxis.net/63500-tabelle-dynamisch-anlgen.html)

Chuqa 19. Feb 2006 21:51

Datenbank: Paradox7 / Access • Zugriff über: noch gar nicht

Tabelle dynamisch anlgen
 
Aloha allerseits,

ich möchte eine kleine Ligaverwaltung (für Fussballligen) entwickeln, dazu habe ich eine Tabelle mit dem Datenbankoberfläche-tool angelegt. Diese Taballe ist sozusagen meine Obertabelle, die sämtliche vorhandenen Ligen enthält. Nun soll in meinem Programm bei Erstellen einer neuen Liga eine Tabelle angelegt werden, die dann die Daten der Liga enthält. Wie kann ich eine Tabelle dynamisch anlegen, gibt es irgendwo kleine Beispielprogramme die das beispielhaft zeigen? Ist eine Paradox7-DB für mein Vorhaben ok, oder gibt es was besseres, z.b. Access? Das ganze muss ohne DB-Server laufen. Herzlichen Dank schonmal im Voraus.

mfg chuqa

jensw_2000 19. Feb 2006 23:37

Re: Tabelle dynamisch anlgen
 
Such mal im Forum nach CreateTable.

Im Prinzip funktioniert es so:
- TTable Instanz erzeugen
- Felder definieren (FieldDefs)
- Datenbank(Pfad) definieren
- ParadoxFile mit [<TTable>].CreateTable erzeugen


Schöne Grüße,
Jens
:hi:

marabu 20. Feb 2006 06:21

Re: Tabelle dynamisch anlgen
 
Guten Morgen.

Eine neue Tabelle kann auch mit Local SQL angelegt werden:

Delphi-Quellcode:
resourcestring
  DDL_TABLE1
    = 'create table table1 ('
    + ' id autoinc, '
    + ' name char(50), '
    + ' lie_id integer, '
    + ' bwz_code char(3), '
    + ' primary key (id)'
    + ')'
    ;

procedure CreateTable(const db, ddl: String);
begin
  with TQuery.Create(nil) do
  try
    DatabaseName := db;
    SQL.Text := ddl;
    ExecSql;
  finally
    Free;
  end;
end;

begin
  CreateTable('dbdemos', DDL_TABLE1);
end;
Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz