منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

كيف اضيف سطور الداتا جرد بقاعدة البيانات

جربت اكتر من كود اما بيفشل او بيضيف سطر واحد

هذا الكود الى بيحفظ سجل واحد فقط


Dim SQL As String = "INSERT INTO tabl(a1, a2, a3, a4) VALUES (@a1, @a2, @a3, @a4)"
Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
With CMD
.CommandType = CommandType.Text
.Connection = SqlConnection1
.Parameters.Add("@a1", SqlDbType.VarChar, 50)
.Parameters.Add("@a2", SqlDbType.VarChar, 50)
.Parameters.Add("@a3", SqlDbType.VarChar, 50)
.Parameters.Add("@a4", SqlDbType.VarChar, 50)

For Each row As DataGridViewRow In DataGridViewX1.Rows


If Not row.IsNewRow Then
CMD.Parameters("@a1").Value = row.Cells(0).Value.ToString
CMD.Parameters("@a2").Value = row.Cells(1).Value
CMD.Parameters("@a3").Value = row.Cells(2).Value
CMD.Parameters("@a4").Value = row.Cells(3).Value

End If

.CommandText = SQL
Next
End With

If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
SqlConnection1.Open()
CMD.ExecuteNonQuery()
SqlConnection1.Close()

MessageBox.Show("Records inserted.")

---

تم الحل
اشكركم