使用vbscript收缩SQLSERVER数据库

在使用SQL过程当中,文件会随着日志的增长不断的增加,当我们清除日志后空间并未真正释放出来,必须通过企业管理器收缩后才可以释放空间,每次用企业管理器对数据库进行收缩比较麻烦,其实只需要用一个vbscript脚本就可以实现数据库自动收缩,具体代码如下:


dbName="northwind" '要收缩的数据库名
Set objServer=CreateObject("sqldmo.SqlServer")
objServer.loginSecure=true '使用Windows身份验证
objServer.connect "localhost"
set objDataBase=objServer.Databases(dbName)
'收缩函数Shrink语法:
'Shrink(newSize,Truncate)
'其中newSize是新大小,可设置为负数或1-100的整数,其中负数表示收缩得尽可能的小,而1-100则表示收缩的百分比.
'Truncate表示收缩类型
'可设置为
'0 表示将数据从尾部移到前边,并将文件截断以反映他实际分配的大小.
'3 迁移所有数据到同一个文件组的其它文件(只针对文件收缩时有效)
'1 表示将数据从尾部移到前边
'2 没有影响
Call objDataBase.shrink(-1,0) '收缩数据库
Wscript.echo "收缩成功!"
objServer.disconnect
set objServer=nothing