亲权 亲属权:sql server 2000 中用delphi或其它语言自动创建数据库?

给你个创建存储过程和在VB中调用存储过程的实力吧，自己再扩展 ：）

/*
' *****************************************
' 模块名称： 创建报告数据表存储过程
' 当前版本号： 1.0
' *****************************************
' 版本信息： copyright SailSoft
' 模块说明： 创建报告数据表
' 版本历史：
' 2005-5-19 V1.0 AFly 建立。
'*****************************************
*/
CREATE PROCEDURE [sp_CreateTReport] AS
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[TReport]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[TReport]
CREATE TABLE [dbo].[TReport] (
[FI] [bigint] IDENTITY (1, 1) NOT NULL ,
[FID] [bigint] NULL ,
[FObj] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[FValue] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
ALTER TABLE dbo.TReport ADD CONSTRAINT
PK_TReport PRIMARY KEY CLUSTERED
(
FI
) ON [PRIMARY]
GO

---------------------------------------------------
用VB写的函数

'#------------------------#
'# 执行存储过程 #
'#------------------------#
Function ExecSP(ByVal adoConn As ADODB.Connection, ByVal strSP As String) As Boolean
Dim tRs As New ADODB.Recordset
Dim Cmd As New ADODB.Command
On Error Resume Next
ExecSP = False
Cmd.ActiveConnection = adoConn
Cmd.CommandText = strSP
Cmd.CommandType = adCmdStoredProc
Set tRs = Cmd.Execute
Set tRs = Nothing
If Err.Number = 0 Then ExecSP = True
End Function