VBS中如何将SQL数据库某个数据表中的内容全部插入到另外一个数据表中

在VBS (Visual Basic Scripting) 中，你可以通过ADO (ActiveX Data Objects) 来连接到 SQL 数据库并执行数据操作。假设你已经有了两个数据库连接，一个是源数据表（SourceTable），另一个是目标数据表（DestinationTable），你可以按照以下步骤将源数据表的内容复制到目标数据表：

' 首先，创建 ADODB 连接对象
Dim connSrc, connDest, rsSrc, cmdInsert

' 定义源数据库连接字符串、目的数据库连接字符串
Set connSrc = CreateObject("ADODB.Connection")
connSrc.Open "Provider=SQLOLEDB;Data Source=your_source_db;Initial Catalog=your_source_db_name;User ID=your_username;Password=your_password"

Set connDest = CreateObject("ADODB.Connection")
connDest.Open "Provider=SQLOLEDB;Data Source=your_destination_db;Initial Catalog=your_destination_db_name;User ID=your_username;Password=your_password"

' 创建记录集对象用于读取源数据表
Set rsSrc = CreateObject("ADODB.Recordset")
rsSrc.Open "SELECT * FROM SourceTable", connSrc

' 插入语句模板
Set cmdInsert = CreateObject("ADODB.Command")
cmdInsert.ActiveConnection = connDest
cmdInsert.CommandText = "INSERT INTO DestinationTable SELECT * FROM SourceTable"

' 执行插入操作
cmdInsert.Execute

' 关闭连接和释放资源
rsSrc.Close
Set rsSrc = Nothing
connSrc.Close
Set connSrc = Nothing
connDest.Close
Set connDest = Nothing

' 提示操作完成
WScript.Echo "源数据已成功插入到目标数据表."