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