Spaltennamen ändern in Access2000 Tabelle

[Gerhard Wascinski]

Hallo an alle,
über ein AdoDatasset greife ich auf eine Tabelle in einer DB1.mdb Datei zu.
Nun möchte ich nachträglich einen bestehenden Spaltennamen ändern. Versucht habe ich das über den "Alter Table" SQL-Befehl.
Alle Bemühungen scheitern.
Hat jemand eine gute Idee ?
Vielen Dank im vorraus.

Gruss Gerhard

[Steffen H]

Im Zweifelsfall müsste es per ADOX funktionieren:

<pre><b>procedure</b> RenameColumn(db, tab, alt, neu: <b>String</b>);
<b>var</b> con: _Connection;
cat: _Catalog;
<b>begin</b>
con:=CoConnection.Create;
con.Open(<font color="#FF00FF">'Provider=Microsoft.Jet.OLEDB.4.0; Data Source='</font>+db, <font color="#FF00FF">''</font>, <font color="#FF00FF">''</font>, adConnectUnspecified);
cat:=CoCatalog.Create;
cat.Set_ActiveConnection(con);
cat.Tables[tab].Columns[alt].Name:=neu;
cat:=<b>Nil</b>;
con.Close;
con:=<b>Nil</b>;
<b>end</b>;
</pre&gt