Problemas com Paradox e Delphi 7

Delphi

24/07/2003

Estou com problemas com o código abaixo. O objetivo é adicionar números no campo Código do Paradox (estilo auto-incremento), mas quando peço para o cursor ir para o último registro (Dados.tbCandidatos.Last), ele vai para 3 números antes do fim e quando tento criar novo registro dá Key Violation.

dados.tbCandidatos.IndexName:=´ind_CodCandidato´;
dados.tbCandidatos.Refresh;
edtDataCadastro.Text:= DateToStr(Date);
Dados.tbCandidatos.Last;
Codigo:= edtCodigo.Text;
Dados.tbCandidatos.Insert;
edtCodigo.text:= inttostr(strtoint(Codigo) + 2);
Dados.tbCandidatos.Post;
Dados.tbCandidatos.Edit;
AtualizaManutencao;


Fu

Fu

Curtidas 0

Respostas

Fer

Fer

24/07/2003

Piradox?? Deixe disso .. migre para Interbase q é free !!!

Crie uma variavel publica com o Nome CODIGOe Interger.

coloque no evento beforeinsert do tbCandidatos assim:

tbCandidatos.last;
CODIGO:=tbCandidatosCODIGO.asinteger;

e no evento afterinsert assim:

tbCandidatos.edit;
tbCandidatosCODIGO.asinteger:=CODIGO+1;

=))
Falow


GOSTEI 0
Fu

Fu

24/07/2003

Valeu pela força..

Quanto ao Interbase, falei com um atendente da Borland e ele me disse que o Interbase é pago e me passou vários preços por estação e servidor.
Há alguma versão que posso usar free? Pensei no Firebird, mas neste caso para acesso uso os mesmos componentes de acesso ao Interbase?
Se puder tirar tais dúvidas.


GOSTEI 0
POSTAR