Código Delphi [-]
DM.qprueba.Close;
DM.qprueba.SQL.Clear;
DM.qprueba.SQL.Add('SELECT PAIS');
DM.qprueba.SQL.Add('FROM PAISES');
DM.qprueba.Open;
while not dm.qprueba.eof do
begin
cbpaises.items.add(dm.qprueba.fieldbyname('Pais').AsString);
dm.qprueba.next;
end;
cbPaises.DataSource := DM.dsPrueba;
cbPaises.DataField := 'Pais';
Saludetes
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|