Duvidas para fazer um insert pelo Delphi

18/02/2016

Boa tarde Galera
Sou iniciante no em programa��o
e estou trabalhando com o Delphi 2010
O Meu problema � o seguinte
Eu busco alguns Fields q est�o em nuvem e exibo todos em um grid
ate ai OK
depos eu fa�o updates neles no meu banco local
ate ai tb esta OK
Mas tenho alguns produtos q est�o na tabela q tenho q fazer
um Insert e n�o estou conseguindo
O algoritmo q estou o usando � esse

while Str <> '$' do
      begin
        begin
          while i < cds_1.Fields.Count  do
            begin
              Delete(Str,1,Pos('|',Str));
              strPRODUTO :=  QuotedStr(Copy(Str,1,Pos('#',Str) -1));
              if cds_1.Fields.Fields[i].FieldName <> 'CODIGO' then
              begin
                DM.ibAUX.SQL.Text := ('UPDATE PRODUTO SET  ' + cds_1.Fields.Fields[i].FieldName +
                                       ' = ' +Replace(strPRODUTO,',','.')+ ' WHERE REFERENCIA = ' + IntToStr(j + 1));
                DM.ibAUX.ExecSQL;
                DM.ibAUX.ApplyUpdates;
                DM.TRANS.CommitRetaining;
              end;
              i := i + 1;
            end;
          i := 0;
          j := j + 1;
          Delete(Str,1,Pos('#',Str));
        end;
      end;

Murilo Peixoto

Curtir t�pico + 0

Responder

Posts

18/02/2016

Raylan Zibel

Qual o erro que est� aparecendo quando executa?

Responder

Gostei + 0