Public Sub populate_lvw() lvw.Items.Clear() con.Close() con.Open() cmd = New SqlCommand("SELECT * FROM Students s join (select student_fullname, student_dob from Students GROUP BY student_fullname, student_dob HAVING count(*) > 1) a on s.student_fullname = a.student_fullname and s.student_dob=a.student_dob order by s.student_fullname", con) Using dr As SqlDataReader = cmd.ExecuteReader If dr.HasRows Then While dr.Read Dim li As New ListViewItem() li.Text = Convert.ToString(dr.Item("student_slno")) li.SubItems.Add(Convert.ToString(dr.Item("student_fullname"))) li.SubItems.Add(CType(dr.Item("student_dob"), DateTime).ToShortDateString) 'li.SubItems.Add(Convert.ToString(dr.Item("student_dob"))) li.SubItems.Add(Convert.ToString(dr.Item("student_branch"))) li.SubItems.Add(Convert.ToString(dr.Item("student_scholarship"))) li.SubItems.Add(Convert.ToString(dr.Item("student_accountno"))) ' li.SubItems.Add(dr.Item("student_dob")).ToString("dd/MM/yyyy") lvw.Items.Add(li) End While Else : MsgBox(" No defaulters found", MsgBoxStyle.OkOnly) End If End Using cmd.Dispose() con.Close() End Sub
While myListData.Read ' using ExecuteReader Dim i As Integer For i = 0 To lvList.Items.Count - 1 lvList.Items(i).Text = (i + 1).ToString() Next i lvList.Items.Add(Trim(CStr(CInt(i) + 1).ToString)) 'col no. 1 ' adding sub items from database (mysql) ' ........ End While
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)