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

　　3.复制下面一行代码并粘贴到 Form1 的“general declaration”部分： Imports System.Data.SqlClient

　　4.复制下面的代码并粘贴到“Windows Form Designer generated code”区域之后：　　

　　Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, _ EZuLinux联盟
　　 ByVal e As System.EventArgs) Handles btnCreateDatabase.Click EZuLinux联盟
　　 Dim reader As SqlDataReader EZuLinux联盟
　　 Dim str As String EZuLinux联盟
　　 Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;" & _ EZuLinux联盟
　　 "uid=sa;pwd=;database=master")　

　　 str = "CREATE DATABASE MyDatabase ON PRIMARY " & _ EZuLinux联盟
　　 "(NAME = MyDatabase_Data, " & _ EZuLinux联盟
　　 " FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _ EZuLinux联盟
　　 " SIZE = 2MB, " & _ EZuLinux联盟
　　 " MAXSIZE = 10MB, " & _ EZuLinux联盟
　　 " FILEGROWTH = 10%) " & _ EZuLinux联盟
　　 " LOG ON " & _ EZuLinux联盟
　　 "(NAME = MyDatabase_Log, " & _ EZuLinux联盟
　　 " FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _ EZuLinux联盟
　　 " SIZE = 1MB, " & _ EZuLinux联盟
　　 " MAXSIZE = 5MB, " & _ EZuLinux联盟
　　 " FILEGROWTH = 10%) " EZuLinux联盟
　　 Dim myCommand As SqlCommand = New SqlCommand(str, myConn) EZuLinux联盟
　　 Try EZuLinux联盟
　　 myConn.Open() EZuLinux联盟
　　 reader = myCommand.ExecuteReader() EZuLinux联盟
　　 Catch ex As Exception EZuLinux联盟
　　 MessageBox.Show(ex.ToString()) EZuLinux联盟
　　 Finally EZuLinux联盟
　　 If Not reader Is Nothing Then EZuLinux联盟
　　 reader.Close() EZuLinux联盟
　　 If (myConn.State = ConnectionState.Open) Then EZuLinux联盟
　　 myConn.Close() EZuLinux联盟
　　 End If EZuLinux联盟
　　 MessageBox.Show("Database is created successfully", _ EZuLinux联盟
　　 "MyProgram", MessageBoxButtons.OK, _ EZuLinux联盟
　　 MessageBoxIcon.Information) EZuLinux联盟
　　 End If EZuLinux联盟
　　 End Try EZuLinux联盟
　　 End Sub　

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

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

　　其他注意事项 　　

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

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

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