Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Quiero saber como agregar una consulta de SQL a un combobox (https://www.clubdelphi.com/foros/showthread.php?t=6547)

Julio César 12-01-2004 21:08:43
Quiero saber como agregar una consulta de SQL a un combobox
 
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 12-01-2004 21:24:43
Debes recorrer todo el conjunto de resultados:

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

  QryArticulos.Next;
end;
// Saludos

__cadetill 12-01-2004 21:28:52
Cita:
Empezado por Julio César
La nueva apariencia de esta página esta chulisima felicidades a los moderadores.
Eso mejor al Administrador (Emilio) ;)

Cita:
Empezado por Julio César
solo me agrega el primero.
Normal, sólo necesitas poneerlo en un bucle :D

Código:
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 12-01-2004 21:29:50
Bueno, se me adelantó Román :D

Julio César 15-01-2004 13:47:44
Gracias a ambos por su ayuda
 
:D Me funcionó muy bien


La franja horaria es GMT +2. Ahora son las 11:18:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi