UIB+Lazarus

[alexs]

JvUIBStoredProc - это ещё в процессе разработки
я сделал только набросок
работай пока через JvUIBQuery

[EugeneBoss]

Знатоки! Для работы с компонентами FBDataSet (alexsDataSet_1_27) или fibl (fibl_071023) нет рабочих примеров. Очень нужен реальный пример с редактированием данных(вставка, обновление) (сервер Firebird 2.1.0.17798)

[m_guest]

Посмотрите здесь
Достаточно большой проект, исходники присутствуют...Правда, под FB1.5

[alexs]

Под 2.0 и 2.1 тоже работает

[EugeneBoss]

В проекте pm пробовал подключиться к базе Pm_test.fdb - "ошибка подключения", при этом база свободно подключается в IBExpert. В примере подключение осуществляется до показа главной формы, настроить подключение можно только редактируя Server.lst, при этом параметры подключения не известны. Пробовал по разному - эффект один - "ошибка подключения". Подскажите, как правильно настроить параметры подключения

[alexs]

Server.lst - там находятся параметры подключения к БД (строка к БД)
подключение можно осуществить задав параметры из командной строки или, если они не указаны, то через ввод данных (пользователь и пароль) в окне логина. Посмотри код процедуры Login.

[EugeneBoss]

Не могу подключиться к базе Pm_test.fdb - "ошибка подключения к БД". В Server.lst прописал localhost:C:\FIBDbase\Pm_test.fdb. Регистрационные данные хоста: протокол -local имя BOSS пользователь SYSDBA пароль masterkey роль FIBDataBase. Тест подключения в SQL Manadger проходит нормально. Что не так?

[alexs]

там такой роли нет.
посмотри список доступных ролей в самой БД
для SYSDBA роль можно не указывать.

[EugeneBoss]

C UIB21 подключиться не смог. Может кто-нибудь выложит рабочий пример по-проще.

[yuray]

У меня работает.

2EugeneBoss
Попробуйте в Server.lst написать одну строчку (без "localhost:")
C:\FIBDbase\Pm_test.fdb

Можно скомпилировать проект и посмотреть что не так изнутри.

2alexs
С точки зрения общения с пользователями, наверное так обрабатывать ошибки плохо

Код: Выделить всё

  try
    ....
  except
    Application.MessageBox('Ошибка подключения к БД','Внимание', MB_OK+MB_ICONHAND);
  end;   

Как минимум нужно

Код: Выделить всё

  try
    ....
  except
    Application.MessageBox('Ошибка подключения к БД','Внимание', MB_OK+MB_ICONHAND);
    Raise;
  end;   

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

[alexs]

Это быстрый код для себя. В настоящем приложении я это дело гораздо сложнее и подробнее вывожу.
а raise просто выдавать наружу в лазаре черевато - он по умолчанию выдаёт окно с предложением закрыть всю программу.