🚀 go-pugleaf

Try to connect with ADO connection and execute "DROP TABLE [TestTable]"

//------------------------------------------
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)

"Robert Emmons" <remmons@aurigen.com> ???????/???????? ? ???????? ?????????:
news:og8520d10kpvlonqulpj7o63duubouhha7@4ax.com...
> I'm trying to write code to delete a table from an MSAccess database.
> My code compiles, but does not delete the table.  I would appreciate
> any suggestions.  Here is the code:
>
>
>     WideString thisDb  = "C:\\data\\HitTemp.mdb";
>     WideString thisTbl = "TestTable";
>
>     Variant thisDbConnectStr =
> WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + thisDb);
>
>
>     Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
>     cat->set_ActiveConnection(thisDbConnectStr);
>
>     Adox_tlb::TCOM_Table tbl = CoTable::Create();
>     tbl->set_Name(thisTbl.c_bstr());
>     tbl->ParentCatalog = cat;
>
>     cat->Tables->Delete(Variant((IDispatch*)tbl));
>     cat->Tables->Refresh();
> //    cat->Release();
>
>
>