Wie füge ich zur Laufzeit ein Feld in eine Accesstabelle ein

[niao]

Kann mir bitte jemand helfen!

ich muss mit Delphi zur Laufzeit ein Feld in eine Accesstabelle hinzufügen.
Habe aber gar keinen Plan wie das funktioniert. Ich greife mittels DAO auf die
Accessdatenbank zu und sprecche die jeweiligen Tabellen mit einen Dataset an.

Vielen Dank vorab!

[sx2008]

Folgende SQL Anweisung absetzen:

SQL-Code:

ALTER TABLE MeineTabelle ADD COLUMN NeuesFeld varchar(50)

http://office.microsoft.com/de-at/ac...314311031.aspx

[niao]

Hallo!

vielen Dank für die Antwort.
Ich weis nun, das ich ein SQL-Befehl ausführen muss, um ein neues Feld einzufügen. Aber wie?
Zur Laufzeit verfüge ich nur über ein TADODataset.

Bitte helft mir!

Vielen Dank!

[sx2008]

Delphi-Quellcode:

AdoDataset1.CommandText := 'ALTER TABLE MeineTabelle ADD COLUMN NeuesFeld varchar(50)';
AdoDataset1.Execute;  // könnte auch ExecSQL heisen; bitte in Hilfe nachschauen

[niao]

Hi,

vielen Dank für die rasche Antwort, aber funcioniert nicht.

Procedure SetNewFiled(aConnection: TADOConnection; TableName, FieldName: String);
begin
ADOQuery.Connection := aConnection;
ADOQuery.SQL.Text := 'ALTER TABLE ' + TableName + 'ADD COLUMN ' + FieldName +' varchar(200)';
ADOQuery.ExecSQL;
end;

Bei ExecSQL kommmt folgender Fehler: Exception EOleException: Syntaxfehler in ALTER TABLE-Anweisung

Wer kann bitte helfen!

[omata]

Delphi-Quellcode:

ADOQuery.SQL.Text := 'ALTER TABLE ' + TableName + ' ADD COLUMN ' + FieldName +' varchar(200)'; 
                                                   ^

[niao]

Hi,

vielen Dank! Jetzt funktioniert es.

procedure SetNewFiled(aConnection: TADOConnection; TableName, FieldName: String);
var
ADOQuery: TADOQuery;
begin
with ADOQuery.Create(nil) do
try
ConnectionString := GetDSN;
Connection := aConnection;
SQL.Text := 'ALTER TABLE ' + TableName + ' ADD COLUMN ' + FieldName +' varchar(200)';
ExecSQL;
finally
Free;
end;
end;