SQL Server Open Close [VB 2010]

Visual Basic 2010/2008 やさしいADO.NET DBプログラム

[データソース構成ウィザード]の[データ接続の選択]画面で生成された接続文字列をコピーして、SQL ServerデータベースのOpen Close を確認するサンプルプログラム

接続文字列の詳細：SQL Server 2008 接続文字列

テスト用のプロジェクトを新規に作成し、ボタンをひとひとつ追加します。このボタンを押すと、データベースの開閉を確認できるようにします。

接続状態は、Stateプロパティで分かるので、このプロパティ値を文字列に変換し、メッセージボックスに表示して確認します。

接続状態を確認するために
　　Dim con As New SqlConnection
　　Using con
とコーディングしていますが、通常は
　　Using con As New SqlConnection
とコーディングします。

System.Data.SqlClientをインポートしておきます。

Option Strict On
Imports System.Data.SqlClient

Public Class ConTest

    Private Sub BtnTest_Click _
        (ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles BtnTest.Click

        Try
            Dim con As New SqlConnection
            Using con
                ' SQL Server 2008 Express Edition 接続文字列
                con.ConnectionString = _
                "Data Source=.\SQLEXPRESS;" & _
                "AttachDbFilename=" & _
                """D:\Program Files\Microsoft SQL Server" & _
                "\MSSQL10_50.SQLEXPRESS\MSSQL" & _
                "\DATA\販売管理データベース.mdf"";" & _
                "Integrated Security=True;" & _
                "Connect Timeout=30;" & _
                "User Instance=True"

                ' DBを開く
                con.Open()

                ' 接続状態の確認
                MessageBox.Show(con.State.ToString, "Open直後")

            End Using

            ' 接続状態の確認
            MessageBox.Show(con.State.ToString, "End Using直後")

        Catch ex As Exception
            MessageBox.Show(ex.ToString, "接続テスト【例外発生】")

        End Try

    End Sub

End Class