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