![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как открыть базу Interbase? [D6, D7]
Grihan © (2003-12-30 13:46:00)
Код
if not ibdbBase.Connected then
begin
Params := TStringList.Create;
Params.Add("USER "SYSDBA"");
Params.Add("PASSWORD "masterkey"");
ibdbBase.Params := Params;
if not FileExists(feFileIB.FileName) then
begin
Params.Add("PAGE_SIZE 4096");
ibdbBase.CreateDatabase
end
else
ibdbBase.Connected := True;
Params.Free;
end;
не работает, сообщение типа не тот логин, хотя создает базу на ура... Подскажите, в чем причина?
Спасибо.
HSolo (2003-12-30 14:23:00) [1]
ibdbBase - это TIBdatabase ?
Во-первых, вот это:
> Params := TStringList.Create;
лишнее
Во-вторых, параметры задаются в виде:
user_name=sysdba
password=masterkey
Vemer (2003-12-30 14:12:00) [2]
Возможно надо завершать транзакцию. А не проще файл БД предварительно создать?