Felder löschen

[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