【VB.NET】SQL Serverに接続する方法

VB.NETのプログラムからSQL Serverに繋いでデータを取得するやり方です。かなりシンプルな例なので、使用用途によって補完してください。

        'コネクション変数conの作成
        Dim con As New System.Data.SqlClient.SqlConnection
        'SQLクエリー文が格納される変数commandの作成
        Dim command As System.Data.SqlClient.SqlCommand = con.CreateCommand()

        Try

            '接続先指定（Windows認証）
            con.ConnectionString =
            "Data Source = サーバー名\インスタンス名;" &
            "Initial Catalog = カタログ名;" &
            "Integrated Security = SSPI"

            'データベースをオープン
            con.Open()

            'コネクションをセット
            command.Connection = con

            '実行するSQLクエリーを指定
            command.CommandText = "SELECT * FROM [テーブル名]"

            'アダプターを宣言
            Dim sqlAda As New System.Data.SqlClient.SqlDataAdapter

            'アダプターにクエリをセット
            sqlAda.SelectCommand = command

            '結果を格納するデータセットを宣言
            Dim ds As New DataSet

            'クエリ実行
            sqlAda.Fill(ds)

            '適当にデータを確認
            MsgBox(ds.Tables(0).Rows(0).Item(0))

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            '破棄
            con.Dispose()
            Command.Dispose()
        End Try

Usingを使った場合の例

        Using _
            con As New System.Data.SqlClient.SqlConnection,
            command As System.Data.SqlClient.SqlCommand = con.CreateCommand()

            Try
                '接続先指定
                con.ConnectionString =
                "Data Source = サーバー名\インスタンス名;" &
                "Initial Catalog = カタログ名;" &
                "Integrated Security = SSPI"

                'データベースをオープン
                con.Open()

                'コネクションをセット
                command.Connection = con

                '実行するSQLクエリーを指定
                command.CommandText = "SELECT * FROM T1"

                'アダプターを宣言
                Dim sqlAda As New System.Data.SqlClient.SqlDataAdapter

                'アダプターにクエリをセット
                sqlAda.SelectCommand = command

                '結果を格納するデータセットを宣言
                Dim ds As New DataSet

                'クエリ実行
                sqlAda.Fill(ds)

                '適当にデータを確認
                MsgBox(ds.Tables(0).Rows(0).Item(0))

            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Using