Access - Während der Laufzeit eine neue Spalte hinzufügen

[Boy2melo]

Hallo alle zusammen.

Ich bin gerade dabei ein Registrierungsprogramm zu schreiben. Das Programm soll während der Laufzeit eine neue Spalte in die Datenbank einfügen. Kann mir irgendjmd helfen? Vielen Dank.

Boy2

[hoika]

Hallo,

per SQL.

SQL-Code:

Alter Table Tabellen_Name Add Feld_Name Char(20);

Heiko

[Boy2melo]

Vielen Dank.

Ich habe jedoch ncoh nie mit SQL gearbeitet. Wie kann einen SQL-Code einbinden? Im moment zeigt es bei mir immer noch an, dass 'Alter', 'Table', usw. undefinierte bezeichner sind.

[hoika]

Hallo,

zeig, doch mal was du hast.

Du brauchst auf jeden Fall ein ADOCommand,
etwa so

ADOCommand.Connection:= AdoConnection;
ADOCommand.CommandText:= 'Alter table ...');
ADOCommand.Execute;


Heiko

[Boy2melo]

Also:

Ich benütze eine ADOTable mit dem namen 'TDatabase'. Diese ist natürlich an eine ADOConnection gebunden. Wenn das Formular aufgerufen wird, importiert das Programm die derzeitigen Werte der Datenbank in eine Listbox (Das klappt). Nun soll es danach eine neue Spalte in die Datenbank einfügen:

Delphi-Quellcode:

procedure TFRegistration.FormActivate(Sender: TObject);
begin
  TDatabase.open;
  LBResults.clear;

  TDatabase.First;
  while not TDatabase.Eof do                             //Importiert die Datenbank in eine Listbox
    begin
      LBResults.Items.Add(TDatabase.FieldByName('Name').AsString + ' ' + TDatabase.FieldByName('Surname').AsString + ' - ' + TDatabase.FieldByName('D/Base').AsString);               //Name Nachname - Primärschlüssel
      TDatabase.Next;
    end;
end;

Vielen Dank
Boy2