tiago Filipe

Bom dia Eu andei a pesquisar e encontrei este codico pode explicar o codico para entender melhor procedure Tprincipal1.procurar1Click(Sender : Tobject;ARow, ACol: Cardinal;constADataCell: PCell); var excel :variant; l,c: integer; begin Excel := CreateOleObject(´Excel.Application´); Excel.Visible := False; excel.WorkBooks.Add(FilenameFocusEdit1.Text); l:=2; for l := 2 to linhas.Value do begin cdsItens.Append; cdsItensid.AsInteger := Excel.Cells.Item[l,1].Value; if Excel.Cells.Item[l,2].Value <> ´´ then cdsItensnrped.AsInteger := Excel.Cells.Item[l,2].Value; cdsItensdata.AsDateTime := strtodate(Excel.Cells.Item[l,3].value); cdsItensproduto.AsString := Excel.Cells.Item[l,4].Value; cdsItens.Post; end;

Acho que já percebeu mais ao menos o que eu pretendo Mas assim fica mais simples 1-ler o ficherio de xls (nesse folha de excel tem la o part-number que distingue os produtos ) 2-por cada linha do ficheiro de xls verificar-se o produto existe na bd (verifica se o part-number existe na base dados) a) se existir faz o update //mas isto eu sei como e faz que e na base dados sim isto também está dar muitas disculdades

Sim é mais isso para depois fazer o update na base dados e verificar se pnumber do excel é igual a fazer ao do banco de dados faço tambem faço no lazarus ? isto guarda na memoria certo ?

o que eu pretendo é que o utilizador carregue no button (ler arquivo) e vá abrir uma opção abrir um ficheiro excel e que guarde na memoria para depois fazer o update na base dados. var excel :variant; l,c: integer; begin Excel := CreateOleObject(´Excel.Application´); Excel.Visible := False; excel.WorkBooks.Add(FilenameFocusEdit1.Text); l:=2; for l := 2 to linhas.Value do begin cdsItens.Append; cdsItensid.AsInteger := Excel.Cells.Item[l,1].Value; if Excel.Cells.Item[l,2].Value <> ´´ then cdsItensnrped.AsInteger := Excel.Cells.Item[l,2].Value; cdsItensdata.AsDateTime := strtodate(Excel.Cells.Item[l,3].value); cdsItensproduto.AsString := Excel.Cells.Item[l,4].Value; cdsItens.Post; end; este é um exemplo que vi na internet agora quero que vá buscar utilizador vá buscar o ficheiro Não sei se está a perceber o que pretendo

Já vi isso mas continuo a ver como eu faço Para que o utilizador vá buscar o ficheiro

Boa noite Queria saber se me podiam a ajudar ? Eu estou aqui com muitas duvidas EU quero fazer um programa em lazarus que permita ir buscar um ficheiro excel e guarde em memoria e depois faça o update dos valores que vem da tabela na base de dados