ثبت اطلاعات از دیتاگرید در دیتابیس بادستورinsertدر vb.net

[sahel_nina]

با سلام
من تو فاکتور خرید میخوام وقتی کاربر کالاهای مورد نظر را انتخاب کرد در دیتاگرید نمایش داده شود(اطلاعات دیتاگرید از بانک خونده نمیشه بلکه از فرم دادهها را میگیره ونمایش میده)ودر بانک با دستور insert ثبت بشه.پایگاه داده اس کیو ال استفاده کردم و یک حلقه گذاشتم و از دستور insert استفاده کردم اما جواب نداد !چیکار کنم؟لطفا اگه میشه با کد برام توضیح بدین.ممنون

[sahel_nina]

لطفا سریع تر پاسخ دهید اگه میشه دقیق تر توضیح بدید.با تشکر

[arta.nasiri]

سلام


Dim query As String = "insert into tbl_DailyProductionPlan(Date,ModelNumber,ModelInde x,Shift_1," + _
"Shift_2,ProductionType) values (@Date,@ModelNumber,@ModelIndex,@Shift_1,@Shift_2, @ProductionType)"
Dim cmdInsert As New SqlCommand()
Dim i As Integer
For i = 0 To Me.DataGridView1.RowCount - 2
cmdInsert.Parameters.AddWithValue("@Date", Me.DataGridView1.Item(5, i).Value.ToString())
cmdInsert.Parameters.AddWithValue("@ModelNumber", Me.DataGridView1.Item(0, i).Value.ToString())
cmdInsert.Parameters.AddWithValue("@ModelIndex", Me.DataGridView1.Item(1, i).Value.ToString())
cmdInsert.Parameters.AddWithValue("@Shift_1", Me.DataGridView1.Item(2, i).Value.ToString())
cmdInsert.Parameters.AddWithValue("@Shift_2", Me.DataGridView1.Item(3, i).Value.ToString())
cmdInsert.Parameters.AddWithValue("@ProductionType", Me.DataGridView1.Item(4, i).Value.ToString())
cmdInsert.CommandText = query
cmdInsert.CommandType = CommandType.Text
cmdInsert.Connection = con
Try
con.Open()
cmdInsert.ExecuteNonQuery()
cmdInsert.Parameters.Clear()
con.Close()
Catch ex As Exception
MessageBox.Show("خطا در ثبت اطلاعات، لطفا دوباره سعی کنید", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
Dim DialogResult As DialogResult
DialogResult = MessageBox.Show("آیا مایل به گزارش خطا هستید؟", "گزارش خطا", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (DialogResult = Windows.Forms.DialogResult.Yes) Then
Dim rpt As String = ("Error : " + ex.ToString() + Environment.NewLine + _
" Data : " + ex.Data.ToString() + " Date : " + ExtensionDate.ToShortShamsiDate(DateTime.Now).ToSt ring())
MySDK.ReportError(rpt)
End If
End Try
Next