使用.NET和VB編程創建SQL Server

概要

程序員常常需要以編程方式創建數據庫。本文介紹如何使用 ADO.NET 和 Visual Basic .Net 以編程方式創建 Microsoft SQL

創建示例的步驟

1.新建一個 Visual Basic .Net Windows 應用程序項目。默認情況下，將 Form1 添加到項目中。
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, _
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 參數設置為 Master 或保留為空白。
6.按 F5 鍵或 CTRL+F5 組合鍵以運行該項目，然後單擊創建數據庫。

其他注意事項