Buscar

Exportando e importando arquivos pelo excel

Código

VOCE PODERÁ USAR O EXCEL PARA IMPORTAR E EXPORTAR DADOS BASTA USAR O DATA BASE DESKTOP  A EXTENSÃO .dbf, POIS O EXCEL LÊ EM .dbf.
DEVEMOS FAZER DA SEGUINTE MANEIRA:
PARA EXPORTAR ACRESCENTE UM BUTTON NO FORMULÁRIO E NO EVENTO ONCLICK  ESCREVA O SEGUINTE COMANDO.
procedure TFormexportar.BitBtn1Click(Sender: TObject);
begin
    TRY
     WITH ATUALIZAR DO
     BEGIN
          CLOSE;
          sql.Clear;
          sql.Add('INSERT INTO "C:conciBANCOgabrazao.dbf"');
          sql.Add('SELECT *');
          sql.Add(' FROM "tabela.dbf"');{nome da tabela onde encontra-se os dados}
          Prepare;
          ExecSQL;
     END
     FINALLY
     Application.MessageBox('EXPORTAÇÃO CONCLUIDA COM SUCESSO!', 'MENSAGEM', MB_ICONINFORMATION);
   END;
end;
MESMO QUE SUA TABELA SEJA COM OUTRA EXTENSÃO ESTE COMANDO DE SQL A CONVERTERÁ. VÁ NO EXCEL E PROCURE O ARQUIVO SALVO PELA EXTENSÃO dbf  EM ARQUIVOS DO TIPO DBASE, O ARQUIVO ABRIRA IGUAL SUA TABELA DO BANCO DE DADOS

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 10/05/07
Por: Luiz Henrique Santos
Visualizada: 8890 vezes

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