データテーブル (dtItem) をループし、各行をデータベースに挿入する次のコードがあります。ただし、データテーブルの最後の行しか挿入できません。すべての行を挿入するにはどうすればよいですか? これが私のコードです。
Dim dtRow を DataRow として
For Each dtRow In dtItem.Rows
dtRow.ToString.Split("|")
Dim xBinCode As String = dtRow(0)
Dim xLocationCode As String = dtRow(7)
Dim xItemNo As String = dtRow(1)
Dim xQuantity As String = dtRow(2)
Dim xCountNo As String = dtRow(8)
cmd.CommandText = "INSERT INTO tblItems (BinCode, LocationCode, ItemNo, Quantity, CountNo) values('" & xBinCode & "','" & xLocationCode & "','" & xItemNo & "','" & xQuantity & "','" & xCountNo & "')"
Next