從數據表插入數據到MySql表

Question

我的代碼從數據表插入數據到Mysql表，但是過程需要很長時間。無論如何，我可以修改我的方法來創建我的datable值的「One shoot insert」嗎？在交易中也會很好。謝謝。

Dim result As Boolean = False 
     Dim MysqlConn As MySqlConnection 
     MysqlConn = New MySqlConnection() 
     MysqlConn.ConnectionString = "Server=localhost;Database=duo;Uid=root;Pwd=pass1;" 
     Using con As New MySqlConnection(MysqlConn.ConnectionString) 

      For Each r As DataRow In _dtSir.Rows 

       Using cmd As New MySqlCommand("INSERT INTO " & _serializer.GetTableName(_reportId) & " (SR, IDcol, System) 
               VALUES (@SR, @IDcol, @System)", con) 

        cmd.CommandType = CommandType.Text 
        cmd.Parameters.AddWithValue("@SR", r("SR#")) 
        cmd.Parameters.AddWithValue("@IDcol", CInt(r("ID"))) 
        cmd.Parameters.AddWithValue("@System", r("System")) 

        If Not con.State = ConnectionState.Open Then 
         con.Open() 
        End If 

        cmd.ExecuteNonQuery() 
        result = True 
       End Using 
      Next 

     End Using 

     Return result 
    End Function 

Answer 1

試試這個，看看快：

Public Function test() 
    Dim result As Boolean = False 
    Using con As New MySqlConnection("Server=localhost;Database=duo;Uid=root;Pwd=pass1;") 
     con.Open() 
     For Each row As DataRow In_dtSir.Rows 
     Using cmd = con.CreateCommand() 
       cmd.CommandType = CommandType.Text 
       cmd.CommandText = "INSERT INTO " & _serializer.GetTableName(_reportId) & " (SR, IDcol, System) VALUES ('" & row("SR#") & "', '" & CInt(row("ID")) & "','" & row("System") & "'", con) 
       cmd.Connection = con 
       cmd.ExecuteNonQuery() 
       result = True 
      End Using 
     Next 
     con.Close() 
     SqlConnection.ClearPool(con) 
    End Using 
    Return result 
End Function 

有可能是調整，因爲我從來沒有使用過的MySqlConnection