المشاركات : 179
المواضيع 29
الإنتساب : May 2016
السمعة :
8
الشكر: 261
تم شكره 95 مرات في 65 مشاركات
13-05-16, 10:16 PM
السلام عليكم
كيف اضيف سطور الداتا جرد بقاعدة البيانات
جربت اكتر من كود اما بيفشل او بيضيف سطر واحد
المشاركات : 179
المواضيع 29
الإنتساب : May 2016
السمعة :
8
الشكر: 261
تم شكره 95 مرات في 65 مشاركات
13-05-16, 11:03 PM
(آخر تعديل لهذه المشاركة : 13-05-16, 11:26 PM {2} بواسطة 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.")
تم الحل
اشكركم