Adicionar um novo registro automaticamente

Question

Ol�, algu�m sabe como eu fa�o para que eu consiga gerar um valor para um campo toda vez que eu clicar em �Novo�?Eu t� usando o seguinte:var i: Integer;...Tabela.Last;i:= Tabela.FieldByName(�Codigo�).A...

Andersonpgsql · Answer

Qual banco de dados vc ta usando?? vc pode fazer isso dentro do banco...para sistemas cliente servidor seria melhor se vc fizesse no banco, caso queira insistir em fazer desta forma vou te dar uma dica...

var
i,vl: Integer;
...
Tabela.Last;
i:= Tabela.FieldByName(�Codigo�).AsInteger;
v:=i+1;
Tabela.Insert;
Tabela.Edit;
Tabela.FildByName(�Codigo�):= v;
...

outra coisa...confira se a tabela esta aberta ou ativa... se n�o tive abra e ative-a

ai ve se da certo...mas ainda seria melhor se vc fizesse dentro do banco...como uma trigger ou uma sequencia ou at� mesmo uma fun��o...

Andersonpgsql · Answer

[quote:62b52654da=�andersonpgsql�]Qual banco de dados vc ta usando?? vc pode fazer isso dentro do banco...para sistemas cliente servidor seria melhor se vc fizesse no banco, caso queira insistir em fazer desta forma vou te dar uma dica...var i,vl: Integer; ... Tabela.Last; i:= Tabela.FieldByName(�Codigo�).AsInteger; v:=i+1;Tabela.Insert; Tabela.Edit;Tabela.FildByName(�Codigo�):= v; ... outra coisa...confira se a tabela esta aberta ou ativa... se n�o tive abra e ative-aai ve se da certo...mas ainda seria melhor se vc fizesse dentro do banco...como uma trigger ou uma sequencia ou at� mesmo uma fun��o...[/quote:62b52654da]um pequeno erro � vl, eu coloquei s� v (rsrs)...

M@teus · Answer

Meu banco de dados � o Access e eu uso conex�o ADO. Valeu pela dica, funcionou, mas eu t� com um outro problema e queria aproveitar o t�pico:
Em um Form eu tenho uma DBEdit (txtCodProduto) que possui o seguinte c�digo no evento OnChange:

if frmProdutos.tbProdutos.Locate(�Codigo�, txtCodProduto.Text, [])= True then
txtDescricao.Text:= frmProdutos.tbProdutosCodigo.AsString
else
txtDescricao.Text:= ��;

Em runtime, quando fa�o alguma altera��o na DBEdit d� um erro dizendo que os argumentos s�o insuficientes ou est�o incorretos. Onde que pode estar o erro?

Facc · Answer

[quote:fb4ff46bc2=�M@tEuS�]Meu banco de dados � o Access e eu uso conex�o ADO. Valeu pela dica, funcionou, mas eu t� com um outro problema e queria aproveitar o t�pico:
Em um Form eu tenho uma DBEdit (txtCodProduto) que possui o seguinte c�digo no evento OnChange:

if frmProdutos.tbProdutos.Locate(�Codigo�, txtCodProduto.Text, [])= True then
txtDescricao.Text:= frmProdutos.tbProdutosCodigo.AsString
else
txtDescricao.Text:= ��;

Em runtime, quando fa�o alguma altera��o na DBEdit d� um erro dizendo que os argumentos s�o insuficientes ou est�o incorretos. Onde que pode estar o erro?[/quote:fb4ff46bc2]

Em que momento d� esse erro? Vc n�o tem nenhuma procedure lincada no OnExit desse DBEdit?

M@teus · Answer

Ocorre o erro no OnChange, ou seja quando h� altera��o no componente. J� tentei no OnExit e deu na mesma....

Facc · Answer

[quote:3528c694f7=�M@tEuS�]Ocorre o erro no OnChange, ou seja quando h� altera��o no componente. J� tentei no OnExit e deu na mesma.[/quote:3528c694f7]

e esse o c�digo que se encontra no OnChange?

if frmProdutos.tbProdutos.Locate(�Codigo�, txtCodProduto.Text, [])= True then
txtDescricao.Text:= frmProdutos.tbProdutosCodigo.AsString
else
txtDescricao.Text:= ��;

Experimente assim

if frmProdutos.tbProdutos.Locate(�Codigo�, txtCodProduto.Text, []) then

Pois se encontrar o locate ele j� traz o valor True, caso contrario, False

F�rum Adicionar um novo registro automaticamente #334757