Fórum Auto Incremento no Paradox... #255840
25/10/2004
0
pessoal preciso fazer o auto incremento p isso utilizo os seguintes parametros:
self.tAutInc.Close;
self.tAutInc.TableName := ´TABELA.DB´;
self.tAutInc.Open;
self.tAutInc.IndexFieldNames := ´CODIGO´;
self.tAutInc.Last;
self.tTabelaCampo.AsInteger := self.tAutInc.FieldValues[´CODIGO´]+1;
soh q da o seguinte erro: [b:4ad3009274]Invalid Variant Operation[/b:4ad3009274], oq devo fazer!aguem sabe?
self.tAutInc.Close;
self.tAutInc.TableName := ´TABELA.DB´;
self.tAutInc.Open;
self.tAutInc.IndexFieldNames := ´CODIGO´;
self.tAutInc.Last;
self.tTabelaCampo.AsInteger := self.tAutInc.FieldValues[´CODIGO´]+1;
soh q da o seguinte erro: [b:4ad3009274]Invalid Variant Operation[/b:4ad3009274], oq devo fazer!aguem sabe?
Hviana
Curtir tópico
+ 0
Responder
Posts
25/10/2004
Carlos Bernardo
Eu faço assim : crio uma query e na propriedade SQL eu digito
Select Max(Codigo) from Tabela
dou dois cliques na query e adiciono o campo
No evento do oncreate do form em q cadastro, eu digito :
sqlmaxTab.Close;
sqlmaxTab.Open;
tbltabcodigo.asinteger := sqlmaxtabCod.Asinteger + 1;
Caso, tenha dúvidas, mande ae...
Select Max(Codigo) from Tabela
dou dois cliques na query e adiciono o campo
No evento do oncreate do form em q cadastro, eu digito :
sqlmaxTab.Close;
sqlmaxTab.Open;
tbltabcodigo.asinteger := sqlmaxtabCod.Asinteger + 1;
Caso, tenha dúvidas, mande ae...
Responder
Gostei + 0
25/10/2004
Repa
Vc precisa fazer o autoincremento no programa? Não seria mais fácil atribuir auto incremento p/ esse campo direto na tabela (database desktop)?
Responder
Gostei + 0
25/10/2004
Hviana
Vc precisa fazer o autoincremento no programa? Não seria mais fácil atribuir auto incremento p/ esse campo direto na tabela (database desktop)?
valew cara assim funcionou!!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)