Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Problema com tabela temporária !


Riatla

Pergunta

OLá pessoal estou aqui de novo e com um problema que não estou conseguindo resolver ! Tenho uma tabela temporária na qual faço autalizações nela e depois gravo essas atualizações na tabela original !

Mas esta me ocorrendo um erro que não me deixa gravar na tabela original o erro que me dá é esse :

EDataBaseError 'SqlProdTemp' : Cursor not returned from query'.

E estou usando essa linha de comando :

procedure TFPedidoCompra.BtGravarClick(Sender: TObject);

var nmrped: Double;

begin

dm.CdsPedidoCompra.open;

Dm.CdsPedidoCompra.edit;

dm.CdsPedidoCompraNMR_PED.Value := dm.RetornaID('NMR_PED');

dm.CdsPedidoCompraID_FORN.Value := i;

dm.CdsPedidoCompraDTA_PED.Value := DateTimePicker1.Date;

dm.CdsPedidoCompraVLR_PED.Value := StrToFloat(Label8.Caption);

dm.CdsPedidoCompraOBS1_PED.Value := Edit1.Text;

dm.CdsPedidoCompraOBS2_PED.Value := Edit2.Text;

nmrped := dm.CdsPedidoCompraNMR_PED.Value;

dm.CdsPedidoCompra.Post;

dm.CdsPedidoCompra.ApplyUpdates(0);

dm.CdsProdTemp.Edit;

with dm.SQLProdTemp do begin

close;

CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);

ExecSql;

Open;

end;

dm.CdsProdTemp.close;

dm.CdsProdTemp.Open;

end;

Uso Delphi 7 e Firebird 2.0

Alguém poderia me ajudar ?

agradeço desde já !

Riatla

Editado por Riatla
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Erro: EDataBaseError 'SqlProdTemp' : Cursor not returned from query'.

Cursor não retornou da query

with dm.SQLProdTemp do begin
close;

  CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);
  ExecSql;

end;

dm.CdsProdTemp.close;
dm.CdsProdTemp.Open;

experimente tirar o comando open do código e veja se o erro acontece novamente

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
Erro: EDataBaseError 'SqlProdTemp' : Cursor not returned from query'.

Cursor não retornou da query

with dm.SQLProdTemp do begin
close;

  CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);
  ExecSql;

end;

dm.CdsProdTemp.close;
dm.CdsProdTemp.Open;

experimente tirar o comando open do código e veja se o erro acontece novamente

abraço

Bem Jhonas eu mudei a linha de comando aqui e deu certo, não está dando mais o erro !

Usei essa linha aqui :

procedure TFPedidoCompra.BtGravarClick(Sender: TObject);

var nmrped: Double;

begin

dm.CdsPedidoCompra.open;

Dm.CdsPedidoCompra.edit;

dm.CdsPedidoCompraNMR_PED.Value := dm.RetornaID('NMR_PED');

dm.CdsPedidoCompraID_FORN.Value := i;

dm.CdsPedidoCompraDTA_PED.Value := DateTimePicker1.Date;

dm.CdsPedidoCompraVLR_PED.Value := StrToFloat(Label8.Caption);

dm.CdsPedidoCompraOBS1_PED.Value := Edit1.Text;

dm.CdsPedidoCompraOBS2_PED.Value := Edit2.Text;

nmrped := dm.CdsPedidoCompraNMR_PED.Value;

dm.CdsPedidoCompra.Post;

dm.CdsPedidoCompra.ApplyUpdates(0);

dm.CdsProdTemp.Edit;

with dm.SQLProdTemp do begin

close;

CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);

ExecSql;

CommandText := 'select id_produto, des_produto, id_vendedor, prc_vnd, prc_vnd_vendedor, qtd_produto, sld_produto, prc_unt, prc_tot, Id_forn, nmr_ped from PRODTEMP';

ExecSQL;

open;

end;

ShowMessage('O número desse pedido é : ' + FloatToStr(nmrped) + ' !' );

dm.CdsProdTemp.close;

//

dm.CdsProdTemp.Open;

dm.cdsprodtemp.close;

não me dei erro algum, acho que agora está tudo certo !

Valeu pela força !

um Abraço

Tópico Resolvido !

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...