Auto Incremento no Paradox...

Delphi

25/10/2004

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?


Hviana

Hviana

Curtidas 0

Respostas

Carlos Bernardo

Carlos Bernardo

25/10/2004

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...


GOSTEI 0
Repa

Repa

25/10/2004

Vc precisa fazer o autoincremento no programa? Não seria mais fácil atribuir auto incremento p/ esse campo direto na tabela (database desktop)?


GOSTEI 0
Hviana

Hviana

25/10/2004

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!!!!


GOSTEI 0
POSTAR