[الطالب]

سلام


جرب تضع هذا التعديل

كود :

Dim connString As String = "Data Source = " & SQLS & ";  User ID = " & UR & "; Password = " & Pass & ";database=" & DN & ";"

Private Sub BackgroundWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker.DoWork
   Try
       Using da As New SqlDataAdapter("SELECT * FROM Vinfo", connString)
           Using dt As New DataTable
               da.Fill(dt)
               SetDataSource(dt)
           End Using
       End Using
   Catch ex As SqlClient.SqlException
       MessageBox.Show(ex.Message, "Error !", MessageBoxButtons.OK, MessageBoxIcon.Error)
   End Try
End Sub

Delegate Sub SetDataTable(ByVal dt As DataTable)
Private Sub SetDataSource(ByVal dt As DataTable)
   If Vlist.InvokeRequired Then
       Dim d As New SetDataTable(AddressOf SetDataSource)
       Invoke(d, New Object() {dt})
   Else
       For Each row As DataRow In dt.Rows
           Vlist.Items.Add(New ListViewItem(New String() {row(0), row(1), row(2), row(3), row(4)}))
       Next
   End If
End Sub

لكن انصحك بدل الارقام التي في السطر التالي تضع اسماء الحقول مثل

كود :

Vlist.Items.Add(New ListViewItem(New String() {row("col1"), row("col2"), row("col3"), row("col4"), row("col5")}))

الكود مجرب


موفقين