Fill Listview Control Dynamically

Code to fill the listview control in vb.net dynamically

Dim rdGetData As SqlClient.SqlDataReader
Try
   If ListView1.Items.Count > 0 Then ListView1.Items.Clear()
   SQLCmd.CommandType = CommandType.Text
   SQLCmd.CommandText = "SELECT * from table"
   rdGetData = SQLCmd.ExecuteReader

   Dim intCount As Decimal = 0
   While rdGetData.Read
      ListView1.Items.Add(Trim("FieldName")) 'col no. 1
      ListView1.Items(CInt(intCount)).SubItems.Add(Trim
                     (rdGetContactsInfo("FieldName"))) 'col no. 2
      ListView1.Items(CInt(intCount)).SubItems.Add(Trim
                     (rdGetContactsInfo("FieldName"))) 'col no. 3
      intCount = intCount + 1
   End While
  
   rdGetData.Close()
   rdGetData = Nothing
  
   Catch Exp As Exception
      intNumError = Err.Number()
      MsgBox("[ " & CStr(intNumError) + " ] " + Err.Description,
      MsgBoxStyle.Critical, " (Program Error)")
   End Try

Code to get selected item in the textbox control into the button's click event or according to your requirment.

TextBox1.Text = ListView1.SelectedItems(0).Text
TextBox2.Text = ListView1.SelectedItems(0).SubItems(2).Text

This will copy the selected item's first value and 2nd value into the textboxes.

To display the selected text in the textbox.

Private Sub ListView1_ItemDrag(ByVal sender AsObject, 
          ByVal e As System.Windows.Forms.ItemDragEventArgs)
          Handles ListView1.ItemDrag
   TextBox1.Text = e.Item.ToString
End Sub

Handy Code for Executing SQL Queries

Public Function ExecuteNonQuery(ByVal sSQLCmd As String, _
                        Optional ByRef sErrMsg As String = "")
                        As Boolean
   Try
   Dim strConn As String = GetConnectionString()
   Dim cConn As SqlConnection = New SqlConnection(strConn)
   cConn.Open()
   If cConn.State = ConnectionState.Open Then
         Dim cCmd As SqlCommand = New SqlCommand(sSQLCmd, cConn)
         cCmd.ExecuteNonQuery()
   End If
   If cConn.State = ConnectionState.Open Then cConn.Close()
   Return True
Catch ex As Exception
      sErrMsg = ex.Message
   End Try
End Function

Handy Code for Executing SQL Queries - Gives Table

Public Function ExecuteQuery(ByVal strQuery As String, _
                        Optional ByRef sErrMsg As String = "")
                        As Data.DataSet 
Dim oDs As New DataSet
Try
Dim strConn As String = GetConnectionString()
Dim cConn As SqlConnection = New SqlConnection(strConn)
cConn.Open()

If (cConn.State = ConnectionState.Open) Then
           Dim oDa As New SqlDataAdapter(strQuery, cConn)
           oDa.Fill(oDs)
           Return oDs
End If
If (cConn.State = ConnectionState.Open) Then cConn.Close()
Catch ex As Exception
            sErrMsg = ex.Message
        End Try
Return oDs
End Function

Creating a TextBox Control During Runtime

Public Class Form1 Inherits System.Windows.Forms.Form

   Private Sub Form1_Load(ByVal sender As System.Object, _
                          ByValue As System.EventArgs) _
                          Handles MyBase.Load 
   Dim TextBox1 as New TextBox()
   With TextBox1
     .Text = "Hello World..." 
     .Location = New Point(100,50)
     .Size = New Size(75,23)
   End With
   Me.Controls.Add(TextBox1)
End Sub

End Class