02-06-14, 04:11 PM
Save Rows From DataGridView to table in database.....
Private Sub InsertIntoOrder_tbl()
Try
Using conn As New SqlConnection(Me.conn)
Dim cmd As New SqlCommand(strInsertIntoOrder_tbl, conn)
cmd.Parameters.Add("@itemnumber", TinyInt)
cmd.Parameters.Add("@qty", SmallInt)
cmd.Parameters.Add("@total", Money)
cmd.Parameters.AddWithValue("@date", [Date])
cmd.Parameters.Add("@user", TinyInt)
cmd.Parameters.AddWithValue("@Order_no", Int)
conn.Open()
For i As Integer = 0 To gv1.Rows.Count - 1
Dim item_no As Integer = SQL_Class.Only_item_No(Me.conn, gv1.Rows(i).Cells(0).Value, strSelectItem_no)
cmd.Parameters(0).Value = item_no
' I named datagridview1 To gv1
cmd.Parameters(1).Value = gv1.Rows(i).Cells(1).Value
cmd.Parameters(2).Value = gv1.Rows(i).Cells(3).Value
cmd.Parameters(3).Value = gv1.Rows(i).Cells(4).Value
cmd.Parameters(4).Value = user.Manager_no
cmd.Parameters(5).Value = My.Settings.OrderNumebr
cmd.ExecuteNonQuery()
Next
End Using
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub InsertIntoOrder_tbl()
Try
Using conn As New SqlConnection(Me.conn)
Dim cmd As New SqlCommand(strInsertIntoOrder_tbl, conn)
cmd.Parameters.Add("@itemnumber", TinyInt)
cmd.Parameters.Add("@qty", SmallInt)
cmd.Parameters.Add("@total", Money)
cmd.Parameters.AddWithValue("@date", [Date])
cmd.Parameters.Add("@user", TinyInt)
cmd.Parameters.AddWithValue("@Order_no", Int)
conn.Open()
For i As Integer = 0 To gv1.Rows.Count - 1
Dim item_no As Integer = SQL_Class.Only_item_No(Me.conn, gv1.Rows(i).Cells(0).Value, strSelectItem_no)
cmd.Parameters(0).Value = item_no
' I named datagridview1 To gv1
cmd.Parameters(1).Value = gv1.Rows(i).Cells(1).Value
cmd.Parameters(2).Value = gv1.Rows(i).Cells(3).Value
cmd.Parameters(3).Value = gv1.Rows(i).Cells(4).Value
cmd.Parameters(4).Value = user.Manager_no
cmd.Parameters(5).Value = My.Settings.OrderNumebr
cmd.ExecuteNonQuery()
Next
End Using
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
