AutoInc

Question

Tenho uma tabela feita em Paradox, onde o campo Cod foi definido como autoinc, acontece que quando um registro � exclu�do, 3 por exemplo, outro novo cliente n�o poder� assumir aquele C�digo 3 dispon�v...

Aroldo Zanela · Answer

Quanto trabalhamos com tabelas Paradox e apagamos o seus registros, o contador do campo AutoIncremento n�o � zerado, criando muitas vezes um grande inconveniente. Para resolver esse problema, use a seguinte fun��o:

function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
begin
with TFileStream.Create(FileName, fmOpenReadWrite) do
begin
Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4);
Free;
end;
end;
O par�metro FileName � o nome da tabela, incluindo o caminho. E o par�metro Base � o valor inicial para o contador do AutoIncremento. Veja um exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
ResetAutoInc(�C:\Temporario\Cliente.db�, 1);
end;

Pirateado de: http://www.elivaldo.com.br

Sandra · Answer

Ol�, Luck!

:arrow: Ao inv�s de usar o + (autoincremento) autom�tico, fa�a-o manualmente, usando SQl:

1-Mude o tipo do campo para I (integer).
2-No evento OnNewRecord da tabela, coloque:

procedure TDM.TB_ClienteNewRecord(DataSet: TDataSet);
begin
  With Query1 Do
    Begin
      Close ;
      SQL.Text := �Select Max(Cod_Cliente) from Cliente� ;
      Open ;
      If Fields[0].isNull Then
        TB_Cliente.FieldByName(�Cod_Cliente�).asInteger := 1 ;
      Else
        TB_ClienteCod_Cliente.AsInteger := Fields[0].asInteger + 1 ;
    End ;
end;

Fica mais f�cil. :wink:

Tenho uma tabela feita em Paradox, onde o campo Cod foi definido como autoinc, acontece que quando um registro � exclu�do, 3 por exemplo, outro novo cliente n�o poder� assumir aquele C�digo 3 dispon�vel. Como posso fazer para corrigir esse tipo de problema? Antecipadamente agrade�o. Alo�sio Santos aloisiosantos@bol.com.br Fone:(74) 9979-6194 :roll:

Marcelo · Answer

[quote:ed3527de7a=�Luck�]Tenho uma tabela feita em Paradox, onde o campo Cod foi definido como autoinc, acontece que quando um registro � exclu�do, 3 por exemplo, outro novo cliente n�o poder� assumir aquele C�digo 3 dispon�vel.Como posso fazer para corrigir esse tipo de problema?Antecipadamente agrade�o.Alo�sio Santosaloisiosantos@bol.com.brFone:(74) 9979-6194 :roll:[/quote:ed3527de7a]Olha luci,,,Isso, na verdade, nao eh um problema, e sim algo muito bom, que eu lhe recomendo nao tentar mudar, pois quando um CODIGO � excluido e subistituido um outro cadastro com a mesma referencia de CODIGO, voce estara sujeito a fazer com que o restante do programa que tem esse codigo como referencia, ser assumido pelo outro cadastro, que pode nao ter nada a ver com o outro cadastro!!! mas se vc deseja fazer isso,(que nao eh recomendavel) vc pode fazer assim:Mude o campo da tabela para Alpha, e faca uma busca do ultimo cadastro e acrescente + 1, com esse codigo:[b:ed3527de7a]ECodito.text:=IntToStr(Table1.RecordCount + 1);[/b:ed3527de7a]e Coloque no evento ONEnter do ECodigo.Text esse:[b:ed3527de7a]EDescricao.SetFocus;[/b:ed3527de7a]Valeu?at+......

Anonymous · Answer

Oi, LuckV�rios colegas j� resolveram sua d�vida. �timo. Como informa��o adicional, uma vez que j� passei por isso,  lembro que os campos autoincremento apresentam uma vantagem adicional por n�o repetirem n�meros que s�o exclu�dos. Imagine uma empresa que tem um cadastro de clientes padr�o, e um cadastro adicional dos mau pagadores. Muito provavelmente o mau pagador ser� exclu�do do cadastro padr�o bem r�pido  (pr� qu� ficar mandando mala direta se a compra anterior ele n�o pagou ?). No entanto, possivelmente a empresa vai querer mant�-lo no cadastro de mau pagador por mais tempo, inclusive para que ele venha a fazer uma nova compra alguns meses depois.  Se assim que ele foi exclu�do do cadastro padr�o o seu n�mero de c�digo foi utilizado para um novo cliente, este novo cliente estar� com o mesmo c�digodo mau pagador... na primeira consulta que se fizer, o novo cliente ser�taxado de mau pagador... Claro que h� diversas formas de se evitar isso e com certeza voc� j� adotou alguma delas.  Espero ter sido �til. CarlosRM....

F�rum AutoInc #148319