哪位知道怎么使用VB自动创建一个Sqlserver库

Question

同上

Answer 1

用SQL语句在SQL中增加数据库示例
A. 向数据库中添加文件
下例创建数据库，并更改该数据库以添加一个 5 MB 大小的新数据文件。USE master
GO
CREATE DATABASE Test1 ON
(
 NAME = Test1dat1, 
 FILENAME = 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\t1dat1.ndf',
 SIZE = 5MB,
 MAXSIZE = 100MB,
 FILEGROWTH = 5MB
)
GO
ALTER DATABASE Test1 
ADD FILE 
(
 NAME = Test1dat2,
 FILENAME = 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\t1dat2.ndf',
 SIZE = 5MB,
 MAXSIZE = 100MB
)
GO

Answer 2

在工程--->引用里有引用一下,你找找,SQL开头的,然后就可以对数据库操作了.

Answer 3

最简单的方法是你先用microsoft sql server形成你需要的数据库；
然后通过企业管理器，可以对你建的数据库生成sql脚本；
接着利用这些sql脚本形成一个存储过程；
最后通过vb和ado调用这个存储过程即可。

Answer 4

首先用sa连接服务器，然后直接用sql语句创建数据库了。下面这个例子里面的字符串比较长可能会被csdn自动换行，需要自己整理一下Option ExplicitPrivate Sub Command1_Click()
    Dim strConnect As String
    Dim cn As New ADODB.Connection    strConnect = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=COMM;Extended Properties=""Network=DBMSSOCN;Address=127.0.0.1"";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=FANGHONG;Use Encryption for Data=False;Tag with column collation when possible=False"
    cn.ConnectionString = strConnect
    cn.Open
    cn.Execute "CREATE DATABASE Test ON( NAME = 'Test_Data',FILENAME = 'd:\sqldata\Test_Data.mdf',size= 10MB,maxsize= UNLIMITED ,filegrowth= 100MB) LOG ON( NAME = 'Test_log',FILENAME = 'd:\sqldata\Test_log.ldf',size= 10MB,maxsize= UNLIMITED ,filegrowth= 100MB)"
    cn.Close
    Set cn = Nothing
End Sub