Rename column - ADO or SQL??

[briglass]

How do I rename a column's name in an access database from within visual basic, using ADO or SQL?

Thanks,
Brian

 

[WildHare]

Check out the ALTER TABLE SQL commands that can be issued...

How many of you believe in telekinesis? Raise my hand...
Another free Access forum:

http://www.forumco.com/jmhare

More Access stuff at

http://www.jmhare.com/wildhare2.htm

 

[cmmrfrds]

For ADO - a little extra code if you want to set up a test.

Function catalogInfo()
'-- set reference to ADOX library
'- Microsoft ADO Ext. 2.6 for DDL and Security
'-- Microsoft ActiveX data objects 2.6 library also needed for ADO

Dim cg As New ADOX.Catalog
Dim tb As New ADOX.Table
Dim cn As ADODB.Connection
Dim cl As ADOX.Column
Set cg.ActiveConnection = CurrentProject.Connection

'-Add a table
''tb.Name = "Test"
''tb.Columns.Append "col1", adInteger
''tb.Columns.Append "col2", adVarWChar, 50
''Debug.Print "table = "; cg.Tables("Test&quot.Name
''cg.Tables.Append tb
''Exit Function
'-Rename a column
Set tb = cg("test&quot
Set cl = tb("col2&quot
cl.Name = "col2aa"
'-It is done

Exit Function