[Mido-9]

السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل انا الان استخدم vb.net + access واريد اضافة محتويات الداتا جريد فيو إلى قاعدة البيانات ؟

ياريت لو تدلوني على الطريقة وبارك الله فيكم

[boudyonline]

أخي الفاضل :

يفضل ادراج مشروعك للتعديل عليه

[محمد بن عطية]

تفضل اخي جرب واخيرنا
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

[Adrees]

راجع الموضوع التالي
http://vb4arb.com/vb/thread-14916.html