(Resolvido) Importar excel para paradox em delphi

[pcst]

como faço para importar uma planilha excel para uma tabela paradox no codigo delphi..

obrigado

[Duduh_Capixaba]

Cara, no Excel tem uma forma de você gravar sua planilha em formato texto. A partir daí acho que fica mais fácil seu trabalho. Aqui mesmo no fórum você acha "n" formas de importar txt para vários bancos de dados diferentes. Abraço!

[pcst]

Cara, no Excel tem uma forma de você gravar sua planilha em formato texto. A partir daí acho que fica mais fácil seu trabalho. Aqui mesmo no fórum você acha "n" formas de importar txt para vários bancos de dados diferentes. Abraço!

valeu cara...

você tem algum exemplo do formato texto.. é que neste campo de importação ainda estou meio cru...

obrigado!

[Duduh_Capixaba]

Tenho sim, a importação ou exportação de txt é um processo bem simples, basta saber lidar com os arquivos texto. Se preferir, mande uma MP pra mim com seu e-mail que eu te passo alguns exemplos que eu tenho aqui no escritório.

Você tb pode procurar aqui no fórum por importação, exportação e arquivo txt no campo busca, vai perceber que já existem vários posts sobre o assunto.

[pcst]

Tenho sim, a importação ou exportação de txt é um processo bem simples, basta saber lidar com os arquivos texto. Se preferir, mande uma MP pra mim com seu e-mail que eu te passo alguns exemplos que eu tenho aqui no escritório.

Você tb pode procurar aqui no fórum por importação, exportação e arquivo txt no campo busca, vai perceber que já existem vários posts sobre o assunto.

ok.. este é o modelo do codigo e abaixo meu email.... se puder me ajudar!!

obrigado, agora o arquivo txt esta com separdor de ; como faço para eliminar o ponto e virgula?

procedure TfrmImportacaocobranca.btnImportarClick(Sender: TObject);

var arq: TextFile;

var linha: String;

begin

AssignFile ( arq, 'C:\LB\Cob\Recepcao\16072008.csv');

reset(arq);

while not Eof ( arq ) do

begin

tblDevedores.Open;

tblDevedores.Insert;

tblDevedores.FieldByName('Nome').Value:= Copy(Linha,6,30);

{ tblDevedores.FieldByName('CPF').Value:= Copy(Linha,28,60);

tblDevedores.FieldByName('TelRes').Value:= Copy(Linha,88,11);}

tblDevedores.post;

ReadLn ( arq, linha );

end;

CloseFile ( arq );

{ if(od.Execute) then

name:=od.FileName;

end;}

end;

[José Luiz]

Outra forma fácil, é salvar o arquivo excel como DBF ( Dbase III ), e a seguir transformar este arquivo em DB ( Paradox )

Para passar de DBF para DB, basta entrar no DataBase Desktop, < Tools > / < Utilities > / Copy .

Informe o arquivo desejado com extensão DBF e pressione o OK na sequência, coloque o nome do arquivo desejado com a extensão DB, e está pronto.

Qualquer dúvida, avise.

José Luiz.

[Duduh_Capixaba]

Esse é um dos modos pra se fazer uma importação. Agora, para eliminar o ";" eu uso um componente que instalei no Delphi, o "TextTable". Com ele meu trabalho fica muito mais fácil, basta dizer ao componente qual caracter é o delimitador de colunas, no seu caso, o ";". Exemplo de uma importação com o TextTable:

var
  F: TextFile;
  S: String;

begin
  AssignFile(F, 'C:\Teste.csv');
  Reset(F);
  ADOTable1.Open;
  while not Eof(F) do begin
    Readln(F, S);
    if not Eof(F) then begin
      ADOTable1.Insert;
      ADOTable1.FieldByName('FILIAL').Value := TextTable1.FieldValues['FILIAL'];
      ADOTable1.FieldByName('ORDEM').Value := TextTable1.FieldValues['ORDEM'];
      ADOTable1.FieldByName('ITEM').Value := TextTable1.FieldValues['ITEM'];
      ADOTable1.FieldByName('MATRIC').Value := TextTable1.FieldValues['MATRIC'];
      ADOTable1.FieldByName('CST').Value := TextTable1.FieldValues['CST'];
      ADOTable1.FieldByName('ECF').Value := TextTable1.FieldValues['ECF'];
      ADOTable1.FieldByName('QUANT').Value := TextTable1.FieldValues['QUANT'];
      ADOTable1.FieldByName('VRUNIT').Value := TextTable1.FieldValues['VRUNIT'];
      ADOTable1.FieldByName('VRTOTAL').Value := TextTable1.FieldValues['VRTOTAL'];
      ADOTable1.Post;
      TextTable1.Next;
    end;
  end;
  CloseFile(F);
  ADOTable1.Active := True;
end;

Mas você também pode fazer isso através de funções, também funciona. Aqui no fórum já ví um processo de importação que elimina os caracteres que delimitam as colunas de um txt. Basta procurar, abraço!

Editado Julho 21, 2008 por Duduh_Capixaba

[pcst]

Ok..

Obrigado!!