Añadir elementos sin repetir

[MaMu]

Empezado por Delphius

Pues como te dije, en la consulta deberías poner la clausura DISTINCT. Con esto no devolvería los repetidos.

Tan solo deberías hacer:


Código Delphi [-]ComboBox2.Items.Add(ADOQuery2.FieldByName('servicio').AsString);



un SQL como esto:


Código SQL [-]SELECT DISTINCT nombre_servicio
FROM servicios




Saludos,

Asi fue como hice:

Código Delphi [-]
select distinct servicios.servicio from servicios

pero me salta: List Index out of bounds(3)

Saludos

[MaMu]

SOLUCIONADO


Lo solucioné, el error estaba en la sintaxis SQL, ya que justamemte en la tabla servicios, tenia dos campos, uno servicio y el otro servicios, y los consulte invertidos, eso era todo. Por las demas respuestas estan muy buenas y me son de mucha utilidad, ya que no siempre relleno con datos de una base de datos. Archivado.

Saludos y Gracias

[Robert01]

Hola

No me di cuenta que estabas trabajando con bases de datos, disculpame por enviar código que no es lo que necesitabas.
Me alegra que hayas solucionado el problema.

Saludos

[ciskokkid]

no quiero decir que las formas anteriores de solucionarlo no son validas, solo quiero aportar una forma diferente de hacerlo,
llegue hasta aqui buscando como llenar un combobox desde un clientdataset, no me apetece hacer otra consulta sql con distinct porque estoy partiendo del hecho que ya tengo la informacion en un clientdataset, solo quiero que el combobox coincida con la informacion del clientdataset que estoy mostrando en un grid

este es mi codigo

Código Delphi [-]


begin
   // hago la consulta ,  el clientdataset obtiene la informacion del query a traves de un datasetprovider
   adoquery1.Close;
   adoquery1.SQL.Text:='select c.sucursal, c.id, c.mov, c.movid, c.fechaemision ' +
                       ' , c.proveedor,prov.nombre , c.usuario,  c.referencia, ' +
                       ' c.importe, c.moneda, c.tipocambio, c.condicion,  c.autorizacion' +
                       ' from compra c ' +
                       ' join prov on prov.proveedor=c.proveedor ' +
                       ' where c.mov='      + quotedstr('ECN') +
                       ' and c.estatus='    + quotedstr('SINAFECTAR') +
                       ' order by c.sucursal,c.proveedor';
   adoquery1.Prepared:=true;
   adoquery1.Open;

   // ahora limpio el combobox, recorro el clientdataset y simplemente voy comprobando si el valor "usuario"
   // no esta en el combo lo agrego

   cbUsuario.clear;
   cbUsuario.Items.Add('TODOS');              // este sera el primer valor
   clientdataset1.First;
   while not clientdataset1.Eof do
   begin
       if cbUsuario.items.indexOf(clientdataset1.FieldByName('usuario').AsString)<=0 then
          cbUsuario.Items.Add(clientdataset1.fieldByName('usuario').asstring);
       clientdataset1.Next;
   end;
   cbUsuario.ItemIndex:=0;                          // para que  por default ponga  por defecto el primer valor
   cbUsuario.style:=csDropDownList;             //  para que el usuario no agregue mas valores al combo

end

la informacon consultada son pocos registros, no mas de 50, de esta manera evito enviar otra consulta por separada al servidor sql

[[AgustinOrtu]]

Para que pones a Prepared := True el query?
Otra cosa, TStrings ya implementa esta funcionalidad, y es configurable mediante las propiedades Duplicates y CaseSensitive

Por otro lado la solucion es apta para cualquier TStrings, el ComboBox tiene poco que ver aca