[RESOLVED] RESOLVED Populate ListView

[Roofuss]

Hi

Please can some one give me an example of how i can populate my ListView with the data from a table in my SQL database?

I have put the columns and headings in place for my ListView but i dont know how to populate it?

My ListView is called lvTasks
Table in my database is called Tasks
and the code for my columns and headers is as follows

    Public Sub CreateListTasks()
        lvTasks.Columns.Add("Task ID", 0, HorizontalAlignment.Left)
        lvTasks.Columns.Add("For Company", 1, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Created On", 2, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Status", 3, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Time Taken", 4, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Cost", 5, HorizontalAlignment.Left)
        lvTasks.AutoResizeColumns(1)
        lvTasks.FullRowSelect = True
        lvTasks.GridLines = True
    End Sub

i just want someone to give me and example of how to populate is list view with the data from my table... Anyone Help?

Thanks Roo

[Hack]

'assumes myConnection is a valid database connection
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sSQL As String
        Dim lvwItem As New ListViewItem()
        sSQL = "SELECT field1, field2, field3 FROM tablename "
        sSQL = sSQL & "ORDER BY field1 "
        Dim command As New SqlCommand(sSQL, myConnection)
        Dim reader As SqlDataReader = command.ExecuteReader()
 
        While reader.Read()
            lvwItem = ListView1.Items.Add(reader.GetString(0))
            lvwItem.SubItems.Add(reader.GetString(1))
            lvwItem.SubItems.Add(reader.GetString(2))
        End While
    End Sub

[Roofuss]

Thanks the reply i have added that but i get an error that says
"Unable to cast object of type 'System.Int32' to type 'System.String'." at the line highlighted:

    Public Sub CreateListTasks()
        lvTasks.Columns.Add("Task ID", 0, HorizontalAlignment.Left)
        lvTasks.Columns.Add("For Company", 1, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Created On", 2, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Status", 3, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Time Taken", 4, HorizontalAlignment.Left)
        lvTasks.Columns.Add("Cost", 5, HorizontalAlignment.Left)
        lvTasks.AutoResizeColumns(1)
        lvTasks.FullRowSelect = True
        lvTasks.GridLines = True

        Dim Connection As SqlConnection = MSDB.GetConnection
        Dim sSQL As String
        Dim lvwItem As New ListViewItem()
        sSQL = "SELECT TaskID, TaskFor, TaskDate, TaskComplete, TaskTime, TaskCost  FROM tasks "
        sSQL = sSQL & "ORDER BY TaskDate "
        Connection.Open()
        Dim command As New SqlCommand(sSQL, Connection)
        Dim reader As SqlDataReader = command.ExecuteReader()

        While reader.Read()
            lvwItem = lvTasks.Items.Add(reader.GetString(0) & "TaskID")
            lvwItem.SubItems.Add(reader.GetString(1) & "TaskFor")
            lvwItem.SubItems.Add(reader.GetString(2) & "TaskDate")
            lvwItem.SubItems.Add(reader.GetString(3) & "TaskComplete")
            lvwItem.SubItems.Add(reader.GetString(4) & "TaskTime")
            lvwItem.SubItems.Add(reader.GetString(5) & "TaskCost")
        End While
        Connection.Close()
    End Sub

[Roofuss]

Sorry ignore my last post its been a long day but im sorted now thanks for your help Hack.