Hola
Código Delphi [-]
procedure TFrmRecepcion.FormCreate(Sender: TObject);
begin
ADoItebis.SQL.Text := 'Select Itebis From Itebis';
ADoItebis.Active:= True;
While not ADoItebis.Eof do
begin
CBItbis.Items.Add(ADoItebis.Fields[0].Text);
ADoItebis.Next;
end;
ADoItebis.Active:= false;
end;
Saludos
__________________
Siempre Novato
Última edición por Caral fecha: 24-09-2010 a las 00:13:00.
|