Tabelle dynamisch anlgen

[marabu]

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