VB.NET:SQL Serverのテーブルから1行だけ取り出すクエリーを実行して表示するサンプルプログラム

SQL Server のデータベースのテーブルから単一行を取り出すクエリーを実行し、特定のフィールドの値をメッセージボックスで表示するサンプルプログラムを覚書。

以下サンプルの説明とプログラムを記述。

スポンサーリンク

サンプルプログラムの実行環境

この記事のサンプルプログラムを実行した環境を以下に記載する。

  • SQL Serverは、SQL Server 2005 Express Editionを使用
  • SQL Serverにデータベース名"TEST"データベースを作成
  • "TEST"データベースにテスト用のテーブル"T"を作成
  • テーブル"T"に以下の2つのフィールドを定義(※1)

※1:テーブルに定義した2つのフィールドの定義内容

    1. IDフィールド:Identity列(いわゆるオートナンバー型)、主キーとして定義。
    2. F1フィールド:TEXT型

VB.NETのサンプルプログラム

以下に[Button1]がクリックされたらTテーブルのID番号1のデータを取り出して、フィールドF1の値をメッセージボックスで表示するサンプルプログラムを記載する。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim sqlCon As New SqlClient.SqlConnection("Data Source=ComputerName¥SQLExpress;" _
                                             & "Initial Catalog=TEST;Integrated Security=True")
   'プロジェクトの設定で接続文字列が設定されている場合は、my.Settings.接続文字列名でよい。
   '例:接続文字列が、TESTConnectionStringでプロジェクトに設定済みの場合
   'Dim sqlCon As New SqlClient.SqlConnection(My.Settings.TESTConnectionString)

   Dim cmd As New SqlClient.SqlCommand
   Dim returnValue As Object

   '1行だけ取り出すSQL文を定義
   cmd.CommandText = "SELECT F1 FROM T Where ID =1"
   cmd.CommandType = CommandType.Text
   cmd.Connection = sqlCon

   sqlCon.Open()
   returnValue = cmd.ExecuteScalar()
   MsgBox(returnValue)

   sqlCon.Close()

End Sub

コメント

タイトルとURLをコピーしました