🚀 go-pugleaf

Hello,

Thank you for your time,
I will give that a try today and let you know

Lee


"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:3f41f9ca$1@newsgroups.borland.com...
> 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.
> > >
> > >
> >
> >
>
>