DataAdapter.FillでExcelファイルを読込む

VB.NET（OleDb）版

Excelファイルの郵便番号簿.xls(シート名は、デフォルトの"Sheet1")は、プロジェクトフォルダ下のbinフォルダに置きます。

https://dubai.rub-ex.com обмен валют в дубае: обмен валюты в дубае рубли на дирхамы.

サンプルプログラム

ソースリストの枠内をクリックすると全選択できます。

Imports System.Data.OleDb

Public Class YBN
    Public Const BANGO As Integer = 1
    Public Const TODOUFUKEN As Integer = 2
    Public Const SHICHOSON As Integer = 3
    Public Const CHOIKI As Integer = 4
End Class

Public Class FormExcelRead
     Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "
    ' 自動生成部分省略
#End Region

    '----------------------------------------------------------------
    ' 検索ボタン押下処理：エクセルファイルから該当行を取得し表示する
    '----------------------------------------------------------------
    Private Sub BtnSelect_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles BtnSelect.Click

        Dim con As New OleDbConnection()
        Dim cmd As New OleDbCommand()
        Dim da As New OleDbDataAdapter()
        Dim ds As DataSet = New DataSet()
        Dim dt As New DataTable()

        Try
            ' DB接続文字列の設定
            con.ConnectionString = _
                "Provider=Microsoft.Jet.OLEDB.4.0; " & _
                "Data Source=" & _
                Application.StartupPath & "\郵便番号簿.xls;" & _
                "Extended Properties=""Excel 8.0;HDR=YES;"""

            ' コネクションの設定
            cmd.Connection = con

            ' SQL文の設定
            ' シート名は、デフォルトの"Sheet1"のまま使っています
            cmd.CommandText = "SELECT * FROM [Sheet1$] " + _
                "WHERE 郵便番号 = @bango"

            ' SELECTコマンドの設定 
            da.SelectCommand = cmd

            ' SQL文パラメータの設定
            cmd.Parameters.Add("@bango", OleDbType.Char, 8)
            cmd.Parameters("@bango").Value = _
                Me.TxtYubinBango.Text

            ' データを取得する 
            da.Fill(dt)

            ' 取得レコード数のチェック
            If dt.Rows.Count = 1 Then
                Me.LblKenmei.Text = _
                   CStr(dt.Rows(0).Item(YBN.TODOUFUKEN))
                Me.LblShicyosonMei.Text = _
                   CStr(dt.Rows(0).Item(YBN.SHICHOSON))
                Me.LblChoMei.Text = _
                   CStr(dt.Rows(0).Item(YBN.CHOIKI))

            ElseIf dt.Rows.Count = 0 Then
                ' 行データがなかった時の処理
                MessageBox.Show _
                    ("郵便番号簿にデータなし", "エラー")
                Me.LblKenmei.Text = ""
                Me.LblShicyosonMei.Text = ""
                Me.LblChoMei.Text = ""
                Me.TxtYubinBango.Focus()

            Else
                ' 行データが重複していた時の処理
                MessageBox.Show _
                    ("同一郵便番号が2行以上あり", "エラー")
            End If

        Catch ex As Exception
            ' 例外が発生した時の処理
            MessageBox.Show(ex.ToString, "例外発生")

      End Try

    End Sub

End Class