🚀 go-pugleaf

Import ADOX type library and execute

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

or

  CatalogPtr cat = CoCatalog::Create();
  cat->Create(strConn);


You may also need to add

#include <comobj.hpp>

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

All strings should be declared as WideString, not as AnsiString.

CoInitialize()/CoUninitialize() - do not call them, just include ComObj
unit. They are needed only in dlls.

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

"Pat" <pat-rizio@libero.it> ???????/???????? ? ???????? ?????????:
news:3ffd3ee0@newsgroups.borland.com...
> Hi,
> looking the past posts I learned how I can create a new linked-table in
> an existing MS Access database, using ADO components and SQL commands.
> Now I'm trying to understand how I can create a new MS Access database,
> so could you please explaine better the source code you post?
>
>  > I'm creating an MS Access database with:
>  >
>  > Variant Catalog;
>  > Variant Connection;
>  > CoInitializeEx(NULL, COINIT_MULTITHREADED);
>  > Catalog=Variant::CreateObject("ADOX.Catalog");
>  > Catalog.Exec(Function("Create") << strConnectionString);
>  > Connection = Catalog.Exec(PropertyGet("ActiveConnection"));
>  > ...
>  > Connection.Exec(Function("Close"));
>  > CoUninitialize();
>
> In strConnectionString I put yhe following:
> "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Dource=db.mdb;Mode=ReadWrite|Share Deny None";
>
> but BCB6 give me a memory error when I run the program, even if it
> create the MS Access database.
>
> What's the meaning of
>  > CoInitializeEx(NULL, COINIT_MULTITHREADED);
>
> because I don't found anything about it in the BCB6 guide.
> Thanks for the answer.
> Pat
>