autoincremento

Question

Fala Galera!como eu pego o �ltimo registro de uma tabela?Tipo, eu tenho um campo num�rico q � a chave, a� eu quero acrescentar 1 ao n�mero.Como eu fa�o isso?Eu estou usando TTable e Paradox no delphi6...

Profjohnny · Answer

use um segundo componente table com liga��o na mesma tabela e ae no evento OnNewRecord da tabela principal coloque o codigo que deseja...
Ex:
TblClientes --> tabela principal ligada a clientes
TblValidClientes --> tabela secundaria tambem ligada com clientes
no evento OnNewRecord da TblClientes coloque o codigo abaixo:

TblValidClientes.Last;
TblClientesCodCliente.Value:=TblValidClientesCodCliente.Value+1;

Boa Sorte!

Rafael Silva · Answer

Ex:varCodigo : Integer //Variavel para a somabeginTable1.Last; //Vai para o �ltimo registro da tabelaCodigo := Table1.Fields.Fields[0].AsInteger + 1;  //Insere na variavel somando mai umEdit1.Text := IntToStr(Codigo); //Joga o resultado para um edit (isso vc q vai determinar)...

Carlos Sereno · Answer

Boas, j� pensou em por em numera��o autom�tica...

L!nk!n · Answer

[quote:712f0351ff=�Carlos Sereno�]Boas, j� pensou em por em numera��o autom�tica[/quote:712f0351ff]Eu consigo fazer isso no paradox???...

Anonymous · Answer

Carlos Sereno escreveu: Boas, j� pensou em por em numera��o autom�tica Eu consigo fazer isso no paradox???     S I MSIM TIPO DO CAMPO = +...

L!nk!n · Answer

[quote:2c901569e5=�Jairo�]Carlos Sereno escreveu: Boas, j� pensou em por em numera��o autom�tica Eu consigo fazer isso no paradox???     S I MSIM TIPO DO CAMPO = +[/quote:2c901569e5]Valew Galera!!!Eu disse q a d�vida era idiota...Brigad�o!!!...

Kalleby · Answer

estou com a mesma duvida que vc estava �acresentar mais 1 no ultimo registro de uma tabela�, se vc conseguiu favor me enviar pelo email �Kallebygarcia@detran.es.gov.br� as dicas de como conseguir tb.

desde ja eu te agrade�o.....

L!nk!n · Answer

Faz assim �:[quote:8f255fa27a]var v:integer;table.open;table.last;v:= table.fieldbyname(�cod�).asinteger;v:= v +1;[/quote:8f255fa27a]Espero ter ajudado!...

Sandra · Answer

[quote:c0b516fa5a=�l!nk!n�]Fala Galera!como eu pego o �ltimo registro de uma tabela?Tipo, eu tenho um campo num�rico q � a chave, a� eu quero acrescentar 1 ao n�mero.Como eu fa�o isso?Eu estou usando TTable e Paradox no delphi6.[/quote:c0b516fa5a]l!nk!n,Eu costumo fazer a autoincrementa��o atrav�s de SQL. No evento OnNewRecord da sua tabela, coloque:[code:1:c0b516fa5a]With Query1 Do  Begin    Close ;    SQL.Text := �Select Max(Cod_Cliente) from Cliente� ;    Open ;    If Fields&#91;0&93;.isNull Then      TB_Cliente.FieldByName(�Cod_Cliente�).asInteger := 1 ;    Else      TB_ClienteCod_Cliente.AsInteger := Fields&91;0&93;.AsInteger + 1 ;  End ;[/code:1:c0b516fa5a]Nesse caso, voc� n�o vai precisar de criar uma vari�vel auxiliar para incrementar o n� dos seus registros.Boa sorte! :wink:...

F�rum autoincremento #136442