ODSOLE Extended Procedure 拒绝访问。
如何解决啊sp_configure 'show advanced options', 1
GO
RECONFIGURE;
GO
sp_configure 'Ole Automation Procedures', 1
GO
RECONFIGURE;
GO
已经这样了

解决方案 »

  1.   

    在线等啊alter function f_calc(
    @str nvarchar(1000)   --要计算的表达式
    )returns sql_variant
    as
    begin
        declare @re sql_variant
        declare @err int,@src varchar(255),@desc varchar(255)
        declare @obj int
        exec @err=sp_oacreate 'MSScriptControl.ScriptControl',@obj out
        if @err<>0 goto lb_err
        exec @err=sp_oasetproperty @obj,'Language','vbscript'
        if @err<>0 goto lb_err
        exec @err=sp_oamethod @obj,'Eval',@re out,@str
        if @err=0 return(@re)
        lb_err:
        exec sp_oageterrorinfo NULL, @src out, @desc out 
        declare @errb varbinary(4),@s varchar(20)
        set @errb=cast(@err as varbinary(4))
        --exec master..xp_varbintohexstr @errb,@s out
        --return('错误号: '+@s+char(13)+'错误源: '+@src+char(13)+'错误描述: '+@desc)
        return('错误号: '+char(13)+'错误源: '+@src+char(13)+'错误描述: '+@desc)
    end