Importar txt para tabela Mysql

Question

Como importar txt para dentro de tabelas MySql?...

Alex Maia · Answer

Tente usar os seguintes c�digos:

//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);

Paulo · Answer

N�o funcionou. A minha m�quina est� assim:
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:

1000.00; Qualquer Coisa 1000.01; Outra Coisa 1000.02; Desta vez � outra coisa 1000.03; Agora sim, � outra coisa

Lembrando que o campo descricao � do tipo BLOB(Memo). Os texto podem ser curtos como estes ou longos.

Rjun · Answer

Se o tamanho do campo for fixo, voce pode ler cada linha do arquivo txt, separar os campos e joga-los nas tabelas. Se for de tamanho variavel, ai voce precisa localizar os separadores de campos....

Paulo · Answer

Rjun, eu tentei fazer assim, mas n�o consegui. Como fa�o assim?...

Rjun · Answer

Para ler o arquivo, carregue o conte�do em uma stringlist.

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;

Paulo · Answer

No exemplo do Alex descobri pq n�o ta funcionando. � pq eu n�o passei usu�rio e senha. Como fa�o isso no my via shell?...

Paulo · Answer

Eu estou chamando o mysqlimport assim: N�o est� funcionando. T� brabo!!! T� no osso, t� ligado!!

executa(�C:\Arquivos de programas\infoconsult\mysql\bin\mysqlimport -d --host=127.0.0.1 --user=empresa01 --password=10012 dataC:\Temp2\cap01.txt�, SW_SHOWNORMAL);

Esta � a fun��o executa. Ela � para executar um programa via shell e manter o programa chamador em back at� o shell ser executado

function TForm1.Executa(Arquivo: String; Estado: Integer): Integer; var Programa : array [0..512] of char; CurDir : array [0..255] of char; WorkDir : String; StartupInfo : TStartupInfo; ProcessInfo : TProcessInformation; begin Screen.Cursor:=crHourGlass; StrPCopy (Programa, Arquivo); GetDir (0, WorkDir); StrPCopy (CurDir, WorkDir); FillChar (StartupInfo, Sizeof (StartupInfo), #0); StartupInfo.cb := sizeof (StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Estado; if not CreateProcess (nil, Programa, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then Result := -1 else begin WaitForSingleObject (ProcessInfo.hProcess, Infinite); GetExitCodeProcess (ProcessInfo.hProcess, Dword(Result)); end; Screen.Cursor:=crDefault; end;