VBS中，如何将SQL数据库中某个数据表查询结果插入到另外一个数据表中

在Visual Basic Scripting (VBS) 中，你可以使用ADODB (ActiveX Data Objects) 来操作 SQL 数据库。以下是基本步骤，将查询结果从一个表插入到另一个表：

1. 首先，确保已添加了 ADODB 引擎到你的脚本环境中。可以在 VBS 中通过 `CreateObject` 函数创建连接和记录集对象：

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

2. 连接到你的 SQL 数据库：

conn.Open "Provider=SQLOLEDB;Data Source=<your_server>;Initial Catalog=<your_database>;User ID=<your_username>;Password=<your_password>"

替换 `<your_server>`, `<your_database>`, `<your_username>` 和 `<your_password>` 为实际数据库信息。

3. 执行 SQL 查询，并将其加载到记录集 (`rs`) 中：

sqlQuery = "SELECT * FROM <source_table>"
rs.Open sqlQuery, conn

4. 检查查询是否成功并处理错误：

If Not rs.EOF Then
    ' 插入记录到目标表
    sqlInsert = "INSERT INTO <target_table>(<column_list>) VALUES(<value_list>)" ' 替换列名和值
    Set cmd = CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = sqlInsert
    cmd.Parameters.Append cmd.CreateParameter("@col1", adVarChar, adParamInput, 50, rs!field1) ' 根据字段名填充值
    ' ... 对所有需要插入的字段重复此过程
    
    If cmd.Execute Then
        MsgBox "插入成功"
    Else
        MsgBox "插入失败: " & cmd.ErrorCode & " - " & cmd.ErrorDescription
    End If
End If

记得替换 `<source_table>`, `<target_table>`, `<column_list>` 和 `<value_list>` 为你具体的表名、列名以及要插入的数据。

5. 关闭连接和释放资源：

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Set cmd = Nothing