Translate

2011年1月23日日曜日

vb2008でのDB接続メモ

DB接続メモ。
vb2008


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Using con As New System.Data.SqlClient.SqlConnection
                con.ConnectionString = _
                    "Data Source=.\SQLEXPRESS;" & _
                    "AttachDbFilename=|DataDirectory|\list.mdf;" & _
                    "Integrated Security=True;" & _
                    "User Instance=True"

                'DBを開く
                con.Open()

                '---<< DBの接続状態を確認>>---
                MessageBox.Show(con.State.ToString, "開いた直後")


                con.Close()
                '---<< DBの接続状態を確認>>---
                MessageBox.Show(con.State.ToString, "閉じた直後")
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "例外発生")
        End Try
    End Sub
End Class

Using ステートメント
End Usingを抜けると自動的にオブジェクトを破棄してくれるそうな。
2005以降で利用可能とのこと。
DB接続文字列は、app.configに書いてある内容をコピペ。

0 件のコメント: