Fórum SQLVendas: Cursor not returned from Query #486172
21/07/2014
0
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
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
Curtir tópico
+ 0
Responder
Posts
21/07/2014
Diego Jacauna
Alguém com alguma ideia para resolver esse erro?
Responder
Gostei + 0
21/07/2014
Ricardo
Qual o banco de dados que você esta usando?
Tente excluir a linha do applyupdates e close, open. Coloque refresh no lugar das 3.
Tente excluir a linha do applyupdates e close, open. Coloque refresh no lugar das 3.
Responder
Gostei + 0
21/07/2014
Diego Jacauna
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.
resolvi colocando o seguinte código no lugar:
dmpdv.CDSVendas.Edit;
DMPDV.CDSVendasSTATUS.Value := 'C';
dmpdv.CDSVendas.Post;
nao deu mais erro.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)