🚀 go-pugleaf

Helo Vladimir

Thank you the example, but I cant it run. The BCB 5 show me a few errors.


"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(...)
{
file://problems - may be database already exist
}


file://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);

file://add table in database:
TablesDataBase=Catalog.Exec(PropertyGet("Tables"));
TablesDataBase.Exec(Function("Append") << Table);

TablesDataBase=Unassigned;
Columns=Unassigned;
Table=Unassigned;
Catalog=Unassigned;

}

Vladimir.