🚀 go-pugleaf

In BCB6 this looks as:

#include <ADODB_tlb.h>
#include <ADOX_tlb.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 //Database file
 WideString db = "C:\\Temp\\Test.mdb";
    if (FileExists(db)) DeleteFile(db);

 //Connection string
 WideString strConn = WideString("Provider=Microsoft.Jet.OLEDB.4.0;") +
  WideString("Data Source=") + db;

 {
  //Create database
  CatalogPtr cat = CoCatalog::Create();
  cat->Create(strConn);
 }

 //Open connection
 ConnectionPtr conn = CoConnection::Create();
 conn->Open(strConn.c_bstr(), WideString("").c_bstr(),
WideString("").c_bstr(), -1);

 tagVARIANT RecAffected;
 RecAffected.vt = VT_I4;
 RecAffected.intVal = 0;

 //Create table - here you can execute any SQL command
 conn->Execute(WideString("Create table [MyTable] ([Col1] Int Primary Key,
[Col2] VarChar(15))").c_bstr(),
  &RecAffected, adExecuteNoRecords);
}

If you are using BCB5 - be sure to delete all functions with GhostMethod_ in
name from imported type libraries.

----------------------------------------------------------------
Regards,
Viatcheslav V. Vassiliev
http://www.oledbdirect.com
The fastest way to access MS SQL Server, MS Jet (MS Access)
and Interbase (through OLEDB) databases.

"Lee" <gobroski@elltel.net> �������/�������� � �������� ���������:
news:3f41bf11@newsgroups.borland.com...
> Hello,
>
> I see that this is exactly what I need, but I am unsure on how to
implement
> the code to get the results that I desire.
>
> Thank you for your help though...  At least I have a map, with a
> destination.
>
> Lee
>
>
> "Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
> news:3f40a28b$1@newsgroups.borland.com...
> > You are using OleVariant to work with Com object and I prefere to use
> > imported type library. So I will show code in JScript - you should have
no
> > problems converting it to C++:
> >
> > //Database file
> > var db = "C:\\Temp\\Test.mdb";
> > //Connection string
> > var strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +
> >  "Data Source=" + db;
> >
> > //Create database
> > var cat = new ActiveXObject("ADOX.Catalog");
> > cat.Create(strConn);
> > cat = null;
> >
> > //Open connection
> > var conn = new ActiveXObject("ADODB.Connection");
> > conn.Open(strConn, "", "", -1);
> >
> > //SQL DDL command returns no recordset, this will optimize execute
method
> > var adExecuteNoRecords = 0x80;
> >
> > //Create table - here you can execute any SQL command
> > conn.Execute("Create table [MyTable] ([Col1] Int Primary Key, [Col2]
> > VarChar(15))",
> >  null, adExecuteNoRecords);
> >
> > ----------------------------------------------------------------
> > Regards,
> > Viatcheslav V. Vassiliev
> > http://www.oledbdirect.com
> > The fastest way to access MS SQL Server, MS Jet (MS Access)
> > and Interbase (through OLEDB) databases.
> >
> >
>
>