Гледах в архива, че вече е питано, обаче при мен не става - задаването на Default Character Set тъй и не ще да ми проработи:
If Host <> '' then
IBDB.DatabaseName := Host + ':';
IBDB.DatabaseName := IBDB.DatabaseName + Database;
IBDB.Params.Clear;
IBDB.Params.Add(Format('USER "%s" PASSWORD "%s"', [Username, Password]));
IBDB.Params.Add('PAGE_SIZE 4096');
IBDB.Params.Add('DEFAULT CHARACTER SET CYRL');
IBDB.LoginPrompt := FALSE;
IBDB.SQLDialect := 3;
IBDB.CreateDatabase;
Грешката е от любимите - EIBInterbaseError - нищо не говореща.
Ако се махне редът DEFAULT CHARACTER SET CYRL всичко минава. Ако се задава какъвто и да е (NONE/WIN1251) грешката си я има.
Уточнявам - Delphi 7/Firebird 1.5 - при някой с такава конфигурация да има проблем?
Coming Back To Life (by Pink Floyd :-)