.NET和VB编程创建SQLServer

核心提示：1.新建一个VisualBasic.NetWindows应用程序项目，默认情况下，.NET和VB编程创建SQLServer，将Form1添加到项目中，2.在Form1上放一个Command按钮，其他注意事项此代码创建的是带有特定属性的自定义数据库，将要保存所创建.mdf和.ldf文件的文件夹必须在运行该代码之前就已存在

1.新建一个VisualBasic.NetWindows应用程序项目。默认情况下，将Form1添加到项目中。

2.在Form1上放一个Command按钮，并将其Name属性更改为btnCreateDatabase，将其Text属性更改为CreateDatabase。

3.复制下面一行代码并粘贴到Form1的“generaldeclaration”部分：ImportsSystem.Data.SqlClient

4.复制下面的代码并粘贴到“WindowsFormDesignergeneratedcode”区域之后：　　

PRivateSubbtnCreateDatabase_Click(ByValsenderAsSystem.Object,_
　　ByValeAsSystem.EventArgs)HandlesbtnCreateDatabase.Click
　　DimreaderAsSqlDataReader
　　DimstrAsString
　　DimmyConnAsSqlConnection=NewSqlConnection("Server=(local)\netsdk;"&_
　　"uid=sa;pwd=;database=master")　

str="CREATEDATABASEMyDatabaSEONPRIMARY"&_
　　"(NAME=MyDatabase_Data,"&_
　　"FILENAME='D:\MyFolder\MyDatabaseData.mdf',"&_
　　"SIZE=2MB,"&_
　　"MAXSIZE=10MB,"&_
　　"FILEGROWTH=10)"&_
　　"LOGON"&_
　　"(NAME=MyDatabase_Log,"&_
　　"FILENAME='D:\MyFolder\MyDatabaseLog.ldf',"&_
　　"SIZE=1MB,"&_
　　"MAXSIZE=5MB,"&_
　　"FILEGROWTH=10)"
　　DimmyCommandAsSqlCommand=NewSqlCommand(str,myConn)
　　Try
　　myConn.Open()
　　reader=myCommand.ExecuteReader()
　　CatchexAsException
　　MessageBox.Show(ex.ToString())
　　Finally
　　IfNotreaderIsNothingThen
　　reader.Close()
　　If(myConn.State=ConnectionState.Open)Then
　　myConn.Close()
　　EndIf
　　MessageBox.Show("Databaseiscreatedsuccessfully",_
　　"MyProgram",MessageBoxButtons.OK,_
　　MessageBoxIcon.Information)
　　EndIf
　　EndTry
　　EndSub　

5.更改连接字符串使其指向SQLServer，要确保将Database参数设置为Master或保留为空白。

6.按F5键或CTRL F5组合键以运行该项目，然后单击创建数据库。　　

其他注意事项　　

此代码创建的是带有特定属性的自定义数据库。　

将要保存所创建.mdf和.ldf文件的文件夹必须在运行该代码之前就已存在、否则会引发异常。

如果想创建一个类似于SQLServer的Model数据库的数据库并想让它存储在默认位置，那么请更改代码中的str变量：str="CREATEDATABASEMyDatabase"

->