Quiero saber como agregar una consulta de SQL a un combobox

[Julio César]

La nueva apariencia de esta página esta chulisima felicidades a los moderadores.

Mi inquietud es la siguiente;

Tengo una tabla con una serie de articulos, entonces hago lo siguiente:

var articulos:string;
Begin
With QryArticulos do
begin
close;
sql.clear;
sql.add('SELECT nom_articulos as nomart FROM TBARTICULOS');
open;
if Fieldvalues['nomart']<>'' then begin
articulos:=Fieldvalues['nomart'];
combobox.items.add(articulos);
end;
end;
end;

solo me agrega el primero.

[roman]

Debes recorrer todo el conjunto de resultados:

while not QryArticulos.Eof do
begin
  {
    Código para agregar un ítem al combo a partir del registro actual
  }

  QryArticulos.Next;
end;

// Saludos

[__cadetill]

Empezado por Julio César

La nueva apariencia de esta página esta chulisima felicidades a los moderadores.

Eso mejor al Administrador (Emilio)

Empezado por Julio César

solo me agrega el primero.

Normal, sólo necesitas poneerlo en un bucle

var articulos:string;
Begin
    With QryArticulos do
    begin
        close;
        sql.clear;
        sql.add('SELECT nom_articulos as nomart FROM TBARTICULOS');
        open;
        while not eof do
        begin
          if Fieldvalues['nomart']<>'' then begin
             articulos:=Fieldvalues['nomart'];
             combobox.items.add(articulos);
          end;
          next;
        end;
     end;
end;

[__cadetill]

Bueno, se me adelantó Román

[Julio César]

Me funcionó muy bien