-
Total de ítens
6 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
tiago Filipe's Achievements
-
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