Ajuda com Update direto na ibquery OLÁ AMIGOS TENHO UMA IBQUERY DE NOME CADASTRO E GOSTARIA DE ATUALIZAR OS DADOS OU ALTERAR E SALVAR EM TEMPO DE EXEXUÇAO TÁ! FIZ ISTO MAS SO EM DOIS CAMPOS , MAS GOSTARIA DE ALTERAR E ATUALIZAR QUALQUER UM DOS CAMPOS !!! PEÇO! POR GENTILEZA AJUDA DE TODOS !!! DESDE já AGRADEÇO!!! SEGE O CODIGO procedure TManutencao.FormShow(Sender: TObject); begin edit2.Text:= form2.CADASTRO.FIELDBYNAME('COD').AsString; edit3.Text:= form2.CADASTRO.FIELDBYNAME('PRODUTO').AsString; edit4.Text:= form2.CADASTRO.FIELDBYNAME('VALOR').AsString; edit5.Text:= form2.CADASTRO.FIELDBYNAME('FORNECEDOR').AsString; edit6.Text:= form2.CADASTRO.FIELDBYNAME('QUANTIDADENAPRATELEIRA').AsString; edit7.Text:= form2.CADASTRO.FIELDBYNAME('CAIXASEMESTOQUE').AsString; edit8.Text:= form2.CADASTRO.FIELDBYNAME('VALOREMESTOQUE').AsString; MASKedit1.Text:= FORM2.CADASTRO.FIELDBYNAME'DATADOCADASTRODOPRODUTO').AsString; end; procedure TManutencao.BitBtn1Click(Sender: TObject); begin try form2.CADASTRO.sql.Clear; form2.CADASTRO.sql.text := 'update codigo set valor = + ' + edit4.text + ' where cod = ' + edit2.text; form2.CADASTRO.Open; dm.Transacao.Commit; edit1.Clear; {este codigo so atualiza/altera os campos valor e cod} {gostaria de alaterar qualquer um dos campos } Except On E:Exception do Begin Application.MessageBox( Pchar('Algum usuário está "TRAVANDO" o REGISTRO ATUAL'+#13+#13+ 'ERRO : "'+ E.Message +'" ;' ), 'Impossível ALTERAR', MB_Ok); EXIT; // Sai de uma “possível procedure” } DM.TraNSACAO.COMMIT; FORM2.CADASTRO.Refresh; EDIT1.Clear; END; End; END; procedure TManutencao.Edit1Change(Sender: TObject); begin FORM2.cadastro.Close; FORM2.cadastro.sql.clear; FORM2.cadastro.sql.add('select * from codigo WHERE cod LIKE' +QUOTEDSTR('%' + edit1.Text + '%')); FORM2.cadastro.Open; end; Mais ou menos assim !!! with form2.CADASTRO do begin Close; SQL.Clear; SQL.Add('UPDATE codigo SET cod = + '+ edit2.Text+ ','); SQL.Add(' produto = + ' + edit3.text + ','); SQL.Add(' valor = + ' + edit4.Text+ ','); SQL.Add(' fornecedor = + ' + edit5.text + ','); SQL.Add('quantidadenaprateleira = + ' + edit6.text + ','); SQL.Add(' caixasemestoque = + ' + edit7.text + ','); SQL.Add(' valoremestoque = + ' + edit8.text + ','); SQL.Add('where datadocadastrodoproduto = + ' + MasKedit1.text + ';'); open; edit1.Clear; end; Except On E:Exception do Begin Application.MessageBox( Pchar('Algum usuário está "TRAVANDO" o REGISTRO ATUAL'+#13+#13+ 'ERRO : "'+ E.Message +'" ;' ), 'Impossível ALTERAR', MB_Ok); EXIT; // Sai de uma “possível procedure” } DM.TraNSACAO.COMMIT; FORM2.CADASTRO.Refresh; EDIT1.Clear; END; End; END; so que este codigo não altera !!! o codigo anterior altera somente dois campos!!! Obrigado!!!
