with TDBISAMQuery.Create(nil) do
try
SessionName := MySession.SessionName;
DatabaseName := MyDB.DatabaseName;
SQL.Text :=
'CREATE TABLE Marketing ' +
'( ' +
' "Typ" INTEGER NOT NULL, ' +
' "BeginDate" DATE NOT NULL DEFAULT "CURRENT_DATE", ' +
' "Title" CHARACTER(50), ' +
' "PartNo" CHARACTER(8), ' +
' "Text1" CHARACTER(100), ' +
' "Text2" CHARACTER(100), ' +
' "LongText1" BLOB(0,1), ' +
' "Image1Path" CHARACTER(250), ' +
' "Image1" BLOB(0,5), ' +
' "Image2Path" CHARACTER(250), ' +
' "Image2" BLOB(0,5), ' +
' "IsDefault" BOOLEAN NOT NULL DEFAULT "False", ' +
'PRIMARY KEY ("Type","BeginDate") COMPRESS DUPBYTE ' +
'LANGUAGE "' +
LanguagesList[GetIndexFromLanguageID(GetUserDefaultLangID)] + '"' +
'SORT "Default Order" ' +
'USER MAJOR VERSION 1 ' +
'USER MINOR VERSION 0' +
')';
ExecSQL;
finally
Free;
end;