Hallo LOMBI,
da ich mich momentan auf Prüfungen vorbereiten muss, habe ich leider sehr wenig Zeit. Daher kann ich Dir nur aus der Onlinehilfe von Absolute Database etwas posten. Eventuell hilft es Dir weiter. Das ist eigentlich genau das, was Du gesucht hast - hoffe ich jedenfalls
ABSDatabase Hilfe -> Advanced Topics -> Restructuring Tables
Delphi-Quellcode:
var
Log: String;
{set up table component}
ABSTable1.DatabaseName := 'emp_db';
ABSTable1.TableName := 'employee';
{fill in restructure properties}
ABSTable1.Open;
ABSTable1.Close;
with ABSTable1 do
begin
{specifying new table fields}
with RestructureFieldDefs do
begin
Add('Hobby',aftString,30,False);
Add('Comment',aftMemo,0,False);
end;
{specifying new table indexes}
with RestructureIndexDefs do
begin
Add('idxHobby','Hobby',[]);
end;
{restructure}
if (RestructureTable(Log)) then
ShowMessage('Restructure completed')
else
ShowMessage('Restructure errors: '+Log);
end;
Hoffe das hilft Dir weiter. In 2 Wochen habe ich wieder mehr Zeit....
Liebe Grüsse,
SCRaT