[Abou Eman]

السلام عليكم

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

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

[Abou Eman]

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


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.")

---

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