🚀 go-pugleaf

I am wrestling with similar issues currently. Your example helps a lot
in getting things cleared up a bit. Are there any sources (books,
tutorials, etc) on the 'net where I could learn some more of this
stuff? I am mostly interested in manipulating and retrieving data from
a MS Access database from a DLL. I got your DB making example working
wonderfully from my DLL and would like to learn more of this stuff.

Thanks a lot for your help,

Ivo Karindi



"Vladimir Afanasyev" <avv@systema.kiev.ua> wrote in message
news:3e808207$1@newsgroups.borland.com...
>
> Hi,
>
> "guba" <admin@coka.co.yu> wrote:
> >How can I create Access table?
>
> Next sample creates new Access database (c:/new.md) and
> adds new table (MyTable) in this database:
> (Some additional try, catch preferable)
>
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
> #define adVarWChar 202
> #define adInteger 3
>
> Variant Catalog;
> Variant Table;
> Variant TablesDataBase;
> Variant Columns;
>
> if(FileExists("C://New.mdb"))
>         {
>          ShowMessage("Database exist");
>          Application->Terminate();
>          return;
>         }
>
> Catalog=Variant::CreateObject("ADOX.Catalog");
> Table=Variant::CreateObject("ADOX.Table");
>
> try{
> Catalog.Exec(Function("Create") << "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C://New.mdb;");
> }
> catch(...)
> {
> //problems - may be database already exist
> }
>
>
> //Creating table
> Table.Exec(PropertySet("Name") << "MyTable");
>
> Columns=Table.Exec(PropertyGet("Columns"));
> Columns.Exec(Function("Append") << "ItsFirstField" << adVarWChar << 20);
> Columns.Exec(Function("Append") << "Next" << adInteger);
>
> //add table in database:
> TablesDataBase=Catalog.Exec(PropertyGet("Tables"));
> TablesDataBase.Exec(Function("Append") << Table);
>
> TablesDataBase=Unassigned;
> Columns=Unassigned;
> Table=Unassigned;
> Catalog=Unassigned;
>
> }
>
> Vladimir.