منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
احتاج مساعدة في كود التعديل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25291)



احتاج مساعدة في كود التعديل - maram2423 - 08-06-18

السلام عليكم احتاج مساعدتكم ولكن هذه المرة في كود التعديل 
 
كود :
 con.Open()
       ed1.CommandText = "update b1 set b_no = '" + T1.Text + "',b_name= '" + T2.Text + "',a_no = '" + Str(C1.SelectedValue) + "',r_no = '" + Str(C2.SelectedValue) + "',b_type = '" + C3.Text + "',b_data = '" + D1.Value.Date + "' where b_no= '" + T1.Text + "' "
       ed1.ExecuteNonQuery()
       MsgBox("تمت عملية التعديل بنجاح")
       con.Close()

 المشكلة هي ان حقل  "b_no رقم الكتاب" هوا من نوع ترقيم تلقائي  ولا اريد عرضة في form 
عند التنفيذ تظهر المشكلة هنا
كود :
where b_no= '" + T1.Text + "' "



والسبب هوا اني ليس لدي text  لاني لااريد عرضه  ارجو ان اكون قد وضحت الفكرة .... هل لديكم حل لهذه المشكلة .... وشكرا لكم الله يفتح عليكم ويستركم .
 ملاحظة :- الجدول نفسه هوا من يعطي الترقيم وليس من الفورم او من كود معين وهذا للعلم ....


RE: احتاج مساعدة في كود التعديل - محمد كريّم - 08-06-18

حطيه عالفورم ولا تعرضيه للمستخدم
اخفيه يعني من خاصية visibility = false


RE: احتاج مساعدة في كود التعديل - سعود - 08-06-18

b_no = '" + T1.Text + "'
اذا كان هذا الحقل ترقيم تلقائي فيجب حذفه من  التعديل ويبقى فقط بالاستعلام

PHP كود :
con.Open()
 
      ed1.CommandText "update b1 set b_name= '" T2.Text "',a_no = '" Str(C1.SelectedValue) + "',r_no = '" Str(C2.SelectedValue) + "',b_type = '" C3.Text "',b_data = '" D1.Value.Date "' where b_no=" val(T1.Text) + ""
 
      ed1.ExecuteNonQuery()
 
      MsgBox("تمت عملية التعديل بنجاح")
 
      con.Close() 

لم افهم معنى الجملة التالية:
PHP كود :
Str(C2.SelectedValue
ماهي str


RE: احتاج مساعدة في كود التعديل - maram2423 - 08-06-18

(08-06-18, 10:27 AM)سعود كتب : b_no = '" + T1.Text + "'
اذا كان هذا الحقل ترقيم تلقائي فيجب حذفه من  التعديل ويبقى فقط بالاستعلام

PHP كود :
con.Open()
 
      ed1.CommandText "update b1 set b_name= '" T2.Text "',a_no = '" Str(C1.SelectedValue) + "',r_no = '" Str(C2.SelectedValue) + "',b_type = '" C3.Text "',b_data = '" D1.Value.Date "' where b_no=" val(T1.Text) + ""
 
      ed1.ExecuteNonQuery()
 
      MsgBox("تمت عملية التعديل بنجاح")
 
      con.Close() 

لم افهم معنى الجملة التالية:
PHP كود :
Str(C2.SelectedValue
ماهي str

كود :
Str(C2.SelectedValue)
في هذا الكود يقوم بتعديل البيانات التي في الجدول المساعد المربوطه ب ComboBox  ودالة val  عكس دالة str 
الاختلاف هوا ان دالة str تحول الرقم الي سلسلة نصية يعني نقدرو نحولو القيم العددية الي حرفية ....

(08-06-18, 08:17 AM)محمد كريّم كتب : حطيه عالفورم ولا تعرضيه للمستخدم
اخفيه يعني من خاصية visibility = false
جربتها وخدمت بس لقيت ان لو كان من البداية من الكود يكون احسن ...


RE: احتاج مساعدة في كود التعديل - mrnooo2000 - 08-06-18

(08-06-18, 02:21 PM)maram2423 كتب :  

جربتها وخدمت بس لقيت ان لو كان من البداية من الكود يكون احسن ...

ضع متغير عددى فى النموذج و ليكن T1_no
يتم وضعه فى النموذج و ليس فى الاجراء

كود :
Private T1_no as integer

ثم استخدمه بدل التكست بوكس و يتم اعطائه قيمته بنفس كود ملء التكست بوكس

كود :
        "where b_no = " + T1_no



RE: احتاج مساعدة في كود التعديل - elgokr - 08-06-18

(08-06-18, 07:36 AM)maram2423 كتب : السلام عليكم احتاج مساعدتكم ولكن هذه المرة في كود التعديل 
 
كود :
 con.Open()
       ed1.CommandText = "update b1 set b_no = '" + T1.Text + "',b_name= '" + T2.Text + "',a_no = '" + Str(C1.SelectedValue) + "',r_no = '" + Str(C2.SelectedValue) + "',b_type = '" + C3.Text + "',b_data = '" + D1.Value.Date + "' where b_no= '" + T1.Text + "' "
       ed1.ExecuteNonQuery()
       MsgBox("تمت عملية التعديل بنجاح")
       con.Close()

 المشكلة هي ان حقل  "b_no رقم الكتاب" هوا من نوع ترقيم تلقائي  ولا اريد عرضة في form 
عند التنفيذ تظهر المشكلة هنا
كود :
where b_no= '" + T1.Text + "' "



والسبب هوا اني ليس لدي text  لاني لااريد عرضه  ارجو ان اكون قد وضحت الفكرة .... هل لديكم حل لهذه المشكلة .... وشكرا لكم الله يفتح عليكم ويستركم .
 ملاحظة :- الجدول نفسه هوا من يعطي الترقيم وليس من الفورم او من كود معين وهذا للعلم ....


بخصوص مشكلة عند التنفيذ


اجعلى كود التحديث بهذا الشكل
كود :
con.Open()
      ed1.CommandText = "update b1 set b_name= '" + T2.Text + "',a_no = '" + Str(C1.SelectedValue) + "',r_no = '" + Str(C2.SelectedValue) + "',b_type = '" + C3.Text + "',b_data = '" + D1.Value.Date + "' where b_no= '" + T1.Text + "' "
      ed1.ExecuteNonQuery()
      MsgBox("تمت عملية التعديل بنجاح")
      con.Close()

ثانياً بخصوص ظهوره او اخفائه لا مشكلة منه فى الفورم
يمكنك فقط جعل T1.text للقراءة فقط أو غير نشط
من خلال جعل الخصائص T1 كالتالى
PHP كود :
ReadOnly True
Enabled 
False 

من خلال دول سيظهر رقم الختاب فى الفورم لكن لا يمكن للمستخدم التعديل او التعامل معه
وفى حالة الاخفاء لا تستخدم 
PHP كود :
visibility false 

يفضل جعل T1 فى اى مكان من ثم جعل 
PHP كود :
Size 0;

من حيث ان عند عمل التحديث / التعديل يتمكن من قرائة قيمة T1 وفى نفس الوقت لن يكن ظاهر للمستخدم
بكده تكون  تم حل جميع ما تم ذكره فى الموضوع

تحياتى لك
وتمنياتى لك التوفيق