基於組合框選擇從Visual Basic 2010中的Access數據庫訪問行

Question

我已經尋找了3天，但找不到我需要的東西。 我很生銹，但是我在一家為酒店管理IT的公司工作。 我有一個訪問數據庫，其中包含HOTELNAME，Street，Zip，Phone等列。

酒店名稱正在我的表單上填充一個組合框。 基本上，一旦用戶從下拉列表中選擇了酒店，我希望其他行（與所選項目的行匹配）中的所有信息（例如位置信息和電話）填充一些標簽，但我似乎找不到標簽需要什么代碼。

CODE：公共類新票

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Me.HotelsdbTableAdapter.Fill(Me.HotelsDataSet1.hotelsdb)

    Try
        Dim MyConnection As System.Data.OleDb.OleDbConnection
        Dim DtSet As System.Data.DataSet
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
        MyConnection = New System.Data.OleDb.OleDbConnection _
        ("provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Users\David_2\Desktop 2\Skosh\hotelDB.xlsx'; Extended Properties=Excel 12.0;")
        MyCommand = New System.Data.OleDb.OleDbDataAdapter _
            ("select * from [Sheet1$]", MyConnection)
        MyCommand.TableMappings.Add("Table", "TestTable")
        DtSet = New System.Data.DataSet
        MyCommand.Fill(DtSet)

        ' cmbHotels.Items.Add = Sheet1$.Range("A1").Text

        MyConnection.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try



End Sub


Private Sub Newticket_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    FrmMain.Hide()

End Sub
Private Sub NewTicket_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
    FrmMain.Show()
    Me.Close()

End Sub

Private Sub lblHotel_Click(sender As System.Object, e As System.EventArgs) Handles lblHotel.Click

End Sub

Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles lblPoc.Click

End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Label7_Click(sender As System.Object, e As System.EventArgs) Handles Label7.Click

End Sub

Private Sub BindingSource1_CurrentChanged(sender As System.Object, e As System.EventArgs)

End Sub
Private Sub DataGridView1_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs)

End Sub

Private Sub cmbHotels_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbHotels.SelectedIndexChanged




End Sub

Private Function Sheets(p1 As String) As Object
    Throw New NotImplementedException
End Function

Private Function Rows() As Object
    Throw New NotImplementedException
End Function

Private Function Sheet1() As Object
    Throw New NotImplementedException
End Function

Private Sub DataGridView1_CellContentClick_1(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs)

End Sub

Private Sub BindingSource1_CurrentChanged_1(sender As System.Object, e As System.EventArgs) Handles BindingSource1.CurrentChanged

End Sub

Private Sub FillByHotelToolStripButton_Click(sender As System.Object, e As System.EventArgs)
    Try
        Me.HotelsdbTableAdapter.FillByHotel(Me.HotelsDataSet1.hotelsdb)
    Catch ex As System.Exception
        System.Windows.Forms.MessageBox.Show(ex.Message)
    End Try

End Sub

基本上是從組合框中選擇一家酒店。 右側帶有競爭信息的一些標簽需要填充酒店信息。 我對標簽做什么有0個主意。 組合框正在工作。

提前非常感謝

Answer 1

基本上是這樣..

Private Sub cmbHotels_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbHotels.SelectedIndexChanged
If cmbHotels.SelectedIndex = -1 then exit sub

Dim sHotel As String = cmbHotels.Text
Dim dr As DataRow

MyCommand = New System.Data.OleDb.OleDbDataAdapter _
        ("select * from [Sheet1$] where HotelName = '" & sHotel & "'" ,MyConnection) 

DtSet = New System.Data.DataSet
MyCommand.Fill(DtSet)

dr = DtSet.Rows(0)

'fill your label now
lblStreet.Text = dr.item("Stree") '----- or whatever
'etc

End Sub