Delphi - Aplicacion de Consola en Delphi

 
Vista:

Aplicacion de Consola en Delphi

Publicado por Felix Ramirez (8 intervenciones) el 17/04/2003 02:13:38
Hola Amigos!
Quiero saber como accesar datos de una tabla (SQL) a traves de una aplicacion de consola.
Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Aplicacion de Consola en Delphi

Publicado por Ernesto De Spirito (706 intervenciones) el 17/04/2003 04:39:01
Puedes usar un módulo de datos (File / New... / New / Data Module) para poder poner los componentes de acceso a datos en él y establecer sus propiedades en el Inspector de Objetos (que es más fácil y rápido que crear esos componentes y establecer sus propiedades por código).

Por supuesto, en tu programa tienes que crear la instancia del módulo de datos, pues en el caso de aplicaciones de consola no funciona la opción de autocrear los formularios:

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Unit1 in 'Unit1.pas' {DataModule1: TDataModule};

begin
// Insert user code here
WriteLn('Abriendo la base de datos...');
DataModule1 := TDataModule1.Create(nil); // Crea la instancia del módulo de datos
with DataModule1 do begin
Table1.Active := True;
WriteLn(Format('%d: %s %s', [Table1EmpNo.AsInteger, Table1FirstName.AsString, Table1LastName.AsString]));
Table1.Active := False;
WriteLn('Presione ENTER para terminar');
ReadLn;
end;
end.

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Unit1 in 'Unit1.pas' {DataModule1: TDataModule};

begin
// Insert user code here
DataModule1 := TDataModule1.Create(nil);
with DataModule1 do begin
Table1.Active := True;
WriteLn(Format('%d: %s %s': Table1EmpNo.AsInteger, Table1FirstName.AsString, Table1LastName.AsString));
Table1.Active := False;
ReadLn;
end;
end.

Espero que te sirva.

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar