Fórum Problema ao inserir usando ADOCommand #195623
18/11/2003
0
Estou usando o adocommand para tentar inserir um registro no banco Oracle 8i. Gostaria de saber se este é o método correto e se alguém sabe o que está acontecendo de errado nesse código abaixo:
procedure TFrmBancos.btnokClick(Sender: TObject);
begin
ADOCommand1.CommandText:=´insert into FLU_BAN (cod_banco,num_banco,age_banco,con_banco,ncon_banco,salc_banco,sala_banco,status_banco) values (:codbanco,:numbanco,:nombanco,:agebanco,:conbanco,:nconbanco,:salcbanco,:salabanco,:statusbanco)´;
Adocommand1.Parameters.ParamByName(´codbanco´).Value := dtmfluxo.qrybancosCOD_BANCO.Value ;
Adocommand1.Parameters.ParamByName(´numbanco´).Value := dtmfluxo.qrybancosNUM_BANCO.Value;
Adocommand1.Parameters.ParamByName(´nombanco´).Value := dtmfluxo.qrybancosNOM_BANCO.Value;
Adocommand1.Parameters.ParamByName(´agebanco´).Value := dtmfluxo.qrybancosAGE_BANCO.Value;
Adocommand1.Parameters.ParamByName(´conbanco´).Value := dtmfluxo.qrybancosCON_BANCO.Value;
Adocommand1.Parameters.ParamByName(´nconbanco´).Value := dtmfluxo.qrybancosNCON_BANCO.Value;
Adocommand1.Parameters.ParamByName(´salcbanco´).Value := dtmfluxo.qrybancosSALC_BANCO.Value;
Adocommand1.Parameters.ParamByName(´salabanco´).Value := dtmfluxo.qrybancosSALA_BANCO.Value;
Adocommand1.Parameters.ParamByName(´statusbanco´).Value := dtmfluxo.qrybancosSTATUS_BANCO.Value;
ADOCommand1.Execute;
Após executar a última linha do código está dando a seguinte mensagem:
ERRO NÃO ESPECIFICADO!!!
Alguém sabe porque???
Desde já agradeço.
procedure TFrmBancos.btnokClick(Sender: TObject);
begin
ADOCommand1.CommandText:=´insert into FLU_BAN (cod_banco,num_banco,age_banco,con_banco,ncon_banco,salc_banco,sala_banco,status_banco) values (:codbanco,:numbanco,:nombanco,:agebanco,:conbanco,:nconbanco,:salcbanco,:salabanco,:statusbanco)´;
Adocommand1.Parameters.ParamByName(´codbanco´).Value := dtmfluxo.qrybancosCOD_BANCO.Value ;
Adocommand1.Parameters.ParamByName(´numbanco´).Value := dtmfluxo.qrybancosNUM_BANCO.Value;
Adocommand1.Parameters.ParamByName(´nombanco´).Value := dtmfluxo.qrybancosNOM_BANCO.Value;
Adocommand1.Parameters.ParamByName(´agebanco´).Value := dtmfluxo.qrybancosAGE_BANCO.Value;
Adocommand1.Parameters.ParamByName(´conbanco´).Value := dtmfluxo.qrybancosCON_BANCO.Value;
Adocommand1.Parameters.ParamByName(´nconbanco´).Value := dtmfluxo.qrybancosNCON_BANCO.Value;
Adocommand1.Parameters.ParamByName(´salcbanco´).Value := dtmfluxo.qrybancosSALC_BANCO.Value;
Adocommand1.Parameters.ParamByName(´salabanco´).Value := dtmfluxo.qrybancosSALA_BANCO.Value;
Adocommand1.Parameters.ParamByName(´statusbanco´).Value := dtmfluxo.qrybancosSTATUS_BANCO.Value;
ADOCommand1.Execute;
Após executar a última linha do código está dando a seguinte mensagem:
ERRO NÃO ESPECIFICADO!!!
Alguém sabe porque???
Desde já agradeço.
Cnrosa
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)