C�digo Duplicado - Key violation dbExpress e Firibird

Question

Estou com problema, estou migrando para interbase um sistema que usava paradox, so que preciso corrigir um problema que enfrentava no sistema antigo com paradox. Quanto utilizava o sitema em rede, o u...

Marco Salles · Answer

Existem algumas solu�oes.. Voce disse estar usando o Firebird

uma das saidas consiste em criar um Gerador e um Trigger no Banco.. O IBexpert <Utilit�rio> muito usado daz isto facilmente para voce

Agora o exemplo , segue usando a tecnologia DbExpress .. Voce n�o disse qual o componente de acesso que voce pretente usar

Coloque um componente TSqQuery e fa�a as suas configura�oes
<presumo que saiba isto>
Na Propriedade Sql Do COmponente coloque a instru��o

select gen_id(Nome Do Seu Gerador, 1) as ValorChave from rdb$database;

Com eu disse , estou dando um exemplo com DbExpress , ent�o voce deve ter Um SqlConection , SqlQuery , Um DataSetProvinder , Um DataSource , Um ClientDataSet devidamente configurados , alem do Outro SqlQuery que retornara o o Valor Da Chave....

procedure TForm1.ClientDataSet1BeforePost(DataSet: TDataSet); 
begin 
SQLQuery1.Close; 
SQLQuery1.open; 
ClientDataSet1.FieldByName(�NumeroPedido�).AsInteger:=SQLQuery1.FieldByName(�ValorChave�).Asinteger; 
end;

[b:fe857d7ae1]Nesse caso , o codigo do pedido so � gerado No fim , mas nada impe�a que voce gere no inicio , � so alterar o evento do ClintDataset[/b:fe857d7ae1]

Fazendo assim , voce n�o tera dois pedidos com mesno numero , pq quem cuida disso para voce � o Banco...

Boa sorte

F�rum C�digo Duplicado - Key violation dbExpress e Firibird #326656