Update com ADOquery delphi
Tenho esse procedimento para UPDATE
//Alteração de dados
qryAlterar.Parameters.ParamByName('nome').Value := qryAlterar.FieldByName('nome').AsString;
qryAlterar.Parameters.ParamByName('sobrenome').Value := DBEditsobrenome.Text;
if MessageDlg ('Alteração Efetuada!',
mtConfirmation,[mbOk],0) = mrOk then
//Fim da alteração de dados
Ocorre a msg de que os dados foram alterados, porém dentro do banco mesmo não altera (só é alterado quando clico no botão do proximo cadastro "adoquery.next")...
O que pode ser?
//Alteração de dados
qryAlterar.Parameters.ParamByName('nome').Value := qryAlterar.FieldByName('nome').AsString;
qryAlterar.Parameters.ParamByName('sobrenome').Value := DBEditsobrenome.Text;
if MessageDlg ('Alteração Efetuada!',
mtConfirmation,[mbOk],0) = mrOk then
//Fim da alteração de dados
Ocorre a msg de que os dados foram alterados, porém dentro do banco mesmo não altera (só é alterado quando clico no botão do proximo cadastro "adoquery.next")...
O que pode ser?
Gxf
Curtidas 0
Respostas
Jones Granatyr
11/01/2017
Opa! Depois de passar os parâmetros você precisa fazer um POST: qryAlterar.Post
GOSTEI 0
Gxf
11/01/2017
Opa! Depois de passar os parâmetros você precisa fazer um POST: qryAlterar.Post
Já havia feito o teste com o Post, porém me apresenta o erro:
"qryAlterar: Dataset not in edit or insert mode".
GOSTEI 0
Raimundo Pereira
11/01/2017
No inicio deverá realizar o edit.
qryAlterar.edit;//inicio da edição
qryAlterar.post;//fim da edição
qryAlterar.edit;//inicio da edição
qryAlterar.post;//fim da edição
GOSTEI 0
Gxf
11/01/2017
No inicio deverá realizar o edit.
qryAlterar.edit;//inicio da edição
qryAlterar.post;//fim da edição
qryAlterar.edit;//inicio da edição
qryAlterar.post;//fim da edição
Desta forma ocorreu:
'Uma linha vazia não pode ser inserida. A linha deve ter pelo menos um valor de coluna definido'.
GOSTEI 0