SQL y combobox

[ecfisa]

Hola FabianSiza.

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.GetFieldNames(ComboBoxEx1.Items);
  ComboBoxEx1.Style:= csExDropDownList;
end;

// Mostrar en el edit el valor del campo seleccionado en el combo
procedure TForm1.ComboBoxEx1Change(Sender: TObject);
begin
  with TComboBoxEx(Sender) do
    if ItemIndex <> -1 then
      Edit1.Text:= ClientDataSet1.FieldByName(Items[ItemIndex]).AsString;
end;

Y si por ejemplo, preferis mostrarlo ante el evento OnClick de un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ComboBoxEx1 do
    if ItemIndex <> -1 then
      Edit1.Text:= ClientDataSet1.FieldByName(Items[ItemIndex]).AsString;
end;

Saludos