数据库脚本

　　我在“If It Moves, Script It”（英文）这篇文章中曾谈到，如何使用“Windows Script Host(WSH)”( Windows 脚本主机) 管理 Windows 和 Windows 中的应用程序。文中的大多数示例都是基于管理 Windows 操作系统自身的，并不基于在该操作系统下运行的应用程序。为迎接新千年，我想我应该谈谈，如何在众多显露可脚本化接口的应用程序中使用脚本。这次只涉及 “SQL Server”。在以后的几个月中，我将着重谈 Exchange、Office 和“系统管理服务器”。
　　
　　您可以通过使用“分布式管理对象”、“数据转换服务”和新的“SQL Server XML”实现，将脚本用于“SQL Server”。
　　
　　许多人都能够通过“Active Data Object(ADO)”和“Active Server Page (ASP)”技术访问数据库了。ADO 在帮助您查询和更新数据库方面做了大量的工作 ― 但在备份（Y2K 问题带给我们的警惕）或是数据库之间的传输数据方面，其表现又如何呢？而这时就非涉及到 XML 不可了。
　　
　　在此，我将告诉您如何通过使用 ADO 的伴随技术 － 特别是“分布式管理对象”、“数据转换服务”和新的“SQL Server XML”实现，将脚本用于“SQL Server”。
　　
　　 分布式管理对象

　　“分布式管理对象 (DMO)”是一组 COM 对象，它将“SQL Server”数据库和复制管理封装在一起。这意味着您可以编写一个 WSH 脚本，将特定表中的所有数据都复制到用制表符分隔的文件中，这有助于大量数据的移动。我之所以选择这个示例，是因为它的代码编写起来简单，但 DMO 允许您获取“SQL Server”中的每个对象，使您能够编写出一些非常优秀而有意义的管理脚本。
　　
　　DMO 的关键是 SQLDMO.SQLServer 对象，它是基本的对象，它允许您连接到服务器并获取所有可用对象。在这种情况下，我将使用 Database 集合来选择数据库，然后从 table 集合访问要转储到文件的表。如果不提供数据库，将出现错误消息，并且脚本也就结束了。如果不提供表名，脚本将在数据库所有的表中循环，并导出非系统表。如 果提供了数据库，它就导出该表。该示例虽然功能有限，但它为“SQL Server”提供了基于命令行的简单的导出实用程序，您可以以它为根据。
　　
　　 现在先看一段代码：
　　
　　'声明与 sql 谈话时使用的变量
　　Dim oServer ' SQL Server 对象
　　Dim oDatabase ' 要使用的目标数据库
　　Dim oBCP ' BCP 对象
　　Dim nRows ' 从 bcp 返回的行数
　　dim table ' 表对象
　　on error resume next
　　' 第一个参数必须是数据库
　　if WScript.Arguments(0) = "" then
　　 WScript.Echo "您没有提供要连接的数据库"
　　 WScript.Quit
　　end if
　　' 创建 SQL DMO 的实例
　　Set oServer = CreateObject("SQLDMO.SQLServer")
　　' 创建 SQL DMO Bulkcopy 对象的实例
　　Set oBCP = CreateObject("SQLDMO.BulkCopy")
　　oServer.EnableBcp = True
　　' 登录到本地服务器
　　' 希望您已经更改了 sa 口令!!
　　oServer.Connect ".", "sa"
　　' 连接到提供的数据库
　　Set oDatabase = oServer.Databases(Wscript.Arguments(0))
　　
　　' 将分隔符设置为逗号
　　oBCP.ColumnDelimiter = vbComma
　　' 将文件类型设置为以逗号分隔
　　oBCP.DataFileType = SQLDMODataFile_CommaDelimitedChar
　　oBCP.ImportRowsPerBatch = 1000
　　oBCP.MaximumErrorsBeforeAbort = 1
　　BCP.RowDelimiter = vbCrLf
　　oBCP.ServerBCPDataFileType = SQLDMOBCPDataFile_Char
　　oBCP.UseExistingConnection = True
　　' 如果未提供表，则转储所有的表
　　f wscript.Arguments(1) = "" then
　　 for each table in oDatabase.tables
　　 ' 确保该表不是系统表
　　 if table.systemobject = false then
　　 oBCP.DataFilePath = table.name & ".csv"
　　 nRows = table.ExportData(oBCP)
　　 wscript.Echo nRows & " rows exported from " & table.name
　　 end if
　　 next
　　else
　　 ' 设置输出文件
　　 oBCP.DataFilePath = wscript.Arguments(1) & ".csv"
　　 nRows = oDatabase.Tables(wscript.arguments(1)).ExportData(oBCP)
　　 wscript.Echo nRows & " rows exported from " & wscript.arguments(1)
　　end if
　　DMO 的全部内容要比本文介绍的多得多，但我希望本文能给您一些感性认识：用某些简单的WSH脚本和 DMO 可以做些什么。您可以下载我的示例（英文）。
　　有关 DMO的详细信息，请访问 [url]http://msdn.microsoft.com/library/psdk/sql/9_dmoc01.htm[/url]（英文）。
　　
　　 数据转换服务

　　导出到 Comma Separated 文件 (CSV)，可以作为将数据导出到 SQL 和从 SQL 导入的起点，但这不象是尖端科技（太过于 20 世纪了，您不觉得吗?）。“SQL Server 7.0”以“数据转换服务 (DTS)”的形式，提供了相当完善的导入和导出机制。幸运的是，脚本在“SQL Server”的这个新领域中仍有一席之地，因此，您可以用“Visual Basic(R) 脚本编辑 (VBScript)”、“JScript(R)”或“Perl”的技术来扩展 DTS 的能力。