VBScript 连接 MSSQL

VBScript 是一种被广泛应用于 Microsoft Windows 系统的脚本语言。MSSQL 是一种被广泛应用于企业级数据处理的关系型数据库管理系统。VBScript 可以通过内置的 ADO 对象库来连接 MSSQL 数据库。

连接 MSSQL 数据库

在 VBScript 中连接 MSSQL 数据库需要使用 ADO 对象库。先创建一个数据库连接对象，再使用该对象来执行 CRUD（增删改查）操作。

以下是连接 MSSQL 数据库的 VBScript 代码：

Dim cn
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
cn.Open

这里使用的是 SQL Server OLE DB Provider，也可以使用 ODBC 连接方式。

执行 SQL 语句

连接上 MSSQL 数据库之后，可以使用 ADO 对象库提供的 Command 对象执行 SQL 语句。下面是一个简单的查询示例：

Dim cmd, rs
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandText = "SELECT * FROM myTable"
Set rs = cmd.Execute

此处使用的是 adCmdText 命令类型，表示 SQL 语句是文本类型。还可以使用 adCmdStoredProc 命令类型，表示 SQL 语句是存储过程类型。

处理查询结果集

执行 SQL 语句后，可以使用 Recordset 对象来存储查询结果集。以下是查询结果集的 VBScript 代码：

While Not rs.EOF
    WScript.Echo rs.Fields("field1") & " - " & rs.Fields("field2")
    rs.MoveNext
Wend

这里遍历 Recordset 对象，使用 Fields 属性来获取字段值。

关闭连接

最后，需要关闭数据库连接和释放相关资源。以下是关闭连接的 VBScript 代码：

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

这里先关闭 Recordset 对象，再关闭 Connection 对象。由于 VBScript 使用垃圾回收机制，这里还要将对象指针设置为 Nothing。