Firebird (работа с базой данных из Delphi)

[AlexanderP]

Господа, подскажите решение такого вопроса:
На delphi создана программа, которая добавляет записи в таблицу. В таблице есть поле ключевое (например NUM_1), которое содержит порядковый номер записи. Как сделать, чтобы при добавлении новой записи через IBQuery, увеличить порядковый номер на 1.

Я делал следующим способом, через запрос, переходил к последней записи и смотрел её номер, а при ставке новой к ней прибавлял 1., но если несколько пользователей добавляют одновременно несколько записей, то с момента получения и добавления моих записей, последний номер становится не актуальным.
Как победить это дело, и всё это описать через IBQuery (или как то по другому, кто знает)?
Базу использую Firebird.

[Gage]

1. Нужно создать генератор - один раз
create generator genForMyKeyField
2. В запросе на вставку данных в таблицу пишешь
insert into MyTable (MyKeyField, Field2,...) values (gen_id(genForMyKeyField,1), 'any value',...)
===
genForMyKeyField - имя генератора - любое имя какое нравится
gen_id(GN,1) - встроенная функция - увеличивает и возвращает значение генератора GN на любое число - в данном случае на единицу.
Сетевые ошибки в данном случае невозможны.

[AlexanderP]

Господа, подскажите как работать с IBDataSet.
В свойствах IBDataSet, выбираю таблицу, поля, делаю Generate SQL (InsertSQL, UpdateSQL, DeleteSQL …).
С добавление новых записей (insert) в таблицу, разобрался, а как выполнить обновление и уделение данных в таблице?
Select запрос в IBDataSet должен быть обязательно открыт для обновления, или как то по другому можно провести?
Как в Delphi это всё описать (хотя бы простейший пример)?

[AlexanderP]

Всё, разобрался
Вопрос снимается.

[raptor3]

Цитата: Сообщение от Gage 1. Нужно создать генератор - один раз create generator genForMyKeyField 2. В запросе на вставку данных в таблицу пишешь insert into MyTable (MyKeyField, Field2,...) values (gen_id(genForMyKeyField,1), 'any value',...) === genForMyKeyField - имя генератора - любое имя какое нравится gen_id(GN,1) - встроенная функция - увеличивает и возвращает значение генератора GN на любое число - в данном случае на единицу. Сетевые ошибки в данном случае невозможны.

Зачем усложнять вызовом генератора в делфи - проще повесить генератор на тригер в самой базе

[AlexanderP]

Цитата: Сообщение от raptor3 Зачем усложнять вызовом генератора в делфи - проще повесить генератор на тригер в самой базе

Да нет, проще всё таки генератор на процедуру повесить, так намного проще контролировать значение.
А если на тригер, то останешься без контроля.

[dim34rus]

Цитата: Сообщение от AlexanderP Да нет, проще всё таки генератор на процедуру повесить, так намного проще контролировать значение. А если на тригер, то останешься без контроля.

Если контроль не нужен, первый способ лучше.

[AlexanderP]

Подскажите, кто знает...
Как в Delphi написать код, чтобы программно узнать, какие пользователи (Имя) подключены к БД firebird.
И вообще, возможно ли это?

[Cze]

Цитата: Сообщение от AlexanderP какие пользователи (Имя) подключены к БД firebird.

в IBPlusесть свойство компонента TFIBDatabase.UserNames
Это и есть подключенные юзеры, седения о юзере можно узнать через TpFIBSecurityService.UserInfo

[Морковкин]

Может у кого то есть готовый исходник формы алиаса, для подключения к базе данных IB под сервер Firebird 2.0.?

[dim34rus]

Цитата: Сообщение от livand Может у кого то есть готовый исходник формы алиаса, для подключения к базе данных IB под сервер Firebird 2.0.?

Написал я типа менеджера алиасов, правда для FB1.5 Смысл такой: Есть база алиасов в ini файле, выбираешь нужный и выгружаешь в конфигурационный файл. Затем твоя программа тупо смотрит этот конфиг и организовывает подключение к базе. Если набо, мыло давай.