[Easy4ever]

أخوي لازم تحدد وفق إي حقل يتم التعديل
بمعنا البرنامج يريد التعديل لاكن انت لم تحدد له رقم الحقل الذي تريد تعديله

الكود قبل التعديل

كود :

SavInto.CommandText = "UPDATE a1 SET name = '" & Trim(TextBox1.Text) & "' , ro1 = '" & Trim(TextBox2.Text) & "' , id1= '" & Trim(TextBox3.Text) & "' , id2= '" & Trim(TextBox4.Text) & "' , id3= '" & Trim(TextBox5.Text) & "' , namper1= '" & Trim(TextBox6.Text) & "' , namper2= '" & Trim(TextBox7.Text) & "' , fs= '" & Trim(TextBox9.Text) & "' , ml= '" & Trim(TextBox10.Text) & "'"

لنفرض أن لديك حقل Num وبداخل الحقل رقم الصنف أو رقم العميل .. يجب ان تجعل المستخدم تحديد الصنف الذي تريد تعديله
الآن سيتم من المستخدم تحديد رقم الصنف في حقل مثلا TextBox15.text

سنضيف هذا الكود في النهاية

كود :

[color=#ff0000]where Num=" & TextBox15.text"[/color]

الكود بعد التعديل

كود :

SavInto.CommandText = "UPDATE a1 SET name = '" & Trim(TextBox1.Text) & "' , ro1 = '" & Trim(TextBox2.Text) & "' , id1= '" & Trim(TextBox3.Text) & "' , id2= '" & Trim(TextBox4.Text) & "' , id3= '" & Trim(TextBox5.Text) & "' , namper1= '" & Trim(TextBox6.Text) & "' , namper2= '" & Trim(TextBox7.Text) & "' , fs= '" & Trim(TextBox9.Text) & "' , ml= '" & Trim(TextBox10.Text) & "' [color=#ff0000]where Num=" & TextBox15.text & ""[/color]

* ملاحظة
لاحظة أنك أستخدمت أكواد كثيره حتى تقوم بتعديل لما لا تختصر الأكواد أنظر للكود بعد الأختصار والتصحيح من 9 اسطر إلى 5 اسطر

كود :

[align=left]
Dim SavInto As New OleDb.OleDbCommand("update a1 set name='" & Trim(TextBox1.Text) & "',ro1='" & Trim(TextBox2.Text) & "',id1='" & Trim(TextBox3.Text) & "',id2='" & Trim(TextBox4.Text) & "',id3='" & Trim(TextBox5.Text) & "',namper1='" & Trim(TextBox6.Text) & "',namper2='" & Trim(TextBox7.Text) & "', fs='" & Trim(TextBox9.Text) & "',ml='" & Trim(TextBox10.Text) & "[color=#ff0000]' where Num=" & TextBox15.text &[/color][color=#FF0000] ""[/color], Conn)

Conn.Open()

SavInto.ExecuteNonQuery()

Conn.Close()

MsgBox("تم تعديل البيانات")[/align]