🚀 go-pugleaf

You are code is for MS SQL Server and will not run with any other DBMS. For
MS Jet (MS Access) use ADOX.

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.

//------------------------------------------
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:4087d2f4@newsgroups.borland.com...
> Hi,
>
> I'm just starting with ADO and want to interface Access DB.
>
> Trying to create a new database file, I've 'copied' from other posts
> following code:
>
>   AdoCmd->CommandText =
>
>   " CREATE DATABASE [Admin]  ON (NAME = N'Admin', FILENAME = \
>   N'C:mymdf.mdf' , SIZE = 20, FILEGROWTH = 10%) LOG ON (NAME = \
>   N'Admin', FILENAME = N'C:\mymdf.ldf' , SIZE = 2, MAXSIZE = 13, \
>   FILEGROWTH = 10%)"
>   ;
>
>   Memo1->Lines->Append(AdoCmd->CommandText);
>
>   AdoCmd->Connection = ADOConnection;
>   AdoCmd->Execute();
>
> AdoCmd & AdoConnection are set on the Form; provider string for connection
> is Microsoft.Jet.OLEDB.4.0
>
> I get an exception for 'failed authentication'
>
> ?
>
> Anyone has a good link for an Ado tutorial or a quickstart?
>
> Tks & Rgds, Martin
>
>