Felder löschen

[day]

Hallo

Ich habe eine TempQuery mit der ich mehrere SQL-Statements absetze. Jedesmal nach dem dritten SQL-Statement wenn ich versuche die Tabelle zu öffnen bekomme ich eine Fehlermeldung und zwar das das feld nicht existiert. Allerdings bezieht sich das Feld das er nicht findet auf das SQL-Statement zuvor. Es scheint fast so zu sein, dass er die Felder irgendwie speichert.
wie kann ich die Felder wieder löschen?

Ich habe es auch schon mit TempView.FieldDefs.Clear; versucht aber ohne erfolg

Code:

  procedure TDM.setTempView(view : String;WhereStatement : String);
  begin
    try
      if(TempView.Active) Then TempView.Close;
      TempView.CommandText := Statement.getStatement(view,WhereStatement);
      TempView.Open;
     except
       On E:Exception Do CodeSite.SendError('Fehler beim öffenen der DetailOffert View : ' + E.Message);
     end;
  end;

[nieurig]

Nice Day !

Dein Code sieht so aus, als würdest Du keine Query verwenden sondern ein ADOCommand Objekt. (Query hat keinen "CommandText")

Ich mache das immer auf diesem Wege

Delphi-Quellcode:

  SQLAbfrage.Close;
  SQLAbfrage.SQL.Clear;
  SQLAbfrage.SQL.Add( neuerSQLString );
  SQLAbfrage.Open;

und hatte noch nie solche Probleme.

Eventuell ist ja auch die Routine

Delphi-Quellcode:

Statement.getStatement(view,WhereStatement);

Schuld, dass die vielleicht tatsächlich zweimal mit dem gleichen Statement arbeitet ?

Viel Erfolg
Niels

[ipworks]

Hi,
also ein TADOCommand gibt keine vernünftige Ergebnismenge zurück (nur die Anzahl der betroffenen Datensätze).
Entweder DU schreibt für TADOQuery

Delphi-Quellcode:

procedure TDM.setTempView(view : String;WhereStatement : String); 
  begin 
    try 
      if(TempView.Active) Then TempView.Close; 
      TempView.SQL.Text := Statement.getStatement(view,WhereStatement); 
      TempView.Open; 
     except 
       On E:Exception Do CodeSite.SendError('Fehler beim öffenen der DetailOffert View : ' + E.Message); 
     end; 
  end;

oder für TADOCommand

Delphi-Quellcode:

procedure TDM.setTempView(view : String;WhereStatement : String); 
  begin 
    try 
      // if(TempView.Active) Then TempView.Close; 
      TempView.CommandText:= Statement.getStatement(view,WhereStatement); 
      TempView.Execute; 
     except 
       On E:Exception Do CodeSite.SendError('Fehler beim öffenen der DetailOffert View : ' + E.Message); 
     end; 
  end;

Viel Spass
Peter

[day]

Hallo

Ich habe vergessen anzugeben das TempView vom Typ TClientDataSet ist.

Code:

Statement.getStatement(view,WhereStatement);

diese Routine sollte gehen da ich jedes einzelne Statement geprüft habe und es ohne probleme funktioniert.