Access Abfrage per SQL erweitern

[schniede]

Etwas weiter unten "Access neues Feld anlegen" ist der Start meiner Geschichte.
Soweit so gut.
Also Neue Tabelle (Versionsinfo) u. eine Tabelle erweitert zur Laufzeit klappt ohne Probleme, nach Bummis Vorschlag im AfterConnect.
Nun hab ich aber das Problem das ich eine Abfrage erweitern möchte.Mache ich das ganze
per Access Oberfläche geht das ja ohne Probleme, nur wie kann ich soetwas zur Laufzeit machen.
Wenn ich ein Feld im Feldeditor der Query hinzufüge bekomme ich ne Fehlermeldung, nach einer Datenanderung, das mehrere Recordsets nicht möglich sind. Mache ich das ganze statisch wie gesagt klappt alles.
Ich suche sowas wie Alter Abfrage.... die bestehende Abfrage ist schon mit der Access
Oberfläche vorhanden, nur wie gesagt ein Feld soll noch hinzu.

Gruß schniede

[Bummi]

meinst Du

Code:

DROP View ViewName

und danach

Code:

Create View ViewName as
...
...

ich hab mal ein Beispiel unserer Scripte angehängt

[schniede]

Also damit kann ich eine Abfrage erstellen

Code:

 with NeuQuery do begin
   sql.clear;
   NeuQuery.SQl.add('create view test as select Memory from geraetetabelle');
   ExecSQL;
   end

;

Danach habe ich in der Datenbank eine Abfrage Test mit dem Feld Memory, aber ich möchte eine vorhandene Abfrage ändern.

[Bummi]

Ich würde zwar AdoConnection.Execute(SQL) schreiben, aber ja.

[schniede]

So für alle die es vieleicht interressiert, meine Lösung des Problems.

Delphi-Quellcode:

   with NeuQuery do begin
   sql.clear;
   NeuQuery.SQl.add('drop view Geraeteabfrage');
   ExecSQL;
   end;

   with NeuQuery do begin
   sql.clear;
   SQl.add('create view Geraeteabfrage as select Memory,Seriennummer,Eingang
      ,Ausgang,Ausgabe,GeraeteID,Bemerkung,Bestellnummer
      , Bezeichnung,Gruppen_id, Sortierung, exelnr, Zustand,');

   sql.Add('[Zustandtabelle].Zustand_id ');

   sql.add('FROM [Zustandtabelle] INNER JOIN ([Bestellnummerntabelle] INNER
     JOIN   [Geraetetabelle] ON Bestellnummerntabelle.Bestell_id = Geraetetabelle.Bestell_id)
     ON Zustandtabelle.Zustand_id = Geraetetabelle.Zustand_id');
   ExecSQL;
   end;

großes Danke Bummi