急~！！！分数全给了~数据库操作问题
use xuejiguanli
go
create proc MR_Insert_XuanXiu
@XueHao varchar(20),
@KeChenHao varchar(20),
@FenShu numeric(4,1)
as
begin
insert into XuanXiu(XueHao,KeChenHao,FenShu)
values(@XueHao,@KeChenHao,@FenShu)
end
go


procedure TForm_chengji.btn1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('MR_Insert_XuanXiu:XueHao,:KeChenHao,:FenShu');
Parameters.ParamByName('XueHao').Value := edt1.Text;
Parameters.ParamByName('KeChenHao').Value := edt2.Text;
Parameters.ParamByName('FenShu').Value := edt3.Text;
ExecSQL;
end;
ShowMessage('添加成功');
Close;
end;



运行报错 ProjectProject raised exception class eoleexception with message'','附近有错误'

[解决办法]

Delphi(Pascal) code

SQL.Add('Exec MR_Insert_XuanXiu :XueHao,