vb.net 4个线程来填充相同的数据库

你好我有一个循环，持续大约2小时完成，它从互联网获取数据并将其填充到数据库，所以我想分成4个线程，并且我在尝试在我将其应用到我的应用程序之前做一些测试。vb.net 4个线程来填充相同的数据库

所以这里是我写的4个线程和我收到此错误，以填补一个数据库中的样本“的BindingSource不能是自己的数据源”

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Me.DataGridView1.DataSource = Me.bindingSource1 
    GetData("select * from products") 
End Sub 

Public Sub thread1f0() 
    For i = 0 To 500 
     DataGridView1.Item("PD", i).Value = i + 67 
     DataGridView1.Item("PDP", i).Value = i + 41 
     DataGridView1.Item("TPD", i).Value = i + 654 + 6 * 13 
     DataGridView1.Item("TPDP", i).Value = i + 342 
    Next 
End Sub 

Public Sub thread1f1() 
    For i = 501 To 1000 
     DataGridView1.Item("PD", i).Value = i + 432 
     DataGridView1.Item("PDP", i).Value = i + 421 
     DataGridView1.Item("TPD", i).Value = i + 414 
     DataGridView1.Item("TPDP", i).Value = i + 42 + 4 
    Next 
End Sub 

Public Sub thread1f2() 
    For i = 1001 To 1500 
     DataGridView1.Item("PD", i).Value = i + 4452 
     DataGridView1.Item("PDP", i).Value = i + 34 
     DataGridView1.Item("TPD", i).Value = i + 123 
     DataGridView1.Item("TPDP", i).Value = i + 44 
    Next 
End Sub 

Public Sub thread1f3() 
    For i = 1501 To 2000 
     DataGridView1.Item("PD", i).Value = i + 423 
     DataGridView1.Item("PDP", i).Value = i + 423 
     DataGridView1.Item("TPD", i).Value = i + 423 
     DataGridView1.Item("TPDP", i).Value = i + 423/2 
    Next 

End Sub

“/////// ////////////////////////////////////////////////// /////////////

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    thread0 = New System.Threading.Thread(AddressOf thread1f0) 
    thread0.Start() 

    thread1 = New System.Threading.Thread(AddressOf thread1f1) 
    thread1.Start() 

    thread2 = New System.Threading.Thread(AddressOf thread1f2) 
    thread2.Start() 

    thread3 = New System.Threading.Thread(AddressOf thread1f3) 
    thread3.Start() 
End Sub 



Public Sub GetData(ByVal selectCommand As String) 

    Try 
     Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFileName 
     Me.dataAdapter = New OleDbDataAdapter(selectCommand, connectionString) 
     Dim commandBuilder As New OleDbCommandBuilder(Me.dataAdapter) 
     Dim table As New DataTable() 
     table.Locale = System.Globalization.CultureInfo.InvariantCulture 
     Me.dataAdapter.Fill(table) 
     Me.bindingSource1.DataSource = table 
     Me.DataGridView1.AutoResizeColumns(_ 
      DataGridViewAutoSizeColumnsMode.ColumnHeader) 
    Catch ex As OleDbException 
     MessageBox.Show(ex.Message) 
    End Try 

End Sub

来源

2012-08-09 user1570048

你为什么认为使用线程有帮助？ IO有可能成为瓶颈，添加线程无助于此。 – Oded 2012-08-09 14:36:14

以及它可能没有帮助，但我只是想学习如何使用它们，所以我想知道为什么是异常生成 – user1570048 2012-08-09 14:39:18

我会说这个错误与线程无关。你如何绑定你的数据？你是否将控制权限制于自身？ – Oded 2012-08-09 14:41:02

由于DataGridView控件使用DataTable作为DataSource，你需要更新DataTable，而不是DataGridView控件。

线程似乎并不必要。只需使用一个BackgroundWorker线程即可不冻结GUI。

来源

2012-08-09 14:50:33 LarsTech

确定第一个错误消失，但现在我得到“数据表内部索引已损坏” ！ – user1570048 2012-08-09 14:59:28

@ user1570048这是因为你的线程。你有四个线程试图同时更新一个单一的东西。因此，Oded为什么评论说“添加线程无助于此”。 – LarsTech 2012-08-09 15:01:57

所以没有解决方案？，如果每个线程都有自己的连接 – user1570048 2012-08-09 15:04:44

vb.net 4个线程来填充相同的数据库

回答

相关问题