Foros Club Delphi - elegir Varias tablas en una BD de access desde un Combobox motrandolo en un DBgrid

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - elegir Varias tablas en una BD de access desde un Combobox motrandolo en un DBgrid (https://www.clubdelphi.com/foros/showthread.php?t=82894)

feliz-58

23-04-2013 00:19:52

elegir Varias tablas en una BD de access desde un Combobox motrandolo en un DBgrid

Tengo una base de datos en access y dentro tengo varias tablas que son varios empleados, como puedo a travez de un combobox cambiar que tabla estoy viendo en un DBgrid?

uso ADOConnection y ADotable.

Gracias :)

ecfisa

23-04-2013 00:36:24

Hola feliz-88.

Código Delphi [-]...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Style := csDropDownList;
  with ADOConnection1 do
  begin
    Connected := True;
    GetTableNames(ComboBox1.Items);
  end;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Close;
    TableName := ComboBox1.Text;
    Open;
  end;
end;
...

Saludos. :)

feliz-58

23-04-2013 05:05:48

Gracias me Funciono

Cita:

Empezado por ecfisa (Mensaje 459084)

Hola feliz-88.

Código Delphi [-]...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Style := csDropDownList;
  with ADOConnection1 do
  begin
    Connected := True;
    GetTableNames(ComboBox1.Items);
  end;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Close;
    TableName := ComboBox1.Text;
    Open;
  end;
end;
...

Saludos. :)

Gracias men, me funciono perfectamente :)

La franja horaria es GMT +2. Ahora son las 02:57:55.