Importar dados do Excel para o Interbase

Question

PessoalComo fa�o para importar dados do excel para uma tabela no  interbase 6.0 ???Estou usando Delphi 7.0 e interbase 6.0Rog�rio...

Ant.carlos/sp · Answer

Caro amigo!Uma boa id�ia seria vc exportar os dados do Excel p/ *.dbf ou Textoe a partir dai fazer a importa��o.T+ANT.CARLOS/SP...

Rogeranalista · Answer

E como posso fazer a importa��o ??? Como posso importar dados do excel para o Dbf ????? E como posso importar dados do dbf para o banco ??? Tentei j� fazer atrav�s do Datapump mas n�o consegui...

Rog�rio

Ant.carlos/sp · Answer

Caro amigo! :D

No Excel, tem uma op��o de salvar arqivos p/ v�rios formatos:
Texto, *.dbf, etc...
Escolha p/ *.DBF.
Para importar, use uma Query p/ ler o Arquivo.dbf e crie uma rotina p/ Inserir em sua tabela IB/FB. � facil, fa�o isso p/ importar meus arquivo, *.dbf ou *.Db paradox, e d� menos dor de cabe�a dos ficar usando aplicaivo de convers�o.
With Sqlx do Begin
Ex: SELECT * FROM ARQUIVO.DBF
WHILE NOT EOF DO BEGIN
INSERT INTO TABELA(Codigo,Nome,...)
VALUE (:Codigo,:Nome,...)
Params.ParaByName(�Campo1�).AsInteger :=
FieldByName(�Codigo�).AsInteger;
Params.ParaByName(�Campo2�).AsString :=
FieldByName(�Nome�).AsString;
Next;
End;
End;

T+

ANT.CARLOS/SP

Ant.carlos/sp · Answer

Ol�! :D

Complementando, esqueci de te dizer de que a Query que me referi, tem que ser usada em conjunto com o BDE.
Fiz um teste de exportacao (Salvar como *.dbf) no excel e funcionou.

Para alvar p/ texto colunado, vai um exemplo de como ler.

-----------------------------------------------------------------------------------
procedure Ler_TXT_p_ARQUIVO;
var

Txt : TextFile;
Entrada : String;
begin
FORM1.TABLE1.EmptyTable; //...Zera o arquivo
FORM1.Table1.Open;

Assignfile(Txt,�Clientes.Txt�); //...nome do arquivo texto

Reset(Txt);
While not Eoln(Txt) do
begin
Readln(Txt,Entrada);
FORM1.Table1.Insert;
FORM1.Table1.FieldByName(�Codigo�).Value := STRTOINT(Copy(Entrada,01,05));
FORM1.Table1.FieldByName(�Nome�).Value := Copy(Entrada,07,46);
FORM1.Table1.FieldByName(�End�).Value := Copy(Entrada,48,46);
FORM1.Table1.Post;
end;
CloseFile(Txt);
FORM1.Table1.Close;
end;
-------------------------------------------------------------------------------------

T+

ANT.CARLOS/SP

Armando.boza · Answer

salve o arquivo xls em CSV e use um programinha chamado CSVTOIB .facinho....

Afo · Answer

encontrei um software que faz isso rapidinho. importa direto do excel para FB/Interbase, IBEasy+.Baixar : www.marc-grange.net/telecharger_en.htm...

F�rum Importar dados do Excel para o Interbase #55342