🚀 go-pugleaf

AlexB wrote:

> 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.
> 

Hello Alex.

Your hint seems to be valuable, but I couldn't get it working. I didn't 
import "Microsoft ActiveX data object 2.x", since I have the ADO 
components package already installed. Nevertheless I had to install 
"Microsoft ADO Ext. 2.7". When trying to use your code, I couldn't 
manage the following attributions

 > Set cat.ActiveConnection = cn
 > cat.Tables("Authors").Name = "Authors2"  // rename

The Catalog class (TADOXCatalog) have neither "ActiveConnection" member 
and nor "Tables" method that satisfies the syntax you've described. Do 
you know what I'm doing wrong?

Thanks again,
Marcelo Leister.