1.新建一個(gè) Visual Basic .net Windows 應(yīng)用程序項(xiàng)目。默認(rèn)情況下，將 Form1 添加到項(xiàng)目中。
    2.在 Form1 上放一個(gè) Command 按鈕，并將其 Name 屬性更改為 btnCreateDatabase，將其 Text 屬性更改為 Create Database。
    3.復(fù)制下面一行代碼并粘貼到 Form1 的“general declaration”部分： Imports System.Data.SqlClient
    4.復(fù)制下面的代碼并粘貼到“Windows Form Designer generated code”區(qū)域之后：　　
    Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCreateDatabase.Click
    Dim reader As SqlDataReader
    Dim str As String
    Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;" & _
    "uid=sa;pwd=;database=master")　
    str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
    "(NAME = MyDatabase_Data, " & _
    " FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _
    " SIZE = 2MB, " & _
    " MAXSIZE = 10MB, " & _
    " FILEGROWTH = 10%) " & _
    " LOG ON " & _
    "(NAME = MyDatabase_Log, " & _
    " FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _
    " SIZE = 1MB, " & _
    " MAXSIZE = 5MB, " & _
    " FILEGROWTH = 10%) "
    Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
    Try
    myConn.Open()
    reader = myCommand.ExecuteReader()
    Catch ex As Exception
    MessageBox.Show(ex.ToString())
    Finally
    If Not reader Is Nothing Then
    reader.Close()
    If (myConn.State = ConnectionState.Open) Then
    myConn.Close()
    End If
    MessageBox.Show("Database is created successfully", _
    "MyProgram", MessageBoxButtons.OK, _
    MessageBoxIcon.Information)
    End If
    End Try
    End Sub　
    5.更改連接字符串使其指向 SQL Server，要確保將 Database 參數(shù)設(shè)置為 Master 或保留為空白。
    6.按 F5 鍵或 CTRL+F5 組合鍵以運(yùn)行該項(xiàng)目，然后單擊創(chuàng)建數(shù)據(jù)庫。 　　
    其他注意事項(xiàng) 　　
    此代碼創(chuàng)建的是帶有特定屬性的自定義數(shù)據(jù)庫。 　
    將要保存所創(chuàng)建 .mdf 和 .ldf 文件的文件夾必須在運(yùn)行該代碼之前就已存在、否則會引發(fā)異常。
    如果想創(chuàng)建一個(gè)類似于 SQL Server 的 Model 數(shù)據(jù)庫的數(shù)據(jù)庫并想讓它存儲在默認(rèn)位置，那么請更改代碼中的 str 變量： str = "CREATE DATABASE MyDatabase"