🚀 go-pugleaf

What is your IDE (BCB6, BCB5)? I will send you working example with imported
type library (I do import without creating VCL components).

//------------------------------------------
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)

"Martin Moeller" <martin.moeller@moema.it> �������/�������� � ��������
���������: news:4089186f@newsgroups.borland.com...
> Modified the code after importing the ADOX libray as suggetsed, but still
> can not create my first database.
> I get an exception for Widestring/variant conversion. It is:
>
> Project ... raised exception class EOleException with message
> '(this->Create(ConnectString, (VARIANT*)&Connection)) Error: 80040E17
> (-2147217897) @...
>
> The source is just:
>
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
>
> //  if(CoInitialize(NULL)!=S_OK)
>     Beep();
>
>   WideString strConn="Provider=Microsoft.Jet.OLEDB.4.0; \
>                       Data Source=.\\New.mdb;  \
>                       ";
>
>   Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
>   cat->Create(strConn.c_bstr());
>
>
> //  CoUninitialize();
>
> }
>
> I also tried but get the same error using a catalog component placed on
the
> Form
>
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
>
>   WideString strConn="Provider=Microsoft.Jet.OLEDB.4.0; \
>                       Data Source=.\\New.mdb;  \
>                       ";
>
>   AdoxCatalog1->Create(strConn.c_bstr());
>
> }
>
>
> while the suggested alternative returns a double declaration compiler
erros
>
>   CatalogPtr cat2 = CoCatalog::Create();
>   cat2->Create(strConn);
>
>
>
> Tks, Martin
>
>