如果能在Sql Server中使用正则表达式，一定会对程序编写有很大帮助，那么如何实现呢？
其实Sql Server本身并不提供这样的功能，但我们如果能够通过Sql Server 调用VBScript，那么问题就有解决的可能，这中间我们要先详细了解三个系统级别的存数过程：sp_OACreate ， sp_OASetProperty 和 sp_OAMethod
sp_OACreate
翻阅一下帮助文件不难知道，该存储过程可以帮我们生成一个OLE对象的实例。也就是我们可以通过它来建立一个COM对象和系统进行交互，也就意味着在系统层面上几乎没有什么干不了的事情了，当然也包括坏事情，所以要仔细看一下用户在这个存储过程上的执行权限，小心被坏蛋利用哦。
它的语法如下：
sp_OACreate progid, | clsid, objecttoken OUTPUT [ , context ]
progid: 我们要调用的即将被实例化的程序名称
clsid : 我们要调用的即将被实例化的类的名称
objecttoken OUTPUT ：被生成的对象的句柄或指针，是个整型变量
context ：这是个可选的变量，目的是制定你所创建的对象以什么样的方式执行，它有三个值，可供选择：
1 = In-process (.dll) OLE server only
4 = Local (.exe) OLE server only
5 = Both in-process and local OLE server allowed
为1，则要求对象在一个ActiveX DLL文件中；
值为4，则要求对象在ActiveX EXE服务器中；
如果是缺省的值5，则可以使用任一自动操作。
一般情况下我们可以使用默认值，即不提供该参数变量。
比如你想在数据库中访问微软的Excel,就可以这样来写：
Declare @Object int
Declare @RetVal int
Exec @RetVal=sp_OACreate 'Excel.Application',
@Object OUTPUT
这样你就得到一个被实例化的Excel对象的指针：@Object
有了这个指针，你当然可以让它为你尽份内之事了。至于如何给它设置属性发布命令，就要使用到另外两个系统存储过程：sp_OASetProperty 和 sp_OAMethod, 单从名字就能对他们的功能猜个八九不离十吧。
ok,简单介绍如下：
sp_OASetProperty 和 sp_OAMethod
sp_OASetProperty objecttoken, propertyname, newvalue [ , index... ]
该存储过程的功能就是设置对象的属性值，对于上面的语法及参数，应该不需要罗嗦了吧。
sp_OAMethod objecttoken, methodname [ , returnvalue OUTPUT ] [ , [ @parametername = ] parameter [ OUTPUT ] [ ...n ] ]
上面这个存储过程就是那临门一脚——执行对象的一个方法，并可能同时返回对象的输出值，为什么说是可能，而不是一定呢？因为你知道，有些对象方法只是做事情，它并不告诉你结果的。
好了，现在看看如何在Sql Server中调用VBScript来使用正则表达式吧，我们可以把你要做的事情封装成一个用户自定义函数，以后可随时调用。
程序如下：
CREATE FUNCTION dbo.regexpMatch
(
@source varchar(5000), -- 被检验的字符串
@regexp varchar(1000), -- 正则表达式的字符串
@ignorecase bit = 0 -- 忽略大小写
)
RETURNS bit
AS
BEGIN
DECLARE @hr integer
DECLARE @objRegExp integer
DECLARE @objMatches integer
DECLARE @objMatch integer
DECLARE @count integer
DECLARE @results bit
EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OASetProperty @objRegExp, 'Global', false
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignorecase
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OADestroy @objRegExp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
RETURN @results
END
有没有注意到程序的最后还用了一个sp_OADestroy，目的就是释放掉对象的实例，还内存*的空间