Jump to content

dia-do-acbr-online.png

Ganhe acesso a todas Palestras
Assinando o Suporte ACBr Comerecial

Saiba Mais


dia-do-acbr-online.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

tiago Filipe

Membros
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutral

About tiago Filipe

  • Rank
    Novato
  1. 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.Cell
  2. 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
  3. 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 ?
  4. 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; cdsItensdat
  5. Já vi isso mas continuo a ver como eu faço Para que o utilizador vá buscar o ficheiro
  6. 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
×
×
  • Create New...