Ver Mensaje Individual
  #2  
Antiguo 06-08-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
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);
//Creo la tabla, y le asigno como dueño el Form1,
// al liberar el Form1, se libera de la memoria
// tambien la tabla1

//En las propiedades del table1 tengo en
with tabla1 do
begin
  DatabaseName := 'c:\ejemplo';
  Name := 'Table1';
  TableName :='Auxiliar.db';
  Active := True;
  // logicamente antes de poner en activo la tabla, todas
  // las propiedades deben estar establecidas.
end;

//El DBGrid
ElDatasource := Tdatasource.Create(Form1);
ElDatasource.Dataset := Tabla1;

// Hombre, ya puestos, tambien creamos el Grid;
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.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita