高手请进，关于执行存储过程的问题，很急很急…………在线等待

[hep1]

我在后台建的存储过程如下：
CREATE PROCEDURE [size_backup]
@i int=1
AS
if @i=1
begin
BACKUP DATABASE [size] TO [BK_SIZE] WITH NOINIT , NOUNLOAD , NAME = N'size 备份', NOSKIP , STATS = 10, NOFORMAT
BACKUP DATABASE [size] TO [SIZES] WITH INIT , NOUNLOAD , NAME = N'size 备份', NOSKIP , STATS = 10, NOFORMAT
end
else
begin
BACKUP DATABASE [size] TO [BK_SIZE] WITH INIT , NOUNLOAD , NAME = N'size 备份', NOSKIP , STATS = 10, NOFORMAT
BACKUP DATABASE [size] TO [SIZES] WITH noINIT , NOUNLOAD , NAME = N'size 备份', NOSKIP , STATS = 10, NOFORMAT
end
select 1 as back
GO

在前台的备份按钮click事件中的代码如下：
if messagebox("提示","确实要备份吗",question!,okcancel!)=1 then
setpointer(hourglass!)
if rb_append.checked=false and rb_over.checked=false then
messagebox("提示","请选择备份方式")
return
elseif rb_append.checked=true then
integer o
o=1
declare sp_size procedure for size_backup @i=:o using sqlca;
execute sp_size;
if sqlca.sqlcode=-1 then
messagebox("dd","dd")
end if
elseif rb_over.checked=true then
declare sp_size1 procedure for size_backup @i=0 ;
execute sp_size1;
messagebox("dd","xf")
end if
end if
messagebox("提示","备份完毕")
setpointer(arrow!)
看看都没问题，但一执行的时候，总备份不成功，检测其原因，sqlca.sqlcode=-1,我不知该如何做才能使其sqlca.sqlcode=0,进行成功备份（后台的存储过程在查询分析器中能成功执行）

[guxing]

执行前设置Sqlca.AutoCommit = True

[hep1]

一句话就解决可真历害，我有一个妹妹想加你为好友，可以把你的QQ号码告诉她吗？还有我想问一下,假如说我在一进入界面就进行自动提交，对系统的危害主要有哪几点