🚀 go-pugleaf

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