🚀 go-pugleaf

Import ADOX tyle library (Project\Import type library in menu - "Microsoft
ADO Ext. 2.x for DDL and Security"). It is good to add "ADOX" to class names
(i.e. change TTable to TADOXTable etc.).


#include <ADOX_tlb.hpp>;

...
 WideString dbName =
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
ExtractFilePath(ParamStr(0)) + "test.mdb";

 Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
 cat->Create(dbName.c_bstr());

You may also need to add

#include <comobj.hpp>

namespace System
{
 void __fastcall CheckSafecallResult(HRESULT hr)
 {
  OleCheck(hr);
 }
}

----------------------------------------------------------------
Regards,
Viatcheslav V. Vassiliev
http://www.oledbdirect.com
The fastest way to access MS SQL Server, MS Jet (MS Access)
and Interbase (through OLEDB) databases.


"Palmetzhofer Dietmar" <dietmar.palmetzhofer@boku.ac.at> �������/�������� �
�������� ���������: news:3f24e0b8@newsgroups.borland.com...
> When trying to create a database, I'll get an exception (Bad Variant
Type).
> Has anyone a fully functional Code of this demo?
> Thanks,
> Didi
>
>