Buscar

Importar para o banco de dados atraves do excel

Código

VOCE PODERA IMPORTAR DADOS DO EXCEL PARA SEU BANCO DE DADOS.
SUPONHA QUE VC RECEBA UM EXTRATO BANCÁRIO EM TEXTO PELA INTERNET. TRABALHE O EXTRATO E CONVERTA PARA ARQUIVO EXCEL.
AGORA VOCE QUER TRANSFERIR OS DADOS DO EXCEL PARA O BANCO DE DADOS DE SEU PROGRAMA.
O PRIMEIRO PASSO PARA NÃO TER PROBLEMA DE CONFLITO COM SEU BANCO DE DADOS É O EXCEL ESTAR PARAMETRADO COM A TABELA DE SEU BANCO DE DADOS. PARA TANTO ABRA SUA TABELA ONDE VC VAI IMPORTAR OS DADOS NO EXCEL USANDO ABRIR ARQUIVOS DBASENO EXCEL. OBS. SUA TABELA DEVERÁ ESTAR COM A EXTENSÃO dbf.(DBASE).
NA PASTA DO EXCEL ONDE VC TRABALHOU OS DADOS DE TEXTO COPIE E COLE NAS RESPECTIVAS COLUNAS DO BANCO DE DADOS QUE VOCE ABRIU NO EXCEL(extensão dbf). FEITO ISSO SALVE O ARQUIVO NO EXCEL EM DBASE.
AGORA NO FORMULARIO DO PROGRAMA CRIAMOS UM BUTTON PARA FAZER A EXPORTAÇÃO, COM O SEGUINTE COMANDO.
procedure TFORMINSERIR.BitBtn1Click(Sender: TObject);
begin
     TRY
     WITH ATUALIZAR DO
     BEGIN
          CLOSE;
          sql.Clear;
          sql.Add('INSERT INTO "C:conciBANCOtabela.dbf"');
          sql.Add('SELECT *');
          sql.Add(' FROM "transr.dbf"');
          Prepare;
          ExecSQL;
     END
     FINALLY
     Application.MessageBox('IMPORTAÇÃO CONCLUIDA COM SUCESSO!', 'MENSAGEM', MB_ICONINFORMATION);
   END;
SE VOCE EXECUTOU OS PASSOS CORRETAMENTE SEUS DADOS DO EXCEL ESTARÃO EM SUA TABELA DO BANCO DE DADOS.
ESTANDO NA EXTENSÃO .dbf VOCE PODERA USAR O MESMO MÉTODO, ATRAVÉS DE SQL PARAR TRANSFORMAR EM OUTRAS  EXTENSÕES

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: 16797 vezes

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