Fórum Problemas com Paradox e Delphi 7 #171226
24/07/2003
0
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;
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
Curtir tópico
+ 0
Responder
Posts
24/07/2003
Fer
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
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
Responder
Gostei + 0
24/07/2003
Fu
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.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)