Fórum ado/access/delphi - erro execução de query #231387

11/05/2004

0

estou com problema na execução desta query:

DM.qry_insertfunc.Close;
DM.qry_insertfunc.SQL.Clear;
DM.qry_insertfunc.SQL.Add(´insert into Tab_Funcionarios (nome,usuario,senha,´);
DM.qry_insertfunc.SQL.Add(´acesso,cpf,endereco,bairro,cep) values´);
DM.qry_insertfunc.SQL.Add(´(:nome,:usuario,:senha,:acesso,:cpf,´);
DM.qry_insertfunc.SQL.Add(´:endereco,:bairro,:cep)´);
DM.qry_insertfunc.Parameters.ParamByName(´nome´).Value:=edt_nome.Text;
DM.qry_insertfunc.Parameters.ParamByName(´usuario´).Value:=edt_usuario.Text;
DM.qry_insertfunc.Parameters.ParamByName(´senha´).Value:=edt_senha.Text;
DM.qry_insertfunc.Parameters.ParamByName(´acesso´).Value:=cmb_acesso.Text;
DM.qry_insertfunc.Parameters.ParamByName(´cpf´).Value:=edt_cpf.Text;
DM.qry_insertfunc.Parameters.ParamByName(´endereco´).Value:=edt_endereco.Text;
DM.qry_insertfunc.Parameters.ParamByName(´bairro´).Value:=edt_bairro.Text;
DM.qry_insertfunc.Parameters.ParamByName(´cep´).Value:=edt_cep.Text;
if not DM.qry_insertfunc.Prepared then
DM.qry_insertfunc.Prepared:=true;
Try
DM.qry_insertfunc.Open;
showmessage(´Inclusão bem sucedida!´)
except
showmessage(´Ocorreu um erro!´)
end;

estou usando ADOQuery, mas esta gerando erro:
raise exception class EOleException with message ´A operação deve usar uma consulta atualizável´.

alguém pode me dizer o que está acontecendo errado? não posso usar um adoquery para fazer update, delete ou insert?
Marceloro

Marceloro

Responder

Posts

11/05/2004

Comodelphi

Use AdoCommand
Responder

Gostei + 0

11/05/2004

Tathianam

Tente ao invés de .Open

o

.Execute
Responder

Gostei + 0

12/09/2016

Marcos

Não usa o Open

DM.qry_insertfunc.Open;

E sim o:
DM.qry_insertfunc.ExecSql;
Responder

Gostei + 0

15/09/2016

Huidemar Costa

Fora as dicas que já foram mencionadas, talvez você tenha que deixar a propriedade RequestLive da query com o valor TRUE.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar