介绍
Visual Basic Scripting Edition (VBScript) 是一种基于 Microsoft Visual Basic 的轻量级脚本语言，可用于 Windows 环境中的 Active Server Pages (ASP) 和 Windows Script Host (WSH)。在 VBScript 中，连接 Microsoft SQL Server 数据库是一种常见的任务。本文将介绍如何使用 VBScript 连接到 Microsoft SQL Server 数据库。
步骤
步骤1：创建连接字符串
连接字符串是用于连接到 Microsoft SQL Server 数据库的字符串。它包含有关数据库的信息，例如服务器名、数据库名称、用户名和密码等。要创建连接字符串，请将以下代码添加到 VBScript 文件中：
dim conn_str
conn_str = "Provider=SQLOLEDB;Data Source=myServerName;Initial Catalog=myDbName;User ID=myUsername;Password=myPassword;"
在连接字符串中：
Provider 指定要使用的 OLE DB 提供程序。在本例中，使用的是 SQL Server OLE DB 提供程序。
Data Source 指定 SQL Server 数据库所在的服务器名。
Initial Catalog 指定要连接的数据库名称。
User ID 和 Password 指定要使用的登录凭据。
请根据实际情况更改连接字符串中的值。请注意，敏感信息（如用户名和密码）应该加密存储，而不是明文保存在代码中。
步骤2：创建连接对象
要创建与 SQL Server 数据库的连接，请使用 ADODB.Connection 对象。请将以下代码添加到 VBScript 文件中：
dim conn
set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = conn_str
conn.Open
在此代码中：
我们使用 CreateObject 函数创建了 ADODB.Connection 对象。
我们将连接字符串分配给连接对象的 ConnectionString 属性。
我们使用 Open 方法打开了与 SQL Server 数据库的连接。
步骤3：执行 SQL 查询
要在 SQL Server 数据库上执行查询，请使用 ADODB.Recordset 对象。请将以下代码添加到 VBScript 文件中：
dim rs
set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM myTable", conn
while not rs.EOF
WScript.Echo rs(0) & " " & rs(1)
rs.MoveNext
wend
在此代码中：
我们使用 CreateObject 函数创建了 ADODB.Recordset 对象。
我们使用 Open 方法打开了查询结果集。请注意，此处的查询是 "SELECT * FROM myTable"，其中 "myTable" 是要查询的表名。
我们使用 while not rs.EOF 和 rs.MoveNext 循环遍历结果集中的所有行。
我们使用 rs(0) 和 rs(1) 访问查询结果集中的每个列。
我们使用 WScript.Echo 输出结果到控制台。
步骤4：关闭连接
一旦完成了与 SQL Server 数据库的连接和查询操作，就应该关闭与数据库的连接。请将以下代码添加到 VBScript 文件中：
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
在此代码中，我们使用 Close 方法关闭结果集和连接，并将它们设置为 Nothing，以释放资源。
总结
通过上述步骤，我们可以使用 VBScript 连接到 Microsoft SQL Server 数据库并执行查询。这非常有用，因为我们可以在不使用其他脚本语言或编程语言（如 PHP、Python、C# 等）的情况下，使用 VBScript 访问 SQL 数据库。如果您的应用程序需要动态查询和处理 SQL 数据库的数据，那么 VBScript 确实是一个不错的选择。