一个简单的问题SQL数据表的拷贝

[udSoft2020]

VB6 中如何 将 如何将一个已存在的SQL数据库中的表导至 另一个SQL数据库中

[LichKingSZ]

写一个SQL文件包（或用企业管理器导出），给你一个例子：
/****** Object: Database ZJEM Script Date: 2003-06-06 16:22:30 ******/
IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'ZJEM')
DROP DATABASE [ZJEM]
GO

CREATE DATABASE [ZJEM] ON (NAME = N'ZJExamManage_Data', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL\data\ZJEM.mdf' , SIZE = 15, FILEGROWTH = 10%) LOG ON (NAME = N'ZJExamManage_Log', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL\data\ZJEM_log.ldf' , SIZE = 109, FILEGROWTH = 10%)
COLLATE Chinese_PRC_CI_AS
GO

exec sp_dboption N'ZJEM', N'autoclose', N'false'
GO

exec sp_dboption N'ZJEM', N'bulkcopy', N'false'
GO

exec sp_dboption N'ZJEM', N'trunc. log', N'false'
GO

exec sp_dboption N'ZJEM', N'torn page detection', N'true'
GO

exec sp_dboption N'ZJEM', N'read only', N'false'
GO

exec sp_dboption N'ZJEM', N'dbo use', N'false'
GO

exec sp_dboption N'ZJEM', N'single', N'false'
GO

exec sp_dboption N'ZJEM', N'autoshrink', N'false'
GO

exec sp_dboption N'ZJEM', N'ANSI null default', N'false'
GO

exec sp_dboption N'ZJEM', N'recursive triggers', N'false'
GO

exec sp_dboption N'ZJEM', N'ANSI nulls', N'false'
GO

exec sp_dboption N'ZJEM', N'concat null yields null', N'false'
GO

exec sp_dboption N'ZJEM', N'cursor close on commit', N'false'
GO

exec sp_dboption N'ZJEM', N'default to local cursor', N'false'
GO

exec sp_dboption N'ZJEM', N'quoted identifier', N'false'
GO

exec sp_dboption N'ZJEM', N'ANSI warnings', N'false'
GO

exec sp_dboption N'ZJEM', N'auto create statistics', N'true'
GO

exec sp_dboption N'ZJEM', N'auto update statistics', N'true'
GO

use [ZJEM]
GO

/****** Object: Stored Procedure dbo.ap_Classroom Script Date: 2003-06-06 16:22:35 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ap_Classroom]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[ap_Classroom]
GO

/****** Object: Stored Procedure dbo.ap_ExamName Script Date: 2003-06-06 16:22:35 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ap_ExamName]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[ap_ExamName]
GO
...

然后在VB中：
shell "osql sql文件路径"
就可以了

[udSoft2020]

需要这么复杂吗，有没有简单一些的。
在VB中定义两个数据库的联系OLEDB后，能不能通过SELECT进行处理