Fórum Console Application BDE #286201

27/06/2005

0

Delphi

Boa tarde, pessoal!


Preciso implementar uma rotina no meu sistema, e me deparei com a seguinte possibilidade: Eh possivel usar TTable/TQuery numa aplicacao console?

Abaixo seguem os fontes de algo q comecei a esbocar:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Variants,
  Classes,
  DB,
  DBTables,
  BDE,
  Forms;

var
 tbOrigem, tbDestino: TTable;
 x: integer;

begin
 tbOrigem.Create(nil);
 tbDestino.Create(nil);
 try
  tbOrigem.DatabaseName:= ExtractFilePath(Application.ExeName)+´\ORIGEM´;
  tbOrigem.TableName:= ´ACADPED.DB´;
  tbOrigem.Open;
  tbOrigem.First;
  tbDestino.DatabaseName:= ExtractFilePath(Application.ExeName)+´\DESTINO´;
  tbDestino.TableName:= ´ACADPED.DB´;
  tbDestino.Open;
  tbDestino.EmptyTable;
  tbDestino.First;
  while not tbOrigem.Eof do
   begin
    tbDestino.Append;
    for x:= 0 to tbOrigem.FieldCount-1 do
     tbDestino.FieldByName(tbOrigem.Fields[x].FieldName).Value:= tbOrigem.Fields[x].Value;
    try
     tbDestino.Post;
    except
     tbDestino.Cancel;
    end;
    tbOrigem.Next;
    write(´*´);
   end;
  WriteLn(´Concluido!´); 
 finally
  FreeAndNil(tbOrigem);
  FreeAndNil(tbDestino);
 end;

end.


Se alguem puder me dar uma luz.... Valeu!


Wanx

Wanx

Responder

Posts

27/06/2005

Nildo

Creio que sim. Não há o porque de não funcionar.


Responder

Gostei + 0

28/06/2005

Wanx

nildo, naum funcionou justamente qdo entra no tbOrigem:= TTable.Create(nil). vc tem ideia do q pode estar havendo?


Responder

Gostei + 0

28/06/2005

Nildo

nildo, naum funcionou justamente qdo entra no tbOrigem:= TTable.Create(nil). vc tem ideia do q pode estar havendo?


Hmm é verdade, tem um pouco de nexo.
E se você criar um Form, escondido, dinamicamente, e criar tipo assim:

tbOrigem := TTable.create( SeuForm );

Talvez funcione!


Responder

Gostei + 0

29/06/2005

Wanx

Valeu + uma vez Nildo, mas se eu criar um form, vou estar deixando como jah funciona hj.... queria saber se haveria um jeito de executar uma rotina assim sem form por questao de consumo de recursos.... pensei em criar um servico, mas os tutoriais q vi naum me ajudaram... vc acha q um servico seria melhor? se for, onde consigo + informacoes?


Responder

Gostei + 0

29/06/2005

Nildo

Valeu + uma vez Nildo, mas se eu criar um form, vou estar deixando como jah funciona hj.... queria saber se haveria um jeito de executar uma rotina assim sem form por questao de consumo de recursos.... pensei em criar um servico, mas os tutoriais q vi naum me ajudaram... vc acha q um servico seria melhor? se for, onde consigo + informacoes?


Nunca usei serviços. Mas creio que possa funcionar. Dê uma pesquisada no google, talvez você encontre algo a respeito.

Um abraço


Responder

Gostei + 0

03/07/2005

Khundalini

Pq ñ passa Application pro create dos Tables?

[]s
Rubem Rocha
Manaus, AM


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar