'Add Parameters to Command Parameters collection
' .Parameters.Add("@RequisitionID", SqlDbType.Int)
' .Parameters.Add("@Date", SqlDbType.SmallDateTime)
' .Parameters.Add("@DepartmentID", SqlDbType.Int)
' .Parameters.Add("@Department", SqlDbType.VarChar, 50)
' .Parameters.Add("@ItemID", SqlDbType.Int)
' .Parameters.Add("@Item_Name", SqlDbType.VarChar, 50)
' .Parameters.Add("@CategoryID", SqlDbType.Int)
' .Parameters.Add("@Category", SqlDbType.VarChar, 80)
' .Parameters.Add("@UnitID", SqlDbType.Int)
' .Parameters.Add("@Units", SqlDbType.NVarChar, 20)
' .Parameters.Add("@Unit_Price", SqlDbType.Decimal, 9)
' .Parameters("@Unit_Price").Precision = 18
' .Parameters("@Unit_Price").Scale = 2
' .Parameters.Add("@Quantity", SqlDbType.NChar, 10)
' .Parameters.Add("@Amount", SqlDbType.Money)
' .Parameters.Add("@User_Name", SqlDbType.VarChar, 20)
' Prepare command for repeated execution
' .Prepare()
' Data to be inserted
Dim SQL_insert As String = _
"INSERT INTO Requisitions (Requisitions.RequsitionID,Requisitions.Date,Requisitions.DepartmentID, " _
& " Requisitions.Department,Requisitions.ItemID,Requisitions.[Item Name],Requisitions.CategoryID, " _
& " Requisitions.Category,Requisitions.UnitID,Requisitions.Units,Requisitions.[Unit Price], " _
& " Requisitions.Quantity,Amount,Requisitions.[User Name])" & _
" VALUES(@RequsitionID,@Date,@DepartmentID,@Department,@ItemID,@ItemName,@CategoryID,@Category,@UnitID,@Units, " _
& " @UnitPrice,@Quantity,@Amount,@UserName)"
Dim NonQueryCommand As New OleDbCommand
With NonQueryCommand
.CommandText = SQL_insert
.CommandType = CommandType.Text
.Connection = "Your cONNECTION oBJECT"
End With
For Each row As DataGridViewRow In RequisitionsDGV.Rows
If Not row.IsNewRow Then
With NonQueryCommand
.Parameters.AddWithValue.AddWithValue("@RequisitionID", .Value = row.Cells(0).Value)
.Parameters.AddWithValue("@Date", row.Cells(1).Value)
.Parameters.AddWithValue("@DepartmentID", .Value, row.Cells(2).Value)
.Parameters.AddWithValue("@Department", .row.Cells(3).Value)
.Parameters.AddWithValue("@ItemID", .row.Cells(4).Value)
.Parameters.AddWithValue("@ItemName", .row.Cells(5).Value)
.Parameters.AddWithValue("@CategoryID", .row.Cells(6).Value)
.Parameters.AddWithValue("@Category", .row.Cells(7).Value)
.Parameters.AddWithValue("@UnitID", .row.Cells(8).Value)
.Parameters.AddWithValue("@Units", .row.Cells(9).Value)
.Parameters.AddWithValue("@UnitPrice", .Value, .row.Cells(10).Value)
.Parameters.AddWithValue("@Quantity", .Value, .row.Cells(11).Value)
.Parameters.AddWithValue("@Amount", .row.Cells(12).Value)
.Parameters.AddWithValue("@UserName", .row.Cells(13).Value) ' see this line
.ExecuteNonQuery()
.Parameters.Clear()
End With
End If
Next row
NonQueryCommand.Dispose()