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