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

VB.NETでAccessのテーブルからSQLを使ってレコードを1行だけ抽出してメッセージボックスに表示するサンプルプログラムを覚書。

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

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

以下のサンプルプログラムは、Accessに付属のサンプルデータベース"Northwind.mdb"を使用しています。

VB.NETのフォームに配置した"Button2"がクリックされたら[運送会社]テーブルの[運送コード]が"1"のレコードを抽出して、電話番号フィールドの値をメッセージボックスで表示しています。

サンプルプログラムは以下のとおり。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:¥Program Files¥Microsoft Office¥Office¥Samples¥Northwind.mdb;")
Dim cmd As New OleDb.OleDbCommand
Dim returnValue As Object
        cmd.CommandText = "SELECT 電話番号 FROM 運送会社 Where 運送コード=1"
        cmd.CommandType = CommandType.Text
        cmd.Connection = con
        con.Open()
        　returnValue = cmd.ExecuteScalar()
        　MsgBox(returnValue)
        
        con.Close()
End Sub

サンプルプログラムの補足

プロジェクトの設定で接続文字列が設定されている場合は、"my.Settings.接続文字列名"という記載でも良いです。

例えば、接続文字列が"TESTConnectionString"という名前でプロジェクトに設定済みの場合は、宣言部分を以下のように変えてもOKです。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sqlCon As New SqlClient.SqlConnection(My.Settings.TESTConnectionString) 
Dim cmd As New OleDb.OleDbCommand
Dim returnValue As Object