VB.NET

VB.NETでAccessのテーブルからSQLを使ってレコードを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


スポンサードリンク

  

関連記事