VB.NET 以 ADO.NET 程式化建立 SQL Server 資料庫

專案建立

1. VB.NET Windows Forms 專案，表單放置 Button btnCreateDatabase，Text="建立資料庫"。
2. 引用 Imports System.Data.SqlClient。

核心程式碼

Private Sub btnCreateDatabase_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCreateDatabase.Click
    Dim reader As SqlDataReader
    Dim sql As String = _
        "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 conn As New SqlConnection("Server=(local)\NetSDK;Uid=sa;Pwd=;Database=master")
    Dim cmd As New SqlCommand(sql, conn)
    Try
        conn.Open()
        reader = cmd.ExecuteReader()
    Catch ex As Exception
        MessageBox.Show(ex.ToString())
    Finally
        If reader IsNot Nothing Then reader.Close()
        If conn.State = ConnectionState.Open Then conn.Close()
        MessageBox.Show("資料庫建立成功", "MyProgram", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Try
End Sub

注意事項

• 目標資料夾 D:\MyFolder 必須預先存在，否則拋出例外。
• 連線字串 Database=master 或省略，建立資料庫需在 master 內容執行。
• 若只要預設路徑/大小，簡化為 CREATE DATABASE MyDatabase 即可。