+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اضافة صفوف للداتا جريد فيو (/showthread.php?tid=22797)
اضافة صفوف للداتا جريد فيو - محمد اسماعيل - 03-12-17
السلام عليكم
عندي داتا جريدفيو اقوم بتوصيلها بقاعدة بيانات اكسيس 2007 بالاتصال المنفصل
بضيف صفوف وبحذف صفوف عادي جدا وحفظ وكل شيء تمام
المشكلة اريد تجربة اضافة 100 صف ببيانتهم مرة واحدة لتجربة
استخدمت الكود التالي لاضافة 100 صف مرة واحدة الكود يعمل بالداتا جريد بدون وصلها بقاعدة البيانات ولكن لايعمل عند اتصال بقواعد البيانات ويعطي الخطا اسفل منة
المطلوب كود لاضافة 100 صف مرة واحدة في حالة الاتصال بقواعد البيانات
With DataGridView1
For i = 0 To 100
.Rows.Add(i, "Bayh")
Next
End With
الخطا
Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound.
RE: اضافة صفوف للداتا جريد فيو - Rabeea Qbaha - 03-12-17
أذا اردت الاضافه مباشره استخدم الاتي :
PHP كود :
For x As Integer = 0 To 100
Using con As New OleDbConnection(connString)
Using cmd As New OleDbCommand("insert into amil (amil_Name,adres,n_tile) values(@amil_Name,@adres,@n_tile)", con)
cmd.Parameters.AddWithValue("@amil_Name", ("test1"))
cmd.Parameters.AddWithValue("@adres", ("test2"))
cmd.Parameters.AddWithValue("@n_tile", ("test3"))
'فحص الاتصال بقاعدة البيانات
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
End Using
Next
MsgBox("تم الاضافه بنجاح")
اما اذا اردت اضافه جميع بيانات ال datagrid مره واحده استخدم الاتي :
PHP كود :
For x As Integer = 0 To DataGridView2.Rows.Count - 2
Using con As New OleDbConnection(connString)
Using cmd As New OleDbCommand("insert into amil (amil_Name,adres,n_tile) values(@amil_Name,@adres,@n_tile)", con)
cmd.Parameters.AddWithValue("@amil_Name", (DataGridView2.Rows(x).Cells(0).Value))
cmd.Parameters.AddWithValue("@adres", (DataGridView2.Rows(x).Cells(1).Value))
cmd.Parameters.AddWithValue("@n_tile", (DataGridView2.Rows(x).Cells(2).Value))
'فحص الاتصال بقاعدة البيانات
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
End Using
Next
DataGridView2.Rows.Clear()
MsgBox("تم الاضافه بنجاح")
End Sub
RE: اضافة صفوف للداتا جريد فيو - محمد اسماعيل - 03-12-17
(03-12-17, 09:11 PM)Rabeea Qbaha كتب : أذا اردت الاضافه مباشره استخدم الاتي :
PHP كود :
For x As Integer = 0 To 100
Using con As New OleDbConnection(connString)
Using cmd As New OleDbCommand("insert into amil (amil_Name,adres,n_tile) values(@amil_Name,@adres,@n_tile)", con)
cmd.Parameters.AddWithValue("@amil_Name", ("test1"))
cmd.Parameters.AddWithValue("@adres", ("test2"))
cmd.Parameters.AddWithValue("@n_tile", ("test3"))
'فحص الاتصال بقاعدة البيانات
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
End Using
Next
MsgBox("تم الاضافه بنجاح")
اما اذا اردت اضافه جميع بيانات ال datagrid مره واحده استخدم الاتي :
PHP كود :
For x As Integer = 0 To DataGridView2.Rows.Count - 2
Using con As New OleDbConnection(connString)
Using cmd As New OleDbCommand("insert into amil (amil_Name,adres,n_tile) values(@amil_Name,@adres,@n_tile)", con)
cmd.Parameters.AddWithValue("@amil_Name", (DataGridView2.Rows(x).Cells(0).Value))
cmd.Parameters.AddWithValue("@adres", (DataGridView2.Rows(x).Cells(1).Value))
cmd.Parameters.AddWithValue("@n_tile", (DataGridView2.Rows(x).Cells(2).Value))
'فحص الاتصال بقاعدة البيانات
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
End Using
Next
DataGridView2.Rows.Clear()
MsgBox("تم الاضافه بنجاح")
End Sub
الف شكر الكود ظبط معايا