Importar txt para tabela Mysql
30/09/2004
0
Paulo
Posts
30/09/2004
Alex Maia
//Realiza manutenção no banco de dados
ShellExecute(0,nil, Pchar(´C:\bin\mysqlcheck´),PChar(´-r nome_banco ´), nil, sw_show);
//Realiza o dump das tabelas
ShellExecute(0,nil,Pchar(´C:\bin\mysqldump´),PChar(´--tab=C:\ -q -t nome_banco), nil, sw_show);
//Rotinas para importação dos dados
ShellExecute(0,nil,Pchar(´C:\bin\mysqlimport´),PChar(´-d nome_banco local_arquivo\nome_tabela.txt´), nil, sw_show);
30/09/2004
Paulo
O arquivo TXT se chama: cap29.txt
O banco se chama PTR e está em:
C:\Arquivos de programas\PTR\MySql\Data\PTR
Estes são os diretórios reais. A tabela se chama Indicadores, e os campos são: Codigo e Descricao.
O Arquivo cap29.txt está assim:
Lembrando que o campo descricao é do tipo BLOB(Memo). Os texto podem ser curtos como estes ou longos.
30/09/2004
Rjun
30/09/2004
Paulo
30/09/2004
Rjun
var
Arquivo : TStringList;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(NomedoarquivoTXT);
for i := 0 to (Arquivo.Count -1) do
begin
codigo := copy(arquivo.strings[I], 1, 7); {isso se o tamanho do campo for fixo}
texto := copy(arquivo.strings[I], 8, Tamanho da linha);
{aqui voce coloca o codigo para grava na tabela}
end;
30/09/2004
Paulo
01/10/2004
Paulo
Esta é a função executa. Ela é para executar um programa via shell e manter o programa chamador em back até o shell ser executado
Clique aqui para fazer login e interagir na Comunidade :)