Einzelnen Beitrag anzeigen

manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#1

Fibplus Dataset / SQL ändern

  Alt 17. Nov 2008, 17:41
Datenbank: Firbird • Version: 1.5 • Zugriff über: Fibplus
Hallo zusammen

versuche momentan die SQL's eines Datasets zu ändern.

1. Es wird der SQL-String definiert

Delphi-Quellcode:
procedure TDM_hospital.dataset_sql_setup(Sender: TObject);
begin
  sql_string_default := 'SELECT * FROM HOSPITAL '+
                        'WHERE (STAT_DEL ='+'0'+') ORDER BY NAME';
end;
2. Der SQL-String soll wird "verwendet"

Delphi-Quellcode:
procedure TDM.dataset_setup(Sender: TObject);
begin
  DB_Gideons.Open;
  with Default do
  begin
    close;
    SelectSQL.Clear;
    SelectSQL.Add (sql_string_default);
    GenerateSQLs;
    Open;
  end;
end;
Leider lässt sich das Dataset nicht aktualisieren und behällt immer die "alten" Daten drin.

bin für Tipps dankbar.
Manfred
  Mit Zitat antworten Zitat