Proc1.StoredProcName := 'UpdatePunchFromHoro';
Proc1.Prepare;
begin
Proc1.ParamByName('LookDate').AsDate := now;
Proc1.ParamByName('Empl').asInteger := strTOInt(edit1.text) ;
Proc1.ParamByName('ClockTime').asDateTime:= Now;
Proc1.Execute;
end
finally
PRoc1.UnPrepare;
end;
Nothing with this code
I assign value in params default values and execute from the tMyStoredProc dialog button
all is ok
what'is wrong