SQLVendas: Cursor not returned from Query

Delphi

21/07/2014

Olá Pessoal,

Está dando este erro quando tento modificar um registro em uma tabela.

Apesar do erro o comando é executado normalmente, porém quando clico no botão aparece este erro e a tabela não carrega mais.

segue abaixo o código que estou utilizando.


DMPDV.CDSVendas.Edit;
DMPDV.CDSVendas.CommandText := 'update VENDAS set status = :PStatus WHERE CODIGO = :Pcodigo';
DMPDV.CDSVendas.Params.ParamByName('Pcodigo').AsInteger := DMPDV.CDSVendasCODIGO.Value;
DMPDV.CDSVendas.Params.ParamByName('PStatus').AsString := status;
DMPDV.CDSVendas.Post;
DMPDV.CDSVendas.ApplyUpdates(0);
dmpdv.CDSVendas.Close;
dmpdv.CDSVendas.Open;

[img]http://arquivo.devmedia.com.br/forum/imagem/375496-20140721-103316.png[/img]

Desde já agradeço a atenção de todos
Diego Jacauna

Diego Jacauna

Curtidas 0

Respostas

Diego Jacauna

Diego Jacauna

21/07/2014

Alguém com alguma ideia para resolver esse erro?
GOSTEI 0
Ricardo

Ricardo

21/07/2014

Qual o banco de dados que você esta usando?

Tente excluir a linha do applyupdates e close, open. Coloque refresh no lugar das 3.
GOSTEI 0
Diego Jacauna

Diego Jacauna

21/07/2014

Primeiramente obrigado Ricardo pela atenção....
resolvi colocando o seguinte código no lugar:

dmpdv.CDSVendas.Edit;
DMPDV.CDSVendasSTATUS.Value := 'C';
dmpdv.CDSVendas.Post;


nao deu mais erro.
GOSTEI 0
POSTAR