Для начала для освоения пытаюсь создать простенький проект, подключить базу FireBird, потестировать элементарные вещи с ней. Но сразу возникает проблема:
Почему-то не выполняется функция TIBTable.FindFirst...
Причем и результат возвращает о неудаче и курсор не переводит на первую запись.
Просто не работает и все, хотя DBGrid показывает содержимое таблицы.
Кстати TIBTable.First работает.
Описание тестового проекта:
Я создал простой проект с одной формой, одной базой данных TIBDataBase, одной транзакцией, одной таблицей TIBTable, одним TDBGrid и кнопкой. В дизайн-тайм у меня все отключено. Открываю базу и транзакцию при открытии таблицы:
Код: Выделить всё
procedure TForm1.FormShow(Sender: TObject);
begin
IBDataBase1.Connected := true;
IBTransaction1.Active := true;
IBTable1.Open;
end;
Код: Выделить всё
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if IBTable1.FindFirst then ShowMessage('Работает');
end;
НЕ РАБОТАЕТ!!! Причем при закрытии единственной формы программа виснет!Подскажите, в чем может быть проблема?
Может я базу неправильно открываю?
У меня Delphi 7, FireBird 1.5.3
