次の方法で共有

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 プロパティを btnCreateDatabase に変更し、その Text プロパティを Create Database に変更します。

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

    Imports System.Data.SqlClient

  4. 次のコードをコピーし、領域 "Windows フォーム デザイナーで生成されたコード" の後に貼り付けます。

    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"

関連情報