Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание базы данных программно!!! Помогите!!! InterBase + FireBird 
:(
    Опции темы
Ivan230884
  Дата 10.11.2015, 08:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 7.11.2015

Репутация: нет
Всего: нет
Доброго времени суток!

Подскажите где ошибка кода. Использованное ПО: Delphi XE8, InterBase, FireBird (Firebird-2.5.4.26856_0_x64, superserver, установлен как служба), Firebird_ODBC_2.0.3.154_x64.

Скажу честно, уровень моих знаний в программировании не то что бы не высок - он ниже среднего.
Но есть задача и желание её решить, думаю что смогу разобраться.

Просто бывают моменты когда упираешься в проблему и не как не можешь её решить, хотя она элементарная!

Подскажите пожалуйста где ошибка, компилятор пишет: "Project ***.exe raised exception class EIBInterBaseError with message 'unavailable database' " 

IBDBase - переименованный мною компонент TIBDatabase.

Код

procedure TOpenForm.FormCreate(Sender: TObject);
begin
  if FileExists('D:\12345\Base.ib') then
     begin
     // Пока 
     // пусто!
     end
   else
     begin
       with IBDBase do
         begin
           Connected:=False;
           DatabaseName:='D:\12345\Base.ib';
           SQLDialect:=3;
           Params.Clear;
           Params.Add('user_name=sysdba');
           Params.Add('PASSWORD=12345');
           Params.Add('sql_role_name=3');
           Params.Add('lc_ctype=WIN1251');
           Params.Add('page_size=4096');
           try
             CreateDatabase;
             MessageDlg (Format ('1', ['D:\12345\Base.ib']), mtInformation, [mbOk], 0);
           except
             on E: Exception do
             MessageDlg (Format ('0', [E.Message]), mtError, [mbOk], 0);
           end;
         end;

      
     end;
end;


Это сообщение отредактировал(а) Poseidon - 10.11.2015, 09:05
PM MAIL   Вверх
Poseidon
Дата 10.11.2015, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(Ivan230884 @  10.11.2015,  08:10 Найти цитируемый пост)
компилятор пишет: "Project ***.exe raised exception class EIBInterBaseError with message 'unavailable database' 
Берешь словарик и переводишь сообщение "unavailable database". Окажется что это: "База данных недоступна". Отсюда можно сделать вывод:
  • Файл Base.ib не явлется файлом базы данных (не тот формат)
  •  Не верные логин/пароль



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Ivan230884
Дата 10.11.2015, 09:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 7.11.2015

Репутация: нет
Всего: нет
Цитата(Poseidon @ 10.11.2015,  09:10)
Цитата(Ivan230884 @  10.11.2015,  08:10 Найти цитируемый пост)
компилятор пишет: "Project ***.exe raised exception class EIBInterBaseError with message 'unavailable database' 
Берешь словарик и переводишь сообщение "unavailable database". Окажется что это: "База данных недоступна". Отсюда можно сделать вывод:

  • Файл Base.ib не явлется файлом базы данных (не тот формат)
  •  Не верные логин/пароль

Видимо, я не полностью описал суть проблемы, в надежде на прозрачность кода.

1. Английский я и без словарика нормально шпрехую.
2. Такого файла не существует в принципе, т.к. именно этим кодом я пытаюсь его создать
3. Логин/пароль - по аналогии с п.2

Суть проблемы: мне надо создать базу данных программно из под дельфей, а не подключиться к созданной.
PM MAIL   Вверх
Poseidon
Дата 10.11.2015, 10:39 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
После более детального осмотра кода ошибка становися очевидна. Строчку "Connected:=False;" необходимо перенести после строчки CreateDatabase.

Мануал


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Ivan230884
Дата 10.11.2015, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 7.11.2015

Репутация: нет
Всего: нет
Цитата(Poseidon @ 10.11.2015,  10:39)
После более детального осмотра кода ошибка становися очевидна. Строчку "Connected:=False;" необходимо перенести после строчки CreateDatabase.

Мануал

Замечание принято, с налета выполнено - эффект не достигнут!!!

Но это скорее всего причина того, что надо просто по новой всё написать - было слишком много кривых попыток саморукоблудного  smile  разбирательства!!!

Отдельное и огромное спасибо за ссылку  smile

Добавлено через 1 минуту и 13 секунд
ОЧЕНЬ ЖАЛЬ, ЧТО У МЕНЯ СОВСЕМ МАЛО ПОСТОВ........



++++ и еще раз + Poseidon!!!!
PM MAIL   Вверх
Poseidon
Дата 10.11.2015, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(Ivan230884 @  10.11.2015,  10:54 Найти цитируемый пост)
Замечание принято, с налета выполнено - эффект не достигнут!!!
Возможно это из-за не такого формата Params. Попробуй сделать все так же как и по ссылке.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Ivan230884
Дата 10.11.2015, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 7.11.2015

Репутация: нет
Всего: нет
Цитата(Poseidon @ 10.11.2015,  11:07)
Цитата(Ivan230884 @  10.11.2015,  10:54 Найти цитируемый пост)
Замечание принято, с налета выполнено - эффект не достигнут!!!
Возможно это из-за не такого формата Params. Попробуй сделать все так же как и по ссылке.

Да-да.... именно этим и занимаюсь!
Детально изучаю FAQ!

Короче все как и должно быть в России. Если что-то не получается собрать с десятого раза, то надо всё-таки почитать инструкцию по сборке smile !!!
PM MAIL   Вверх
DYUMON
Дата 11.11.2015, 05:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
может ему расширение файла не нравится?

Этот ответ добавлен с нового Винграда - http://vingrad.com
PM MAIL ICQ Skype   Вверх
DYUMON
Дата 11.11.2015, 05:45 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
Кстати а сервер указывать не надо ?
Код

DatabaseName:='127.0.0.1:D:\12345\Base.ib';


Этот ответ добавлен с нового Винграда - http://vingrad.com
PM MAIL ICQ Skype   Вверх
barmaley4ik
Дата 11.11.2015, 14:25 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Какие компоненты используются? Файл "физически" создается, смотрели по пути?
Я бы не использовал компоненты сторонние, лучше юзать isql.exe  лежит в .\bin огнептицы

Этот ответ добавлен с нового Винграда - http://vingrad.com
  Вверх
Poseidon
Дата 15.11.2015, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(barmaley4ik @  11.11.2015,  14:25 Найти цитируемый пост)
Я бы не использовал компоненты сторонние
Какие сторонние? Человек использует InterBase, которые идут в стандартной поставке.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1470 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.