SQL Abfrage auf Access .mdb

[alphaflight83]

Tag DP-Gemeinde,
bin jetzt schon ne weile im Forum angemeldet,
und konnte auch schon einige Lösungen hier finden.
Jetzt komme ich hier auch mal zu einem Eigenen Beitrag.

Folgendes Problem steht bei mir an:
Mein Programm soll mehrere Clients permanent überwachen,
nun soll bei Programmstart eine lokale Access Liste angelegt werden,
die aus Informationen der Clients besteht, welche am Server angemeldet sind.
Aus dieser Liste wiederum sollen nun die IDs aller Clients die abgefragt werden sollen,
in Delphi in ein dyn Feld geschrieben werden.
Hierzu wiederum wird am Server eine Flag gesetzt, die in der Access Tabelle das Feld Status auf 'Y' setzt
(Etwas ungünstig, da String obwohl Bool gereicht hätte, geht aber Server seitig nun nicht mehr anders)

Langer Rede kurzer Sinn:
Momentan rufe ich einfach alle IDs der in der Liste eingetragenen Clients ab, ohne auf den Status zu achten.

Delphi-Quellcode:

 DataModule.ADOTableClients.Active := True;
 NumberOfClients := DataModule.ADOTableClients.RecordCount;
 SetLength(Client_ID_Array, NumberOfClients);

 for i := 0  to  (NumberOfClients - 1) do
   begin
   Client_ID_Array[i]:=  DataModule.ADOTableClients.FieldByName ('ID').AsInteger;
   DataModule.ADOTableClients.Next;
 end;

Das funktioniert auch wunderbar, nur werden später eben auch die Geräte gepollt die gar nicht benötigt werden.
Um das zu ändern nehme ich statt der Table eine Query:

Delphi-Quellcode:

with DataModule.ADOQueryClients do
  begin
    Close;
    SQL.Text := 'SELECT ID FROM Clients WHERE Status LIKE :Status ';
    Parameters.ParamByName('Status').Value:='Y';
    Open;
    NumberOfClients := RowsAffected;
  end;

Kompiliert auch, tut aber nichts, sprich NumberOfClients ist immer 0.
Da ich die Delphi Geschichte jetzt erst seit knapp 2 Monaten mache und die Zeit mit Datenbanken
in Delphi noch erheblich kürzer ist, kanns natürlich sein, dass das nur Blödsinn und der Fehler recht simpel ist.
Ich find ihn aber leider nicht :coder2:
Dann muss natürlich auch noch die for Schleife für die Query angepasst werden, wobei ich hier momentan auch noch etwas auf dem Schlauch stehe.

Wäre schön wenn mir hier jemand bei diesem Problem helfen könnte.

[mkinzler]

Warum like? Dann brauchst du auch den Joker

[alphaflight83]

Auch ein = ändert nichts am Ergebnis, oder hab ich dich falsch verstanden?
Edit: Nur zum Verständnis: Wenn mein Wert genau Y ist, dann sollte doch auch ein LIKE ohne Joker funktionieren, oder?

[DeddyH]

Irre ich mich, oder gibt RowsAffected die Anzahl der durch ein Statement geänderten Datensätze zurück?

[edit] Achja, Willkommen in der DP :dp: [/edit]

[alphaflight83]

Zitat:

Die Eigenschaft RowsAffected gibt an, auf wie viele Datensätze bei der letzten Ausführung einer Abfrage zugegriffen wurde.

Edit: ups, man sollte auch weiterlesen :oops:

Zitat:

RowsAffected ist 0, wenn keine Datensätze aktualisiert oder gelöscht wurden

Edit2: Aber auch RecordCount gibt kein Ergebnis zurück.

@DeddyH: Danke, fühl mich schon recht wohl :-D

[Codewalker]

Wenn es dir nur um die Anzahl geht, dann schreib doch ein "Select count(........)"-SQL. Dann sparst du dir das ermitteln über Delphi und Recordcount & co.

[alphaflight83]

Ich möchte ja dann auch die IDs der ermittelten Datensätze haben, damit ich später nur diese Clients pollen kann.
Die Anzahl stellt dabei nur die Längenangabe für das dynamische Array und den Zähler der for-Schleife dar.
Die SQL Anweisung funktioniert eben im Delphi Kontext irgendwie nicht.
Im SQL Editor gibt er mir brav die gewünschten Datensätze zurück.

[DeddyH]

Geh doch mal mit Last auf den letzten Datensatz, bevor Du den RecordCount abfragst. Ich meine mal gelesen zu haben, dass das helfen soll.

[alphaflight83]

... auch nicht.
Hab auch mal versucht den Parameter wegzulassen:

Delphi-Quellcode:

SQL.Text := 'SELECT TT_ID FROM Machines WHERE Status = ''Y'' ';

Aber das hatte auch nicht den gewünschten Effekt.

[DeddyH]

Und Du bist ganz sicher, dass Du die richtige Datasource zugewiesen hast bzw. die Abfrage auch tatsächlich ausgeführt wird? Mal einen Breakpoint gesetzt? Ist sicherlich nur ein kleiner dummer Fehler, aber so etwas sucht man meist ewig.