renaming a table field with ADO

[pgwebece7]

Is it possible to rename a database table field
using either ADO objects or Jet SQL ?

 

[cmmrfrds]

Example using ADOX.
'-- 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

'- create a test table.
tb.Name = "Test"
tb.Columns.Append "col1", adInteger
tb.Columns.Append "col2aa", adVarWChar, 50
Debug.Print "table = "; cg.Tables("Test").Name
cg.Tables.Append tb
'' modify the test table.
'-rename a column
Set tb = cg("test")
Set cl = tb("col2aa")
Debug.Print cl
'- modify a property of the column.
cl.Properties("Jet OLEDB:Allow Zero Length") = True
cl.Name = "col2bb"
Debug.Print cl

 

[pgwebece7]

Sorry,my internet is dial-up and I was In hurry.
I forgot to mention I need a C++ code and with ACCESS *mdb files.

 

[cmmrfrds]

Set up a connection string to the Access.mdb from your program.

replace this with your connection.
Set cg.ActiveConnection = CurrentProject.Connection

Dim connString As String
Dim cn As New ADODB.Connection
connString = "provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\someserver\somedirectory\yourmdb.mdb;" & _
"Persist Security Info=False"
cn.ConnectionString = connString
cn.Open connString
Set cg.ActiveConnection = cn