Importar dados do Excel para o Interbase

Caro amigo!
Uma boa idéia seria vc exportar os dados do Excel p/ *.dbf ou Texto
e a partir dai fazer a importação.

T+

ANT.CARLOS/SP

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

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

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

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

facinho.

encontrei um software que faz isso rapidinho. importa direto do excel para FB/Interbase, IBEasy+.

Baixar : www.marc-grange.net/telecharger_en.htm