Bind listview using dataset
-
Hi all, Please tel me how to bind a listview using dataset in vb.net application? Thnaks in advance
Dim ImageList16 As New ImageList,DAp1 as SqlDataAdapter,Ds1 as New DataSet ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\party_fig.gif")) ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\it_spcl.gif")) ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\target.gif")) ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\it_dtl.gif")) ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\it_dtl.gif")) ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\indent_fig.gif")) ListView1.Items.Clear() ListView1.Refresh() ListView1.View = View.Details ListView1.BorderStyle = BorderStyle.FixedSingle ListView1.BackColor = Color.Azure ListView1.ForeColor = Color.Green ListView1.HoverSelection = True ListView1.FullRowSelect = True ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable ListView1.GridLines = True ListView1.Cursor = Cursors.Hand ListView1.Columns.Add("MT No", -2, HorizontalAlignment.Left) ListView1.Columns.Add("MT DATE", -2, HorizontalAlignment.Left) ListView1.Columns.Add("ITEM_DESCRIPTION", -2, HorizontalAlignment.Left) ListView1.Columns.Add("ITEM_CODE", -2, HorizontalAlignment.Left) ListView1.Columns.Add("TRANSFER Qty", -2, HorizontalAlignment.Left) ListView1.Columns.Add("UNIT", -2, HorizontalAlignment.Left) ListView1.Columns.Add("PROJECT", -2, HorizontalAlignment.Left) ListView1.SmallImageList = ImageList16 ListView1.Columns(0).ImageIndex = 0 ListView1.Columns(1).ImageIndex = 1 ListView1.Columns(2).ImageIndex = 2 ListView1.Columns(3).ImageIndex = 3 ListView1.Columns(4).ImageIndex = 4 ListView1.Columns(4).ImageIndex = 5 ListView1.Columns(4).ImageIndex = 6 ListView1.Font = New System.Drawing.Font("Times New Roman", 8, FontStyle.Regular, GraphicsUnit.Point, Byte.MinValue) Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click Ds1.Clear() ComboBox1.DroppedDown = True con.ConnectionString = ConStr_2 con.Open() DAp1 = New SqlDataAdapter(Query1, con) DAp1.Fill(Ds1) con.Close() ListView1.Items.Clear() ListView1.Refresh() For A3 As Integer = 0 To Ds1.Tables(0).Rows.Count - 1 Dim RItem As ListViewItem RItem = New ListViewItem(Ds1.Tables(0).Rows(A3).Item("mt_no").ToString) RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("mt_date").ToString) RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("itm_description").ToString) RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("itm_code").ToString)
-
Hi all, Please tel me how to bind a listview using dataset in vb.net application? Thnaks in advance
Did you try google at all? That should be your first step. Try this: listview binding vb .net[^]