Access - Mit SQL eine neue Spalte hinzufügen.

[Boy2melo]

Hallo alle zusammen.

Ich bin derzeit dabei ein Registrierprogramm zu schreiben. Mein Programm greift mit hilfe einer ADOConnection über das Netzwerk auf die Datenbank zu. Es soll während der Laufzeit eine Neue Spalte in die Datenbank hinzufügen. Ich habe versucht es mit einer ADOQuery und einem SQL befehl zu lösen aber das Programm gibt mir immer folgende Fehlermeldung:

"[...] ist eine Exceptiond er Klasse EOleException aufgetreten. Meldung:'Tabelle/Einschränkung kann nciht gefunden werden'.[...]"

Mein Quelltext sieht folgendermaßen aus:

Delphi-Quellcode:

procedure TFRegistration.Button1Click(Sender: TObject);
begin
  Query1.SQl.add('ALTER table TDatabase Add Spalte1 char(50)'); //Query1 = ADOQuery; TDatabase = Tabellenname
  Query1.Open;
end;

Kann mir vielleicht irgend jemand helfen? Vielen Dank.

[DeddyH]

Wenn ich das richtig interpretiere, heißt das in Access Text statt Char.

[Butch87]

So hab ich es gemacht...

Delphi-Quellcode:

ALTER TABLE "Tabellenname"
  ADD COLUMN "Feldname" "Feldtyp"

und Char als Felddatentyp is richtig.

edit: Ohne Anführungszeichen natürlich

[sx2008]

Zitat von Butch87:

Delphi-Quellcode:

ALTER TABLE "Tabellenname"
  ADD COLUMN "Feldname" "Feldtyp"

Jep. Der Unterschied zwischen Access und anderen Datenbanken (SQL/92) ist das Schlüsselwort COLUMN.

[Boy2melo]

Vielen Dank für die schnelle Antwort. Leider geht es immer noch nicht. Das Programm gibt mir immer die gleiche Fehlermeldung. Könnte vielleicht etwas mit der ADOQuery oder der ADOConnection nicht stimmen? Es ist das erste mal, dass ich diese benütze.

[nahpets]

Hallo,

bitte ändere zuerst einmalQuery1.Open; inQuery1.ExecSQL; Open will eine Ergebnismenge zurückliefern, die bei einem Alter-Table natürlich nicht vorhanden ist.
Funktionieren Select..., dann sind ADOConnection und ADOQuery in Ordnung.

Ansonsten: Zeig' uns bitte mal die Tabellenstruktur, gibt es Indexe, Constraints..., die von der Änderung betroffen sein könnten?

Die Fehlermeldung könnte darauf hinweisen, dass TDatabase (die Tabelle) nicht gefunden wird. Ist sie wirklich vorhanden? sprich: Liefert ein Select Count(*) from TDatabase über die ADOQuery ein Ergebnis?
Muss der Tabellenname eventuell in " oder ' oder ` oder ´ oder [] gesteckt werden, da weiß ich bei Access nie, was richtig ist.

[Butch87]

Zitat von nahpets:

Muss der Tabellenname eventuell in " oder ' oder ` oder ´ oder [] gesteckt werden, da weiß ich bei Access nie, was richtig ist.

Nein muss nicht. Hier mal mein SQL-Code aus der Query:

SQL-Code:

Alter Table T_Vorgang
Add Column PeriodenVerbrauch Float

und die Query führe ich dann über ein einfaches ExecSQL aus!
Wie nahpets schon sagte, ist die Tabelle überhaupt vorhanden??

[Boy2melo]

Vielen dank für die Antwort. Ja die Tabelle existiert. Das Programm greift in anderen Operationen auf sie zu, jedoch nicht mit SQL. Ich hatte bisher leider noc keine Zeit es aus zu probieren, aber ich werde es so bald wie möglich testen, nochmal vielen Dank.

Ps.: Gibt es eigentlich auch noch eine andere möglichkeit, außer SQL, während der Laufzeit eine neue Spalte zu erstellen?

[sx2008]

Zitat von Boy2melo:

Gibt es eigentlich auch noch eine andere möglichkeit, außer SQL, während der Laufzeit eine neue Spalte zu erstellen?

Ja, mit ADOX.

[Boy2melo]

So, jetzt habe ich es geschafft. Ist ein peinlicher fehler. Der Quellcode stimmt...Jedoch ist 'TDatabase' der Tabellenname der ADOTable in Delphi aber der Quellcode benötigt den Namen der Tabelle in Access. Vielen Dank für all die Hilfe.