Re: Совместное использование BDE и FIBPlus

Tue, 06 Oct 2009 05:50:12 -0700 

6 октября 2009 г. 14:28 пользователь Konstantin R. Beliaev <[email protected]>написал:

>
> Ну, вспоминая мой переезд c БДЕ, все должно работать.
> Правда это было еще на Delphi-3... :-)
> http://konstb.newmail.ru/interbase/hints.html#oneconnect
>
>
Спасибо. Но так же зависает.

procedure TForm1.Button3Click(Sender: TObject);
var h : tisc_db_handle;
    l: word;
begin
  Database1.Open;
  pFIBDatabase1.DBName:='Cloned';
  DBTables.Check(DbiGetProp(HDBIOBJ(Database1.Handle),
                 dbNATIVEHNDL, @h, sizeof(tisc_db_handle), l));
  pFIBDatabase1.Handle:=h;
  pFIBDatabase1.Open;
  ListQ.Open;
  Query1.Open;
end;

Может быть там с транзакциями какая-нибудь тонкость?

Ответить