Delphi+firebird kombinacija.
Kako mogu dodati SQL kod koji će kreirati novu tabelu u bazi?
Kako mogu dodati SQL kod koji će kreirati novu tabelu u bazi?
Dodavanje tabele iz programa
Zaključano
Zakačeno
CREATE TABLE
Potpis
Nikad izvini!
Code (delphi):
DataModule.DBTransaction.Active := TRUE;
with DataModule.queryUpdateDB do
begin
Close;
SQL.Text := 'CREATE TABLE TEST ( ' +
'ISPRAVA VARCHAR(5) NOT NULL, ' +
'GODINA VARCHAR(4) NOT NULL, ' +
'FIRMA INTEGER NOT NULL, ' +
'BROJ INTEGER NOT NULL, ' +
'DATUM DATE, ' +
'OPIS INTEGER);';
ExecQuery;
Close;
SQL.Text := 'ALTER TABLE TEST ADD CONSTRAINT PK_TEST PRIMARY KEY (ISPRAVA, GODINA, FIRMA, BROJ);';
ExecQuery;
end;
DataModule.DBTransaction.COMMIT;
with DataModule.queryUpdateDB do
begin
Close;
SQL.Text := 'CREATE TABLE TEST ( ' +
'ISPRAVA VARCHAR(5) NOT NULL, ' +
'GODINA VARCHAR(4) NOT NULL, ' +
'FIRMA INTEGER NOT NULL, ' +
'BROJ INTEGER NOT NULL, ' +
'DATUM DATE, ' +
'OPIS INTEGER);';
ExecQuery;
Close;
SQL.Text := 'ALTER TABLE TEST ADD CONSTRAINT PK_TEST PRIMARY KEY (ISPRAVA, GODINA, FIRMA, BROJ);';
ExecQuery;
end;
DataModule.DBTransaction.COMMIT;
Potpis
F