MYSQL Abfrage mit ZEOS? Datensatz vorhanden?

[Kidix]

Hi,


ich verbinde mich mit meiner Datenbank per Zeos Komponente, alles schön ung gut, jetzt möchte ich wissen ob in der Datenbank blablabla in der Tabelle 1 Spalte Name der Name "Egon" vorhanden ist, wenn ja möchte ich weiter vorgehen, ich bekomm aber die Abfrage nicht hin:

Delphi-Quellcode:

form1.verbinden;
form1.qrMain.SQL.Text:='Select * from `uptime` order by user;';
  form1.qrMain.Open;

doch wie jetzt weiter? Andere Abfragen von Kompletten Datensätzen bekomme ich mit EoF hin, weiß aber nicht ob ich prüfen kann ob der Name in der Tabelle schon vorhanden ist.

Gruß

Kidix

[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;