🚀 go-pugleaf

M.Leister wrote:

> I was trying yesterday to find a solution on how to rename a table in 
> either MsAccess, or Paradox or even DBASE using TADO... components.
 > Could someone give a hint on how to do it programatically?

Searching for MSDN... Result:

HOWTO: Change an Access Table Name Programmatically (Q291017)
--------------------
SUMMARY
There are several ways to change a Microsoft Access table name in a 
Visual Basic application, some of which include the use of SQL, OLE 
automation, or Microsoft ActiveX Data Objects Extensions for Data 
Definition Language and Security (ADOX). The simplest method is to use 
ADOX to rename a table.

MORE INFORMATION
To use a Visual Basic 6.0 project to change an Access table name 
programmatically by using ADOX, do the following:

Open a new Standard EXE project in Visual Basic. Form1 is created by 
default.

On the Project menu, click to select References, and then add references 
to Microsoft ActiveX data object 2.x library and Microsoft ADO Ext. 2.x 
for DDL and Security.

Paste the following code into the form load event:

Dim cn As ADODB.Connection
Dim t As Table

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=C:\biblio.mdb"
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = cn
cat.Tables("Authors").Name = "Authors2"  // rename

'Iterate through the tables collection
For Each t In cat.Tables
   If t.Name = "Authors2" Then
     Debug.Print t.DateModified
   End If
Next

cn.Close
Set cn = Nothing
-------------------------
i.e. you can use ADOX.
How to start with ADOX:
http://delphi.about.com/od/database/l/aa072401a.htm
-------------------------
AlexB.