还原数据库出错

[kojiang]

编写代码还原数据库,提示的错误信息:因为数据库正在使用,所以未能获得对数据库的排他访问权.
代码如下;
SQLCA.AutoCommit = true
ls_sql = "RESTORE DATABASE" + space(1) + ls_datebase_name + space(1) + "FROM DISK = " + ls_bkfilename + space(1) + &
"WITH MOVE" + space(1) + "'" + ls_data_logic_name + "'" + space(1) + "TO" + space(1) + "'" + ls_data_reality_name + "'," + &
" MOVE" + space(1) + "'" + ls_log_logic_name + "'" + space(1) + "TO" + space(1) + "'" + ls_log_reality_name + "'"

EXECUTE IMMEDIATE :ls_sql;