1:
2:
3:
4:
5:
6:
7:

if fileexists('last_Funk.db') then
          WITH ADOQuery16 DO
            BEGIN LoadFromFile('last_Funk.db');
                  Last;
                  First;
                  LabeL509.Caption := IntToStr(RecordCount);
            END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

with ADOQuery16 do
          begin Close;
                SQL.Clear;
                SQL.Text := 'SELECT * FROM FUNK'; //Habe jetzt extra gekürzt zur Fehlersuche
                Prepared := False;
                Open;
                Last;
                First;
                LabeL509.Caption := IntToStr(RecordCount);
          end;					

1:

SQL.Text := 'SELECT * FROM FUNK WHERE TEAM LIKE ''%GSM%'' ORDER BY User';					

1:
2:
3:
4:
5:

---------------------------
Die Datei SELECT * FROM FUNK

 kann nicht gefunden werden.
---------------------------					

1:
2:

WITH ADOQuery16 DO
  BEGIN LoadFromFile('last_Funk.db');					

1:
2:

with ADOQuery16 do
  begin Close;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedure FunkOfflineFiltern(s:string);
begin
 with Form1, ADOQuery16 do
  begin Edit113.Text := s;  // Zur Anzeige, was da gerade passiert
        Filtered := False;
        Filter := s;        // 'Team LIKE ' + QuotedStr('%' + ComboBox3.Text + '%')
        Filtered := True;
  end;
end;