请问如何在SQL SERVER2000上创建一个数据库

[bg5jb]

请问如何在SQL SERVER2000上创建一个数据库
我想在编好自己的程序后，
再建立一个用于自动创建SQL数据库的程序，
请问各位大虾我应该如何写？？？？
谢谢！！！

[jornet]

参考t_sql，有语句实现的好象是
create db 数据库名。。。。

[hzybc]

连接服务器(不要连接数据库）后
CN.Execute "Create Database 数据库名"

[hugeforest]

CREATE DATABASE database_name On Primary (Name=databasename,Filename=xxxx.mdf,Size=15MB,Filegrowth=10%) Log On (Name=databaselog,Filename=xxxx.ldf,Size=3MB,Maxsize=10MB,FileGrowth=1MB)

[lihonggen0]

Dim cn As Connection
Dim str As String
str = "CREATE DATABASE Sales " & _
"ON (NAME = Sales_dat," & _
"FILENAME = 'D:\saledat.mdf'," & _
"SIZE = 1MB,MAXSIZE = 5MB,FILEGROWTH = 10% )" & _
"LOG ON ( NAME = 'Sales_log'," & _
"FILENAME = 'D:\salelog.ldf'," & _
"SIZE = 1MB,MAXSIZE = 5MB,FILEGROWTH = 5MB )"
Set cn = New Connection
With cn
.ConnectionString = "Provider=SQLOLEDB.1;Data Source=pmserver;User ID=sa;Password=sa"
.Open
.Execute str
End With
Set cn = Nothing

[lihonggen0]

Dim cn As Connection
Dim str As String
str = "CREATE DATABASE Sales " & _
"ON (NAME = Sales_dat," & _
"FILENAME = 'D:\saledat.mdf'," & _
"SIZE = 1MB,MAXSIZE = 5MB,FILEGROWTH = 10% )" & _
"LOG ON ( NAME = 'Sales_log'," & _
"FILENAME = 'D:\salelog.ldf'," & _
"SIZE = 1MB,MAXSIZE = 5MB,FILEGROWTH = 5MB )"
Set cn = New Connection
With cn
.ConnectionString = "Provider=SQLOLEDB.1;Data Source=pmserver;User ID=sa;Password=sa"
.Open
.Execute str
End With
Set cn = Nothing