cmd.CommandType = adCmdText这条语句中adCmdText会报错

这个问题有可能是因为没有正确引用ADO（ActiveX Data Objects）库导致的。请确保你的项目引用了该库。

如果你已经正确引用了ADO库，但仍然出现问题，那么可能是因为没有正确声明或定义adCmdText常量。adCmdText是一个ADO库中的常量，用于指定Command对象的类型为文本命令。正确的声明方式如下：

Const adCmdText = &H0001

请确保你的代码中有这个声明，并且在使用adCmdText时使用该常量而不是直接使用数字1。

相关问题

vbs循环sql语句

如果你需要在VBScript中循环执行SQL语句，你可以使用ADO（ActiveX Data Objects）来实现。以下是一个示例代码，演示了如何循环执行SQL语句：

' 创建ADO连接对象
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
conn.Open

' 创建ADO命令对象
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = 1 ' adCmdText

' 定义要执行的SQL语句
sql = "SELECT 列1, 列2 FROM 表名"

' 执行SQL语句并返回记录集
Set rs = conn.Execute(sql)

' 循环遍历记录集
Do Until rs.EOF
    ' 可以在这里执行你的逻辑操作
    ' 例如，输出记录的某些字段值
    WScript.Echo "列1: " & rs("列1").Value
    WScript.Echo "列2: " & rs("列2").Value
    
    ' 移动到下一条记录
    rs.MoveNext
Loop

' 关闭记录集和连接
rs.Close
conn.Close

' 释放对象
Set rs = Nothing
Set conn = Nothing

在这个示例中，我们首先创建了一个ADO连接对象并打开了数据库连接。然后，我们创建了一个ADO命令对象并设置其活动连接和命令类型。接下来，我们定义要执行的SQL语句，并使用连接对象的Execute方法执行该语句，并将结果存储在记录集中。

然后，我们使用循环来遍历记录集。在循环中，你可以执行你需要的任何逻辑操作，例如输出记录的某些字段值。最后，我们关闭了记录集和连接，并释放了对象。

请确保根据你的实际情况修改连接字符串、SQL语句、表名和列名。确保在脚本中提供正确的服务器名称、数据库名称、用户名和密码。