Buscar

Paradox para texto ou dbase e vice-versa?

Código

//1) Inclua um TDATABASE no seu Form e sete as seguintes propriedades:
  DatabaseName = 'Temp'
  DriverName = 'STANDARD'
  Params.Strings = 'path=c:	este' 
  Connected = True
//2) Inclua outro TTable em seu Form e sete as seguintes propriedades:
  DatabaseName = 'Temp'
  Name = 'DESTINO'
  TableType = ttASCII ou ttDbase ou ttParadox
  TableName = o nome da nova tabela, sem extensão. Ex: 'Clientes' IMPORTANTE: Não mexa na propriedade ACTIVE.

//3) Inclua um TTable em seu Form, contendo a tabela que você quer copiar e mude a propriedade Name para ORIGEM.

IMPORTANTE: Não mexa na propriedade ACTIVE.


//4) Inclua um TBATCHMOVE em seu Form e sete as seguintes propriedades:
  Destination = 'DESTINO'
  Mode = batCopy
  Source = 'ORIGEM'
//5) Inclua um TBUTTON em seu form e dê um duplo click no evento OnClick.
//6) Escreva o seguinte código na procedure OnClick:
var
fn: FMTNumber;
begin
// O código a seguir verifica se o separador de
// decimais é virgula e muda-o, para evitar
// problemas de compatibilidade
Check(DbiGetNumberFormat(fn));
if fn.cDecimalSeparator = ',' then
begin
fn.cDecimalSeparator := '.';
fn.cThousandSeparator := ',';
DbiSetNumberFormat(fn);
end;
// Aqui executamos a CÓPIA
BatchMove1.Execute;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 05/06/03
Por: Felipe Monteiro
Visualizada: 3126 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009