how can I rename a column in code?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

how can I rename a column in vb6 code using either ADO or a SQL statement?
the database is Access 2000.
 
I don't believe it's possible using ADO or SQL: the ALTER COLUMN DDL
statement doesn't allow for column renames (although you can alter other
properties of a column using DDL)

You can do it using DAO or ADOX though.
 
Don't suppose you could provide an example?

Douglas J. Steele said:
I don't believe it's possible using ADO or SQL: the ALTER COLUMN DDL
statement doesn't allow for column renames (although you can alter other
properties of a column using DDL)

You can do it using DAO or ADOX though.
Click to expand...
 
DAO:

Dim dbCurr As DAO.Database

Set dbCurr = OpenDatabase("....")
dbCurr.TableDefs("MyTable").Fields("MyOldFieldName").Name =
"MyNewFieldName"

ADOX:

I think it's

Dim cnnCurr As ADOX.Connection
Dim catCurr As ADOX.Catalog

Set cnnCurr As New ADOX.Connection
cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='...';"
Set catCurr.ActiveConnection = cnnCurr
catCurr.Tables("MyTable").Columns("MyOldFieldName").Name =
"MyNewFieldName"
 
Many Thanks Doug, will give it a try.

Douglas J. Steele said:
DAO:

Dim dbCurr As DAO.Database

Set dbCurr = OpenDatabase("....")
dbCurr.TableDefs("MyTable").Fields("MyOldFieldName").Name =
"MyNewFieldName"

ADOX:

I think it's

Dim cnnCurr As ADOX.Connection
Dim catCurr As ADOX.Catalog

Set cnnCurr As New ADOX.Connection
cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='...';"
Set catCurr.ActiveConnection = cnnCurr
catCurr.Tables("MyTable").Columns("MyOldFieldName").Name =
"MyNewFieldName"
Click to expand...
 
Douglas said:
ADOX: I think it's (snipped)
Click to expand...

Not quite. Try this:

Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog

With cat
.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=filenamehere;"
.Tables("MyTable").Columns("MyOldColumnName").Name _
= "MyNewColumnName"
End With
 
Back
Top