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;
F