バックグラウンドワーカーvb.netを使用してデータベースmysqlを使用してクライアント上のサーバーにデータを挿入する方法は？

Question

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 
        koneksiserver() 



      Try 


       Dim sqlinsert As String = "INSERT INTO sentitems (TextDecoded, " & _ 
           "DestinationNumber,SenderID,ID)" & _ 
           "VALUES(@isi,@nohp,@modem,@ID)" 
       Dim cmd = New MySqlCommand(sqlinsert, MyCon) 
       cmd.Parameters.Add("@isi", MySqlDbType.Text) 
       cmd.Parameters.Add("@nohp", MySqlDbType.VarChar) 
       cmd.Parameters.Add("@modem", MySqlDbType.VarChar) 
       cmd.Parameters.Add("@ID", MySqlDbType.Int16) 




       For i As Integer = 0 To DataGridView3.Rows.Count - 0 
        cmd.Parameters("@isi").Value = DataGridView3.Rows(i).Cells(1).Value 
        cmd.Parameters("@nohp").Value = DataGridView3.Rows(i).Cells(3).Value 
        cmd.Parameters("@modem").Value = DataGridView3.Rows(i).Cells(4).Value 
        cmd.Parameters("@ID").Value = DataGridView3.Rows(i).Cells(6).Value 
        cmd.ExecuteNonQuery() 

       Next 
       DisplayStatus("Conected...") 
       isExecuting = True 

       Dim callback As New AsyncCallback(AddressOf HandleCallback) 
       cmd.BeginExecuteNonQuery(callback, cmd) 






       MyCon.Close() 
      Catch ex As Exception 






       'MyCon.Close() 

       ' MsgBox("Export Berhasil", MsgBoxStyle.Exclamation, "DHAPU SMS") 

      End Try 
    End Sub 
Private Sub set_db_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles set_db.Click 
     BackgroundWorker1.RunWorkerAsync() 









    End Sub 

Answer 1

azmy; UIロックアップを防止するためにBackgroundWorkerを使用していると仮定します。

DataGridView3、DisplayStatus、およびMsgBoxは、保証されている例外で、UIスレッドに関連付けられたオブジェクトは参照できません。 DataGridView3.Rows.Countへ= 0の整数として、私のために

また、あなたのループ - あなたが適切に達成するために-1ないマイナス0

を使用する回数を調整されていないため、0

失敗しますテーブルオブジェクトまたはデータオブジェクトの配列を渡す必要がありますか、System.ComponentModel.DoWorkEventArgs引数を使用して更新するデータを渡す必要があります。