🚀 go-pugleaf

Vassiliev, thank you very much.

I've tested your code & it works fine.

void __fastcall TfrmMain::btnCreateClick(TObject *Sender)
{
 WideString strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
  "Data Source=" + ExtractFilePath(ParamStr(0)) + "test.mdb";

 Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
 cat->Create(strConn.c_bstr());
 cat.Release();
}


Then I also debugged mine and found a few intersting anomalities about that
exception:

---------------------------
HRCHECK:
---------------------------
(this->Create(ConnectString, (VARIANT*)&Connection)) Error: 80040E17
(-2147217897) @ c:\programmi\borland\cbuilder6\Imports\ADOX_TLB.h/487
Press [Y]es to terminate, [N]o to continue and [C]ancel to Debug
---------------------------
S�   No   Annulla
---------------------------

On my string he could not manage the root-without-drive definition. It's a
long time ago, but I think it was a legal DOS statement.

    Data Source=.\\New.mdb";       fails
    Data Source=C:\\New.mdb";    works

Further this exception seems to be a catch-all type. It is produced also if
the file already exists, i.e. in our case pressing the button twice.

I've been working to create Tables and primary keys, as well as foreign
keys, in which case the table declaration sequence must be consistent of
course.

Trying to create a foreign key via ASSERTION makes an error. Can you do it
at all in MS ACCESS? Or is there another way to specify foreign keys outside
the table?

  ExecuteString=  "CREATE ASSERTION peppo \
                   FOREIGN KEY [ActiveNow](ETA) REFERENCES
[Tab2](ETA_PRKEY))";

Where do u find a list of implemented comands?

Tks again, Martin