Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

  • 0
adm.mtinformatica

Delphi Commit

Pergunta

Boa tarde pessoa. Uso delphi 10 como interbase e firebird 2.0....
Uso ibtable, quando dou um insert, coloco os dados nos campos, dou um post e um commit salva 100% no banco...
Porem num cadastro de cliente por exemplo...
Se dou ibtable.insert
informo o nome do cliente como "Joao", e antes de dar um commit edito o nome do cliente para "Pedro" e ai sim dou um commit... Ele salva a primeira informação, ele não salva o Pedro e Sim o João, justamente por que não dei o commit após inserir a primeira informação...
Como proceder?
Pois numa tela de vendas, não posso dar o commit para ir para o banco antes de inserir os ítens...
Agradecido...

Compartilhar este post


Link para o post
Compartilhar em outros sites

0 respostas a esta questão

Recommended Posts

Até agora não há respostas para essa pergunta


  • Conteúdo Similar

    • Por Daniel Jose Sobrinho
      Olá, eu tenho um memo em Delphi com as seguintes linhas
       
      CALDO DE GALINHA
      LEMON PEPPER
       
      Preciso que fique com 10 ponto e virgula, já contando os que vão estar no espaço em branco assim:
       
      CALDO;DE;GALINHA;;;;;;;;
      LEMON;PEPPER;;;;;;;;;
       
      Pra substituir os espaços em branco já usei o stringreplace e funcionou corretamente:
       
      memo1.text := StringReplace(memo1.text,',',';',[rfReplaceAll]);
    • Por Giuliano Santos
      Boa tarde,
      Estou tentando fazer um SQL com Firebird que traga o maior valor de venda par um determinado cliente, mas junto também traga campos como a data dessa venda.
      o SQL com comente o ID do cliente e o valor eu consigo colocar, mas quando adiciono o campo data ele me traz todas as datas de vendas.
      Alguém poderia me ajudar com esse SQL por favor?
       
      Segue SQL que eu fiz:
       
      select s.CLIENTE AS id_cliente, n.DATA, MAX(n.VALOR) AS maior_venda from produtos_eventos pe inner join saidas s on s.saida = pe.cod_operacao and s.cancelada = 'F' inner join eventos ev on ev.evento = s.evento and ev.tipo_evento = 'S' and ev.tipo_saida = 'V' INNER JOIN nf n ON n.NOTA = pe.NOTA AND n.TIPO_OPERACAO = 'S' LEFT JOIN CONDICOES_PGTO cp ON cp.CONDICOES_PGTO = s.CONDICOES_PGTO where pe.quantidade <> 0 and pe.tipo_operacao = 'S' AND s.CLIENTE = 1000395 GROUP BY 1,2  
    • Por jjunior100
      Preciso armazenar o total das páginas de um determinado documento em uma variável no delphi. Sei como inserir a informação no modelo MSWord.Selection.Fields.Add( Range:=MSWord.Selection.Range, Type:=wdFieldEmpty, Text:= 'NUMPAGES * Arabic ', PreserveFormatting:=True);
      mas como armazenar essa informação em uma variável tipo integer? Obrigado
    • Por Hacker_Buiu
      Delphi está na área errada,não deveria ser numa área desktop,ao contrário de web?
    • Por janir.matheus
      Bom dia,
       
      Preciso de ajuda ajuda para resolver o problema de SIGSEGV, basicamente tennho um zconection dentro de uma classe e recebo erro quando tento acessá-lo. Segue um trecho da classe:
      unit unt_classconexao; {$mode objfpc}{$H+} interface uses Classes, SysUtils, ZConnection, ZDataset; type { tConexao } tConexao = class private public vConector : TZConnection; function Listar_Usuarios:TZReadOnlyQuery; procedure Conectar_Banco; end; implementation { tConexao } function tConexao.Listar_Usuarios: TZReadOnlyQuery; var zrquery : TZReadOnlyQuery; begin Conectar_Banco; try zrquery := TZReadOnlyQuery.Create(nil); zrquery.Connection := vConector; zrquery.SQL.Clear; zrquery.SQL.Text := 'SELECT * from tbl_profissionais'; zrquery.Open; Listar_Usuarios := zrquery; finally end; end; procedure tConexao.Conectar_Banco; begin //vConector := TZConnection.Create(nil); vConector.HostName := 'localhost'; vConector.Port := 3306; vConector.Database := 'Caps'; vConector.Protocol := 'mysql-5'; vConector.User := 'root'; vConector.Password := ''; vConector.Connected := true; end; end. Após isso tento fazer uso dessa classe para popular um DBGrid:
      unit unt_frmprincipal; {$mode objfpc}{$H+} interface uses Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, Menus, DBGrids, ZConnection, unt_classconexao; type { Tfrm_principal } Tfrm_principal = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; MainMenu_frmPrincipal: TMainMenu; MenuItem_AplicativoSair: TMenuItem; N1: TMenuItem; MenuItem_AplicativoLogin: TMenuItem; MenuItem_Aplicativo: TMenuItem; procedure MenuItem_AplicativoLoginClick(Sender: TObject); private public vConexao : tConexao; end; var frm_principal: Tfrm_principal; implementation {$R *.lfm} { Tfrm_principal } procedure Tfrm_principal.MenuItem_AplicativoLoginClick(Sender: TObject); begin //vConexao := tConexao.Create; DataSource1.DataSet := vConexao.Listar_Usuarios; end; end. A mensagem de erro que recebo dá a entender que o problema ocorre logo que o zconnection começa a ser configurado, como vocês podem ver pelos trechos comentados eu tentei instanciar o componente também sem sucesso. Não tenho experiencia com POO e tenho certeza que estou cometendo um erro bobo, então peço uma explicação sobre como resolver isso. Agradeço de antemão a quem puder me ajudar.
       
      PS. Estou usando o Lazarus.
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.