campo autoincremento com MsSql server - S� uma dica

Question

Galera, do Forum DevMedia, um 2006 cheio de prosperidade a todos que aqui est�o, em especial �queles que, voluntariamente t�m desprendido tempo e talento, at� mesmo dividido o muito ou pouco conhecime...

Bon Jovi · Answer

Isso a� 2006 com sucessos p/ n�s.O lance a� � pra gravar mesmo, mas fa�a tudo dentro de uma transa��o qdo o usu�rio apertar pra confirmar tudo. A� se o pedido nao precisar ser efetivamente gravado, d� rollback....

Paulo · Answer

Mas, bon jovi, primeiro eu teria que gravar na tabela de pedidos, para ser gerado o nr_ped(autoinc), e s� depois ir inserindo os itens na tabela itens_pedidos, com o filtro nr_ped, assim:

�select * from itens_pedidos where cod_ped = �+pedidosnr_ped.asinteger;

A sql acima, � s� ilustrativa do que eu quero realmente. Se eu gravar na tb de pedidos e depois inserir itens, n�o vejo nenhum problema com isso, exceto o seguinte: Eu dou um post na tabela pedido e gera um pedido n�5. O cliente desiste, dou um delete na tb pedidos e itens_pedidos, e zero. Quando eu abrir um novo pedido, ir� de 4 para 6, pois o autoinc j� incrementou 1 que foi deletado, certo? � s� isso, caso meu cliente resolva ter os pedidos sequenciais, dos pedidos j� emitidos o q devo fazer?

Paulo · Answer

desculpem-me eu mandar 2 posts seguidos, mas � que me esqueci de algo importante. Se eu der assim:

ADOConnection.BeginTrans

e depois eu vir a dar um post nas tabelas correspondentes, e depois no bot�o cancelar eu digitar rollbacktrans, mesmo eu tendo dado um post, o gerador volta ao valor inicial? Explicando:
A tabela est� em 4. Dou um insert e depois um post, a� ele vai para 5, tudo isso dentro de uma transa��o. Desisto de tudo e dou um rollback. Abro outra transa��o, e dou um novo insert e depois post, qual o valor do autoinc: 5 ou 6? Uso Delphi 7 com MsSql Server 2000 e ADO.

Okama · Answer

Ol� Paulo,
Tive esse problema e encontrei duas alternativas:

A primeira foi criar o pedido com o campo auto incremento e controlar o n�mero sequencial por outro campo, assim os pedidos sempre estariam em sequencia independente da chave prim�ria.

pk_codigo -> autoincremento
ne_ped -> sequencial

A Segunda foi armazenar todo o formul�rio em StringGrid e Array e gravar tudo de uma �nica vez quando pressionado o bot�o �gravar�. Por�m nesta eu n�o usei o autoincremento e sim uma outra tabela de controle para armazenar todos os c�digos das tabelas do aplicativo como era feito com Dbase.

//Aqui pego o c�digo
Select codigo from Tabela_controle where Tabela = �Pedido";
Open;

//Aqui incremento 
Update Tabela_controle set codigo = codigo +1 where Tabela = "Pedido";
ExeqSQL;

tudo isso dentro de uma fun��o fica assim:

Codigo := Fun��oCodigo(�Pedido�);

Espero que ajude.

Bon Jovi · Answer

[quote:86a7039f47]Mas, bon jovi, primeiro eu teria que gravar na tabela de pedidos, para ser gerado o nr_ped(autoinc), e s� depois ir inserindo os itens na tabela itens_pedidos, com o filtro nr_ped, assim: [/quote:86a7039f47]Vc deve gravar tudo de uma vez s�. Vc deve deixar toda a entrada de dados em mem�ria como o Okama falou, mas de prefer�ncia usando ClientDataSet/DbGrid ao inv�s de Array/StringList pro c�digo ficar mais limpo....