Delphi (AdoQuery) BD (SQLSERVER 2014)

13/03/2016

2

Dados.Query_Tb_Agenda.Close;
Dados.Query_Tb_Agenda.SQL.Clear;
Dados.Query_Tb_Agenda.SQL.Add('insert into tb_Agenda values(:agdData, :agdHora, :usuarioid, :Tipo_Consulta, :Tipo_Convenio, :Medico_Requerente),');
Dados.Query_Tb_Agenda.SQL.Add(':Convenio_Carteira, :DoutorId, :AgdChaveMedico, :agdChavePaciente');
//Dados.Query_Tb_Agenda.Parameters.ParamByName('pacienteID').Value:= numero;
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdData').Value:= data;
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdHora').Value:= (DBComboBoxHoraConsulta.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('usuarioid').Value:= 3;
Dados.Query_Tb_Agenda.Parameters.ParamByName('Tipo_Consulta').Value:= (DBcomboBoxConsulta.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('Tipo_Convenio').Value:= (DBComboBoxConvenio.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('Medico_Requerente').Value:=(DBComboBoxMedicoReq.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('Convenio_Carteira').Value:= DBEditConvCarteira.Text;
Dados.Query_Tb_Agenda.Parameters.ParamByName('DoutorId').Value:= 2;
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdChaveMedico').Value:= (DBEditAgdChaveMedico.Text);
Dados.Query_Tb_Agenda.Parameters.ParamByName('agdChavePaciente').Value:= (DBEditAgdChavePaciente.Text);
Dados.Query_Tb_Agenda.ExecSQL;
Dados.Query_Tb_Agenda.Open;

ao confirmar inserção da msg de O aplicativo esta usando um valor incorreto para a operação atual.
Preciso de ajuda, agradeço desde já. Muito obrigado
Responder

Posts

Este erro pode acontecer quando você tenta alimentar o parâmetro com um tipo incorreto.

Exemplo: O parâmetro é inteiro e você tenta alimentá-lo com String.

Debugue o seu código para saber qual linha acontece o erro.
Responder

14/03/2016

P2

Dados.Query_Tb_Agenda.Parameters.ParamByName('').asstring para texto

Dados.Query_Tb_Agenda.Parameters.ParamByName('').asinteger para números inteiros

Ajuda na organização e localização dos erros.

Debug o projeto e veja aonde exatamente ocorre o erro.
Responder