كيف اضيف سطور الداتا جرد بقاعدة البيانات - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : كيف اضيف سطور الداتا جرد بقاعدة البيانات (/showthread.php?tid=15793)

كيف اضيف سطور الداتا جرد بقاعدة البيانات - Abou Eman - 13-05-16 السلام عليكم كيف اضيف سطور الداتا جرد بقاعدة البيانات جربت اكتر من كود اما بيفشل او بيضيف سطر واحد RE: كيف اضيف سطور الداتا جرد بقاعدة البيانات - Abou Eman - 13-05-16 هذا الكود الى بيحفظ سجل واحد فقط 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.") تم الحل اشكركم