Rückgabewert aus Query auslesen

[DeddyH]

Evtl. so?

Delphi-Quellcode:

with ZQuery do begin
     Close; 
     // anzahl bestimmen
      SQL.Clear;
      SQL.Add('SELECT COUNT(*) As Anzahl FROM (SELECT * FROM tblTracks WHERE path = :path);');
      ParamByName('path').AsString := tmp.Strings[i];
      Open;
      Anzahl := FieldByName('Anzahl').AsInteger;
      Close;

      // anzahl prüfen, wenn nicht existiert einfügen
      if Anzahl = 0 then begin
        SQL.Clear;
        SQL.Add('INSERT INTO tblTracks(Artist, Album, Track, Title, Path) VALUES (:artist, :album, :track, :title, :path);');
        ParamByName('artist').AsString := id3.Artist;
        ParamByName('album').AsString := id3.Album;
        ParamByName('track').AsInteger := strToInt(id3.Track);
        ParamByName('title').AsString := id3.Title;
        ParamByName('path').AsString := tmp.Strings[i];
        ExecSQL;
      end;
end;