pcst Postado Julho 15, 2008 Denunciar Share Postado Julho 15, 2008 como faço para importar uma planilha excel para uma tabela paradox no codigo delphi..obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Duduh_Capixaba Postado Julho 17, 2008 Denunciar Share Postado Julho 17, 2008 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! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 pcst Postado Julho 17, 2008 Autor Denunciar Share Postado Julho 17, 2008 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! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Duduh_Capixaba Postado Julho 17, 2008 Denunciar Share Postado Julho 17, 2008 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 pcst Postado Julho 17, 2008 Autor Denunciar Share Postado Julho 17, 2008 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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 José Luiz Postado Julho 21, 2008 Denunciar Share Postado Julho 21, 2008 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Duduh_Capixaba Postado Julho 21, 2008 Denunciar Share Postado Julho 21, 2008 (editado) 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 pcst Postado Julho 24, 2008 Autor Denunciar Share Postado Julho 24, 2008 Ok..Obrigado!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
pcst
como faço para importar uma planilha excel para uma tabela paradox no codigo delphi..
obrigado
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.