Delphi X Excel

[kioshy 0]

:( Galera estou aprendendo Delphi e preciso fazer um programinha q leia as informações de um arquivo em Excel e grave essas informações num banco de dados SQL Server.

 

Bom, conecta ao banco de dados e gravar informações nele eu já sei agora falta descobri como eu leio o arquivo do excel.

 

Já procurei por tópicos a respeito disso mas não encontrei nada, eu sei q dá pra fazer, mas não sei como.

 

Por favor me ajudem

 

http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[bastard2003 4]

Fala rapaz beleza? tenta esse codigo aqui:

 

if ListArquivo.Items.Count = 0 then    begin    Self.Refresh;    ListArquivo.Items.Clear;    tbl.Close;    tbl.Open;    tbl.First;    for x:=0 to tbl.FieldCount - 1 do        begin        if tbl.Fields.Fields[x].Visible then            begin            ListArquivo.Items.Add(tbl.Fields.Fields[x].DisplayLabel);            tbl.Next;            end;        end;    end;

Explicando:

 

ListArquivo = é um ListBox que recebe os campos da tabela (excel).

tbl = é a minha tabela q tem os dados do arquivo xls (você disse q já sabia fazer a conexão ne!)

 

no caso " ListArquivo.Items.Count = 0 " é apenas uma restrição já q toda vez q eu for carregar o arquivo eu passo um clear pra esse list... então ele sempre vai entrar ali! ai na hora de tu inserir no banco tu pode passar um insert via uma qry pegando os valor do proprio list mesmo!

 

espero ter ajudado! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[kioshy 0]

Detalhe eu sei conectar ao SQL Server e não a um arquivo do Excel

[kioshy 0]

Alguém poderia me explicar como eu conecto a um arquivo do excel???