+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اضافة محتوى الـ datagridview إلى قاعدة البيانات (/showthread.php?tid=15559)
اضافة محتوى الـ datagridview إلى قاعدة البيانات - Mido-9 - 22-04-16
السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل انا الان استخدم vb.net + access واريد اضافة محتويات الداتا جريد فيو إلى قاعدة البيانات ؟
ياريت لو تدلوني على الطريقة وبارك الله فيكم
RE: اضافة محتوى الـ datagridview إلى قاعدة البيانات - boudyonline - 22-04-16
أخي الفاضل :
يفضل ادراج مشروعك للتعديل عليه
RE: اضافة محتوى الـ datagridview إلى قاعدة البيانات - محمد بن عطية - 16-05-16
تفضل اخي جرب واخيرنا
Dim pos As Integer = DataGridView1.CurrentRow.Index
Dim ID_pos = DataGridView1.Rows(pos).Cells("ID").Value
Dim cmd As New OleDbCommand("Update TB_1M set FNAME=@FNAME, LECY=@LECY,LES1=@LES1,LES2=@LES2,LES3=@LES3,LES4=@LES4,LES5=@LES5,LES6=@LES6,LES7=@LES7,LES8=@LES8,PAY=@PAY where ID=" & ID_pos, con)
cmd.Parameters.Add("@FNAME", OleDbType.VarChar).Value = DataGridView1.Rows(pos).Cells("FNAME").Value
cmd.Parameters.Add("@LECY", OleDbType.VarChar).Value = DataGridView1.Rows(pos).Cells("LECY").Value
cmd.Parameters.Add("@LES1", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES1").Value
cmd.Parameters.Add("@LES2", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES2").Value
cmd.Parameters.Add("@LES3", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES3").Value
cmd.Parameters.Add("@LES4", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES4").Value
cmd.Parameters.Add("@LES5", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES5").Value
cmd.Parameters.Add("@LES6", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES6").Value
cmd.Parameters.Add("@LES7", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES7").Value
cmd.Parameters.Add("@LES8", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("LES8").Value
cmd.Parameters.Add("@PAY", OleDbType.Boolean).Value = DataGridView1.Rows(pos).Cells("PAY").Value
con.Open()
cmd.ExecuteNonQueryAsync()
con.Close()
طبعا القائمة التالية هي قائمة الحقول في قاعدة البيانات
FNAME, LECY,LES1,LES2,LES3LES4,LES5,LES6,LES7,LES8,PAY
RE: اضافة محتوى الـ datagridview إلى قاعدة البيانات - Adrees - 16-05-16
راجع الموضوع التالي
http://vb4arb.com/vb/thread-14916.html