Quando me voy a llamar una SP, me viene el error:
Erro ao tentar converter varchar em DateTime
Pero no lo se de onde viene este varchar. Abajo mis codigos.
Código SQL
[-]CREATE PROCEDURE [dbo].[sp_INS_LOG_INDEX_JUS](
@TIPO_EDICAO VARCHAR(20),
@NUM_EDICAO VARCHAR(10),
@DATA_EDICAO DATETIME,
@NUM_PAGINA VARCHAR(10),
@JUSTIFICATIVA TEXT,
@id bigint output
) as
begin
insert into INDEX_LOG_JUS(TIPO_EDICAO,NUM_EDICAO,DATA_EDICAO,
NUM_PAGINA,JUSTIFICATIVA) values
(@TIPO_EDICAO,@NUM_EDICAO,@DATA_EDICAO,
@NUM_PAGINA,@JUSTIFICATIVA);
select @id = @@identity
end
Mi funcion para llamar la SP
Código SQL
[-]function TGeneralFiles.InsereJus(Tipo_Edicao, Num_Edicao: String;Data: TDateTime; Num_Pagina, Justificativa: String;
ObjConn: TAdoConnection;ObjSp: TADOStoredProc): int64;
begin
with ObjSp, Parameters do
begin
ParamByName('@TIPO_EDICAO').Value := Tipo_Edicao;
ParamByName('@NUM_EDICAO').Value := Num_Edicao;
ParamByName('@DATA_EDICAO').Value := Data;
ParamByName('@NUM_PAGINA').Value := Num_Pagina;
ParamByName('@JUSTIFICATIVA').Value := Just;
try
ExecProc;
Result := ParamByName('@id').Value;
Commit(ObjConn);
except
Rollback(ObjConn);
raise;
end;
end;
end;
Y mis parametros
Código SQL
[-]procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
if PodeInserir then
FGeneralFiles.InsereJus(edtTipoEdicao.Text,edtNumEdicao.Text,edtData.DateTime,edtNumPagina.Text,FGen eralFiles.Just,ADOConn,spJus)
else
ShowMessage('Alguns campos não foram preenchidos.'+#13+#10+'Favor corrigir o problema e tentar novamente');
end;
Gracias!