ado/access/delphi - erro execução de query
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?
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
Curtidas 0
Respostas
Comodelphi
11/05/2004
Use AdoCommand
GOSTEI 0
Tathianam
11/05/2004
Tente ao invés de .Open
o
.Execute
o
.Execute
GOSTEI 0
Marcos
11/05/2004
Não usa o Open
DM.qry_insertfunc.Open;
E sim o:
DM.qry_insertfunc.ExecSql;
DM.qry_insertfunc.Open;
E sim o:
DM.qry_insertfunc.ExecSql;
GOSTEI 0
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