Delphi7 x Firebird x Rede.

Question

Boa tarde,Preciso de ajuda quanto a um programa que fiz e que esta em rede.Simplesmente nao estou conseguindo atualizar as tabelas em tempo real tipo quando o usuario 1 cadastra um novo produto o prog...

Woinch · Answer

Sugiro a voc� fazer uma fun��o que gerencie os numeradores para a chave primaria dessa tabela.

Ex.

Criar uma tabela Numerador com os campos Tabela, Campo, Valor
Essa fun��o ir� consultar o valor referente ao campo e a tabela que voc� quer fazer a inser��o e acrescentar �UM� no valor. Ap�s a inser��o nessa tabela deve ser feita com o valor da chave primaria que foi retornado do campo Valor da tabela Numerador. Todas as inser��es na tabela devem passar por essa fun��o primeiro para pegar um Numerador v�lido e automaticamente incrementar o valor correspondente a esse numerador na tabela de Numeradores.

Qualquer d�vida favor responder.

Sidimarsilva · Answer

Boa tarde,Esqueci de postar o codigo que estou usando.Eu estou usando o codigo.    QryAux.Close;    QryAux.SQL.Clear;    QryAux.SQL.Add(�select max(mar_id)+1 as prox from marca�);    QryAux.ExecSQL;    QryAux.Open;    QryMarcaMAR_ID.AsInteger:=QryAux.fieldbyname(�prox�).AsInteger;=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=Woinch, desculpe mas pelo problema que estou encontrando acho que criar uma nova tabela nao adiantaria pois se o usuario um criar um novo registro nao a nova tabela (com os codigos), n�o seria atualizada certo?...

Emerson Nascimento · Answer

sugiro a voc� pesquisar por generators + triggers/stored procedure.
� a melhor forma de garantir esse incremento.

uma forma simples de trabalhar com generators:
na sua ferramenta de administra��o do banco, crie o generator.
[b:2d25cc5ec5]CREATE GENERATOR GEN_MARCA;[/b:2d25cc5ec5] -- generator da tabela marca
[b:2d25cc5ec5]SET GENERATOR GEN_MARCA TO 25;[/b:2d25cc5ec5] -- substitua o 25 pelo ID atual da tabela

da�, para atribuir o numero sem preocupa��o quanto � duplicidade, fa�a desta forma:

QryAux.Close;
QryAux.SQL.Clear;
QryAux.SQL.Add(�SELECT GEN_ID(GEN_MARCA,1) PROXIMO FROM RDB$DATABASE�);
QryAux.Open;
QryMarcaMAR_ID.AsInteger := QryAux.fieldbyname(�proximo�).AsInteger;
QryAux.Close;

Sidimarsilva · Answer

Ola emerson.en,Realmente deu certo nao da mais erro de chave...Agora alguem poderia me ajudar quanto a atualiza�ao: Tipo o usuario 1 ver os dados cadastrados pelo usuario 2 sem ter que sair e entrar novamente?Obrigado....

L_carlos · Answer

Se vc estiver usando IBX basta dar um duplo clique no IBTRANSACION e marcar a op��o READCOMMITED e pronto, vai atualizar em todas as maquinas na hora.Luiz...

Sidimarsilva · Answer

Bom dia,Quanto a atualiza��o eu mudei a propriedade TransactIsolationLevel para tiReadCommitted e mude o ReadOnly para False.Aparentemente resolveu o problema Obrigado mais uma vez pessoal... t+....

F�rum Delphi7 x Firebird x Rede. #371510