显示相关的数据

我在此它显示从MS Access数据库项目的代码 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。任何建议非常感谢。

来源

2017-02-27 luca

你有没有尝试过什么？ –

@ProGrammer是的，我寻找类似的问题，像我的，并遇到了这样的代码示例[http://stackoverflow.com/questions/22831403/retrieve-data-from-database-according-to-multiple-checked-items-从checkedlist]，但我真的没有得到代码，因为我是VB.Net的新手 – luca

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()

来源

2017-03-04 00:15:09 luca

显示相关的数据

回答

相关问题