Pues necesitas 3 variables, una de cada tipo
Código Delphi
[-]
TForm1 = class(Tform)
private
ElDatasource:TDataSource;
Tabla1:TTable;
Tabla2:TTable;
dbGrid2:Tdbgrid;
...
end;
implementation
procedure TForm1.FormShow(Sender: TObject);
begin
Tabla1 := TTable.Create(Form1);
with tabla1 do
begin
DatabaseName := 'c:\ejemplo';
Name := 'Table1';
TableName :='Auxiliar.db';
Active := True;
end;
ElDatasource := Tdatasource.Create(Form1);
ElDatasource.Dataset := Tabla1;
DBGrid2 := TDBGrid.Create(Form1);
DBGrid2.SetBounds(0,40,Form1.Width, Form1.Height-40);
DBGrid2.Parent:= Form1;
DBGrid2.Visible:= True;
DBgrid2.Datasource := ElDatasource;
tabla1.Open;
end;
Yo he usado Form1, así que cambia las referencias a Form3
Un detalle: Si ya has puesto los Datsources y ttables en tu ventana, delphi ha añadido los
uses automaticamente, por tanto, este ejemplo se compila sin problemas.
Si partes de un formulario totalmente vacio, cuando pongas :
tabla1 : TTable;
el compilador se quejará porque no sabe que es el TTable, entonces, haz clic sobre la palabra "TTable" pulsa F1 y la ayuda de delphi te dirá que se encuentra en:
Cita:
Empezado por Ayuda de delphi
Unit
DBTables
|
Por tanto ya sabes que tienes que poner "uses DBTables;" para poder continuar.
Edito: este mensaje ha sido comprobado en delphi.
Un saludo.