Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   SQL y combobox (https://www.clubdelphi.com/foros/showthread.php?t=87187)

FabianSiza 25-11-2014 19:54:00

SQL y combobox
 
Hola programadores quiero que cuando seleccione un campo de la tabla con conbobox en un edit me muestre los datos,
la tabla se llama usuarios.
CODIGO
NOMBRE
TELEFONO

use este codigo para llamar la columna
en el combobox

Código Delphi [-]
DataModule2.ClientDataSet1.GetFieldNames(ComboBoxEx1.Items);

asi logre que el combobox me muestre el nombre de los campos

como hago para que mediante un boton me muestre los datos suponiendo que en el combobox selecciono "codigo" el edit me muestre el "1"
o lo que sea que este en ese campo? gracias

ecfisa 25-11-2014 20:28:41

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 :)

FabianSiza 25-11-2014 21:40:18

Muchas gracias ecfisa me entendiste a la perfección


La franja horaria es GMT +2. Ahora son las 06:49:07.

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