Código
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
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009