🚀 go-pugleaf

For me your code works (BCB6). I sent you project that works.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Robert Emmons" <remmons@aurigen.com> ???????/???????? ? ???????? ?????????:
news:4voql0l82udr0ue7h46qpu77a9nkjs2jfn@4ax.com...
> I open an catalog in ADOX, but I cannot close it.  Here is my code:
>
> Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
> Variant linkDbPathConnectStr =
>        WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
>        + linkDbPath);
> cat->set_ActiveConnection(linkDbPathConnectStr);
> cat.Release();
>
> I also tried cat->Release(), but it genrerates an error "R6025 - pure
> virtual function call."  Either way, the MS-Access database does not
> close.
>
> How can I close the database connection?