This is my insert button code on my SaleInfo Form.
Code:
Try
If dgvSales.Rows.Count <= 0 Then
MessageBox.Show("At Least One record must be available in Data Viewer", "SellingMS", MessageBoxButtons.OK)
Else
Dim insSale As String = "insert into SaleInfo (Prod_ID, Sale_Prod_Qty, Sale_Prod_POO, Sale_Prod_POA, Sale_Date) values (@Prod_ID, @Sale_Prod_Qty, @Sale_Prod_POO, @Sale_Prod_POA, @Sale_Date)"
Dim cmdSql As New SqlCommand(insSale, cnSql)
cmdSql.CommandType = CommandType.Text
daSql.InsertCommand = cmdSql
cnSql.Open()
Dim i As Integer
For i = 0 To (dtSale.Rows.Count - 1)
cmdSql.Parameters.Clear()
With cmdSql
.Parameters.Add("@Prod_ID", SqlDbType.Int).Value = dtSale.Rows(i)("SaleProductID")
.Parameters.Add("@Sale_Prod_Qty", SqlDbType.Int).Value = dtSale.Rows(i)("SaleProductQty")
.Parameters.Add("@Sale_Prod_POO", SqlDbType.Int).Value = dtSale.Rows(i)("SaleProductUnitPrice")
.Parameters.Add("@Sale_Prod_POA", SqlDbType.Int).Value = dtSale.Rows(i)("SaleProductAllPrice")
.Parameters.Add("@Sale_Date", SqlDbType.DateTime).Value = dtSale.Rows(i)("DateTime")
End With
cmdSql.ExecuteNonQuery()
Next
MessageBox.Show(i & " " & " records have been inserted successfully", "SellingMS", MessageBoxButtons.OK)
txtSaleID.Focus()
Call Clear(Me)
Call selSale()
Call ClearCombo(Me)
dtSale.Rows.Clear()
frmPracticeReport.Show()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
cnSql.Close()
End Try