VB.NET （.VB） ポスグレに接続 SQL 実行

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 '*********************************************************************

 ' Form1　を Load した時のイベント　押した処理

 '*********************************************************************

        ' ポスグレ接続

        Dim Con As NpgsqlConnection = Nothing

        ' クラス ClassDB　から　接続文字列を取得 （接続文字列を入れればOK）

        Con = New NpgsqlConnection(ClassDB.ConString)

        Con.Open()

        ' コマンド

        Dim Cmd As NpgsqlCommand = New NpgsqlCommand("select id, name, ranking,group_name from countries;", Con)

' SQL　の結果を格納する

        Dim rs As NpgsqlDataReader

' SQL 実行

        rs = Cmd.ExecuteReader

        rs.Read()

        txthyouji.Text = rs("name").ToString() + " " + rs("ranking").ToString() + " " + rs("group_name").ToString()

        '　ポスグレの ranking カラム ランキング値を格納

        code = Integer.Parse(rs("ranking").ToString())

        rs.Close()

        Cmd.Connection.Close()

        Con.Close()

    End Sub