主页 / dba / 问题 / 8173
Accepted
EngineeringSQL
Asked: 2011-11-21 13:42:48 +0800 CST

sp_OACreate vbscript.regexp 类未注册

  • 772

想象一下 Windows Server 2003 Enterprise x64 Edition。

我可以使用 vbscript 创建一个“vbscript.regexp”对象（确认 DLL 已注册）。

我无法在 SQL Server 2005 SP3 (.4053)（群集）环境中使用 sp_OACreate 创建“vbscript.regexp”对象。

OLE Automation 在表面区域配置中被选中。

sp_OACreate 直到最近才开始工作。

你能帮助我吗？

*代码*

            declare
                @source varchar(5000),
                @regexp varchar(1000),
                @replace varchar(1000),
                @globalReplace bit,
                @ignoreCase bit

            set @source = 'NBG76TF43'
            set @regexp = '[^0-9]'
            set @replace = ''
            set @globalReplace = 1
            set @ignoreCase = 1

                DECLARE @hr integer
                DECLARE @objRegExp integer
                DECLARE @result varchar(5000)

                EXECUTE @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
                IF @hr <> 0 
                    BEGIN
                        EXEC @hr = sp_OADestroy @objRegExp
                        PRINT  'A'
                        PRINT @hr
                    END
                EXECUTE @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
                IF @hr <> 0 
                    BEGIN
                        EXEC @hr = sp_OADestroy @objRegExp
                        PRINT  'B'
                        PRINT @hr
                    END
                EXECUTE @hr = sp_OASetProperty @objRegExp, 'Global', @globalReplace
                IF @hr <> 0 
                    BEGIN
                        EXEC @hr = sp_OADestroy @objRegExp
                        PRINT  'C'
                        PRINT @hr
                    END
                EXECUTE @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignoreCase
                IF @hr <> 0 
                    BEGIN
                        EXEC @hr = sp_OADestroy @objRegExp
                        PRINT  'D'
                        PRINT @hr
                    END

                EXECUTE @hr = sp_OAMethod @objRegExp, 'Replace', @result OUTPUT, @source, @replace
                IF @hr <> 0 
                    BEGIN
                        EXEC @hr = sp_OADestroy @objRegExp
                        PRINT  'E'
                        PRINT @hr
                    END

                EXECUTE @hr = sp_OADestroy @objRegExp
                    IF @hr <> 0 
                        BEGIN
                            PRINT  'F'
                        PRINT @hr
                        END

                PRINT  @result

            /*
            A
            -2147211480
            B
            -2147211480
            C
            -2147211480
            D
            -2147211480
            E
            -2147211480
            F
            -2147211480
            */
sql-server-2005 regular-expression

1 个回答

  1. Best Answer

    十个月后，该问题再次出现在同一系统上。

    • 具体错误：0x8007045A（动态链接库 (DLL) 初始化例程失败）

    我找不到这个问题的原因。但是，我发现足够多的相关场景（十个月前）表明重启服务器可以解决问题。

    我重新启动了服务器集群（两个节点，在受控故障转移之后），问题得到解决（可以使用 sp_OACreate 创建一个“vbscript.regexp”对象）。

    • 0

相关问题