显示与 CheckedListBox 项相关的数据

Question

I have a code where it displays items from MS Access database to a checkedlistbox:

  Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim con As New OleDb.OleDbConnection
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rose&mike\Desktop\DbSysDel3\salondbaccess.accdb"
    Dim cmd As OleDbCommand
    Dim sql As String = "SELECT Service_Name FROM [Service_Types]"
    con.Open()
    cmd = New OleDb.OleDbCommand(sql, con)
    Dim dr As OleDbDataReader = cmd.ExecuteReader
    If dr.HasRows Then
        While dr.Read
            chcklstbx1.Items.Add(dr(0))
        End While
    End If
    con.Close()
  End Sub

我需要做的是在勾选某项时显示关联的Service_Fee并将其转换为String。非常感谢任何建议。

Answer 1

Dim selec As String
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rose&mike\Desktop\DbSysDel3\salondbaccess.accdb")
    Dim dt2 As New DataTable
    selec = ""
    con.Open()
    For Each incheck In chcklstbx1.CheckedIndices
        Dim valName As String
        valName = chcklstbx1.Items.Item(incheck).ToString
        Dim sqlstr2 As String = "SELECT Service_Fee FROM Service_Types WHERE [Service_Name] = '" & valName & "'"
        Dim cmd As New OleDbCommand(sqlstr2, con)
        Dim sum As Double = 0
        Dim rdr As OleDbDataReader = cmd.ExecuteReader
        If rdr.HasRows Then
            While rdr.Read
                selec += "P" + rdr("Service_Fee").ToString & ControlChars.NewLine
            End While
        End If
        lblFees.Text = selec
        rdr.Close()
    Next
    con.Close()

显示与 CheckedListBox 项相关的数据

Display associated data with CheckedListBox Items

database

vb.net

checkedlistbox