ADO.NET と Visual Basic .NET を使用してプログラムでSQL Server データベースを作成する

  • [アーティクル]

この記事では、ADO.NET と Visual Basic .NET を使用してプログラムによって Microsoft SQL Server データベースを作成する方法について説明します。

元の製品バージョン: ADO.NET、Visual Basic .NET
元の KB 番号: 305079

概要

プログラマは、多くの場合、プログラムによってデータベースを作成する必要があります。 この記事では、ADO.NET と Visual Basic .NET を使用してプログラムによってSQL Server データベースを作成する方法について説明します。

サンプルを作成する手順

  1. 新しい Visual Basic .NET Windows アプリケーション プロジェクトを作成します。 Form1 は既定でプロジェクトに追加されます。

  2. Form1 にコマンド ボタンを配置し、そのプロパティを Name に、そのTextプロパティを btnCreateDatabase にCreate Database変更します。

  3. 次のコード行をコピーして、Form1 の "一般的な宣言" セクションに貼り付けます。

    Imports System.Data.SqlClient

  4. リージョン "Windows フォーム Designer生成されたコード" の後に、次のコードをコピーして貼り付けます。

    Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnCreateDatabase.Click
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()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try

End Sub

  5. SQL Serverを指す接続文字列を変更し、Database 引数が Master または blank に設定されていることを確認します。

  6. F5 キーまたは Ctrl キーを押しながら F5 キーを押してプロジェクトを実行し、[データベースの作成] をクリックします。

備考

  • このコードでは、特定のプロパティを持つカスタム データベースを作成します。

  • 作成した.mdfファイルと .ldf ファイルを保持するフォルダーは、コードを実行する前に既に存在している必要があります。または例外が生成されます。

  • SQL Serverの Model データベースと同様のデータベースを既定の場所に作成する場合は、コードの str 変数を変更します。

    str = "CREATE DATABASE MyDatabase"

関連情報