Código Delphi [-] With Query1 DO Begin Close; SQL.Clear; SQL.Add('Select (Count(Distinct(TuCampo))) From TuTabla;') Open; Existe:=Fields[0].AsInteger; Close; end;
With Query1 DO Begin Close; SQL.Clear; SQL.Add('Select (Count(Distinct(TuCampo))) From TuTabla;') Open; Existe:=Fields[0].AsInteger; Close; end;