MYSQL Abfrage mit ZEOS? Datensatz vorhanden?

[Sharky]

Ha Kidix,

dafür gibt es die WHERE Bedingung um die Abfrage mit einem Filter zu versehen.
Diese Code würde dir alle Einträge gebn wo das Feld user den Inhalt "Egon" hat:

Delphi-Quellcode:

begin
  form1.verbinden;
  form1.qrMain.SQL.Text:='SELECT * FROM uptime WEHERE user = :name';
  form1.qrMain.ParamByName ('name').AsString := 'Egon';
  form1.qrMain.Open;
end;

Da Du aber wissen möchtest ob es den User "Egon" schon gibt würde ich mir einfach die Anzahl der "Egons" in der Tabelle zurück geben lassen;

Delphi-Quellcode:

var
  anzahl : Integer;
begin
  form1.verbinden;
  form1.qrMain.SQL.Text:='SELECT Count(user) AS anzahl FROM uptime WEHERE user = :name';
  form1.qrMain.ParamByName ('name').AsString := 'Egon';
  form1.qrMain.Open;
  anzahl := form1.qrMain.FieldByName('anzahl').AsInteger;
  if (anzahl = 0) then
  begin
    ShowMessage ('Es gibt keinen Egon');
  end
  else
  begin
    ShowMessage (Format ('Es gibt den User Egon &d mal',[anzahl]));
  end;
end;