(Resolvido) Conexao com Banco de Dados - Adicionando novo registro

[pimpocvl007]

Boa noite

Preciso da opiniao de voces.

Tenho uma aplicacao desenvolvida em delphi: 10, banco: firebird 2.5 ligado atraves do componente: TIBDatabase (aba interbase), toda vez que a aplicacao e aberta, (on show) eu ativo o banco (TIBDatabase), ativo a transacao (TIBTransaction), quando o usuario acessa o Form referente ao cadastro de "clientes" eu ativo o TIBDataset, quando o usuario salva um novo registro um sql via TIBQUERY verifica o ultimo codigo de cliente cadastrado (max) soma mais um e gera um novo codigo para o cliente e o registro e salvo com sucesso, ocorre que...

...o usuario X acessa a aplicacao e vai na opcao (form) para criar um novo CLIENTE, o usuario Y tambem acessa ao mesmo tempo e tambem vai nesta opcao para criar outro cliente, o usuario X salva o registro e gera um novo codigo para este cliente, mas quando o usuario Y vai salvar o seu registro ele não recebeu a atualizacao que o usuario X fez e da erro.

Estou pensando em em desativar o banco quando o usuario for salvar um novo registro, tipo, desativo, ativo (ele recebe os dados atualizados) e salvo. Ai pergunto, este seria o procedimento correto para resolver este impasse?

Obrigado

Olimpio

[robinhocne]

Boa noite

Preciso da opiniao de voces.

Tenho uma aplicacao desenvolvida em delphi: 10, banco: firebird 2.5 ligado atraves do componente: TIBDatabase (aba interbase), toda vez que a aplicacao e aberta, (on show) eu ativo o banco (TIBDatabase), ativo a transacao (TIBTransaction), quando o usuario acessa o Form referente ao cadastro de "clientes" eu ativo o TIBDataset, quando o usuario salva um novo registro um sql via TIBQUERY verifica o ultimo codigo de cliente cadastrado (max) soma mais um e gera um novo codigo para o cliente e o registro e salvo com sucesso, ocorre que...

...o usuario X acessa a aplicacao e vai na opcao (form) para criar um novo CLIENTE, o usuario Y tambem acessa ao mesmo tempo e tambem vai nesta opcao para criar outro cliente, o usuario X salva o registro e gera um novo codigo para este cliente, mas quando o usuario Y vai salvar o seu registro ele não recebeu a atualizacao que o usuario X fez e da erro.

Estou pensando em em desativar o banco quando o usuario for salvar um novo registro, tipo, desativo, ativo (ele recebe os dados atualizados) e salvo. Ai pergunto, este seria o procedimento correto para resolver este impasse?

Obrigado

Olimpio

Eu utilizo quase assim, mas é no Delphi 7 e Firebird 2.0, mas o que faço e sempre deixar conectado o banco e ai uso a Query para fazer os Ups, Inserts, Selects e ects....

Tive esse problema de inicio, mas é bem facil, no botão novo registro eu também sempre busco o ultimo codigo para informar o registro, mas antes de salvar eu faço ele busca de novo só para garantir que alguém em rede já tenha salvo, se não vai zicar tudo mesmo......

abraços

[Jhonas]

FMenu.IBTransaction1.Commit;
FMenu.IBTransaction1.StartTransaction;

dessa maneira voce atualiza o banco de dados para pegar o ( Max ) e depois salvar o registro atualizado

abraço

[pimpocvl007]

Ola,

Resolvi dando DOIS CLIQUES no componente "TIBTransaction" e habilitei a opcao: READ COMMITTED.

Jhonas

Ao utilizar a sua dica deu erro: "transaction is actived"

Voce acha que seria correto utilizar esta opcao READ COMMITTED?

Obrigado

Olimpio

[Jhonas]

esta correto, voce deve usar:

read_committed

rec_version

Jhonas

Ao utilizar a sua dica deu erro: "transaction is actived"

esse erro acontece se voce não iniciar o banco dessa maneira:

//ATUALIZAR OS DADOS PARA A REDE
   if FMenu.IBTransaction1.InTransaction = false then
      begin
         FMenu.IBDatabase1.CloseDataSets;
         FMenu.IBDatabase1.Open;
         FMenu.IBTransaction1.StartTransaction;
      end;

abraço