回复数据库,直接调用,传递参数as_dbname(回复的数据库名)
//恢复数据库
string ls_filename,named,ls_syntax
long ll_value,li_exist
select count(*) into :li_exist from master..sysdatabases where name = :as_dbname;
if li_exist = 0 then
sle_2.setfocus()
sle_2.SelectText(1,20)
messagebox('错误提示','该数据库不存在,请重新输入数据库名称!',exclamation!)
return -1
end if
if messagebox('提示','数据库恢复后,现有的数据将丢失,~r~n~r~n确定进行数据库恢复吗?',&
question!,yesno!,2) = 2 then return -1