ado/access/delphi - erro execução de query

Delphi

11/05/2004

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

Curtidas 0

Respostas

Comodelphi

Comodelphi

11/05/2004

Use AdoCommand
GOSTEI 0
Tathianam

Tathianam

11/05/2004

Tente ao invés de .Open

o

.Execute
GOSTEI 0
Marcos

Marcos

11/05/2004

Não usa o Open

DM.qry_insertfunc.Open;

E sim o:
DM.qry_insertfunc.ExecSql;
GOSTEI 0
Huidemar Costa

Huidemar Costa

11/05/2004

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