vb.net 301号室：データベースから情報を取得

データベースから情報を取得します
[手順]
・データベースに接続する
・データベースを開く（開く条件はSQL文を作ります）
・データベースから情報を取得する

▼プログラム▼

        '------------------------------

        Dim cnn As ADODB.Connection 'コネクション用の変数
        Dim rec As ADODB.Recordset  'レコードセット用の変数
        Dim mySQL As String = ""    'SQL文用の変数

        Dim mdbPath As String = ""  'MDBファイルのフルパス用の変数

        mdbPath = "C:\Sample" & "\" & "Sample.accdb"    'MDBのフルパス

        '------------------------------

        cnn = New ADODB.Connection  'コネクションの宣言

        'MDB接続宣言：Accessファイル（2007～）を開く
        cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=" & mdbPath & ";"

        cnn.Open()  'MDBにコネクションする

        '------------------------------

        rec = New ADODB.Recordset   'レコードセットの宣言

        mySQL = "SELECT * FROM tblData;"    'MDBを開くためのSQL文＝tblDataの全てが対象

        '読み取り専用でMDBを開く
        Call rec.Open(mySQL, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)

        If rec.RecordCount <> 0 Then    'データがあることを確認（エラーを防ぐためのおまじないです

            '１行名のレコード情報をラベルコントロールに代入
            Label1.Text = rec("DATA1").Value
            Label2.Text = rec("DATA2").Value
            Label3.Text = rec("DATA3").Value
            Label4.Text = rec("DATA4").Value

        End If

        rec.Close() 'MDBを閉じる

        '------------------------------
        '後片付け：絶対的なおまじないっす

        rec = Nothing   '変数の解放

        cnn.Close() '接続を閉じる

        cnn = Nothing   '変数の解放

        '------------------------------