الاخوة الأعزاء
عندى جدول به اسماء منتجات واسعار كل منتج وهو احد اجزاء مشروع اعمل فيه ولدى سؤالين ارجو من الاخوة مساعدتى فى حلهم وهم
السؤال الأول
اريد ان اغير اسعار كل المنتجات بنسبه معينه ولتكن 10% فما هو الكود الازم للمرور كل كل سجل فى الجدول وتغير قيمه السعر فيه .... أرجو الافادة وكتابه الكود إن أمكن
السؤال الثانى
كيف يمكن ملىء (كومبو بوكس) من جدول وليكن مثلا كيف يمكن ملىء الكمبو بأسماء المنتجات الموجود فى الجدول السابق
وشكرا
-09
الاخ الفاضل
سوف اجواب على السؤال الثانى :
do
combo1.add rst("productes")
rst.movenext
loop until rst.eof=trueو سوف اقم بعمل السؤال الاول و ارفقة لك
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
بالنسبة لسؤالك الاول فلنفترض أن لديك جدولا به الاسعار وصنفناه هنا بالمتغير Rs
خانة الاسعار بالخانة الرابعة مثلا ، إذا نحن نحتاج رقم الخانه وللوصول لها سيكون الكود بالطريقة التالي :
RS.Feildes (3)
طبعا أنت تتسائل بما أنها الخانة الرابعة لما وضعنا الرقم 3 فأقول بأن ترقيم الحقول يبدأ من صفر وليس من 1
الان عرفنا الحقل نبدأ كود العمل
نحرك المؤشر لبداية الدول if rs.BOF=False Then RS.MoveFirst نبدأ الدوراة هنا حتى نهاية الجدول Do until Rs.EOF 'نزيد القيمة 10 بالمئة في القيمة السابقة rs.fields(3)=rs.fields(3) +((rs.fields(3) * 10)/100) نحفظ التخزين rs.update ننتقل للسجل التالي rs.movenext نغلق الدوارة Loop
إذا هذا هو الكود الذي تحتاجه
طبعا يمكن استبدال رقم الحقل باسمه بالطريقة التالي :
Rs.Fields ("Amount")تحياتي لك
أما بالنسبة للسؤال لاثاني فهي كما سبق واجاب الاخ كود فايندر
DO Until Rs.EOF Combo1.AddItem Rs.fields(2) rs.movenext loop
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
الأخوة الأعزاء
كل عام وانتم بخير بمناسبه عيد الأضحى المبارك... ثانيا للأخوة omani و codefinder جزيل الشكر على سرعه الرد وسأجرب هذة الحلول وسأتابع معكم فى حال وجود مشاكل اخرى _ بعد إذنكم طبعا _ :D
بالنسبة للسؤال الثاني:
لربط Combobox مع قاعدة البيانات يمكنكاستخدام أداة Datacombo حيث يجب أن تضيفها
ثم تكتب الكود التالي لتعبئته بحقل قاعدة بيانات
set combo1.datasource = rs combo1.listfiled = "filed name" combo1.refresh
بالنسبة للسؤال الثاني
استخدم جملة Update مباشرة مثل التالي
dim sql as string sql = "update tabel_name set filed_name = filed_name*10% where filed_name = condition" db.execute sql
سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك
الأخ الفاضل كود فايندر
شكرا لرد على السؤال الثانى ولكننى جربت هذا الكود وواجهتنى عدة امور وهىأنك لم توضح فى ردك هل سنربط الجدول بأداة بيانات أم لا وهل سنربط الكومبو بهذة الاداة ام لا ... أرجو التوضيح وشاكر جدا
الاخ الفاضل عمانى
شكرا لردك الكريم ولكننى عند تجربه الكود الموضح أعلاة ظهرت لى رساله تقول أنه لا يمكن عمل تحديث بدون عمل إضافه أو تعديل .. فهل يمكنك مساعدتى لإنهاء هذة المهمه . ونص الرساله موضح بالأسفل علما بأننى أجريت بعض التعديلات البسيطه جدا على الكود ليصبح بالشكل الموضح
Update or Cancelupdate without Addnew or Edit
If Data1.Recordset.BOF = False Then Data1.Recordset.MoveFirst 'نبدأ الدوراة هنا حتى نهاية الجدول Do Until Data1.Recordset.EOF 'نزيد القيمة 10 بالمئة في القيمة السابقة Data1.Recordset.Fields(2) = Data1.Recordset.Fields(2) + (Data1.Recordset.Fields(2) * 0.1) ''نحفظ التخزين Data1.Recordset.Update '' ننتقل للسجل التالي Data1.Recordset.MoveNext ' ' نغلق الدوارة Loop End If
-09
الاخ العزيز
بالنسبة للسؤال الثانى :
بعد ما تقم بالربط باى اداة يمكنك ان تضيف فى اى ادارة و سوف يكون الخصائص خاصة بالربط هى ::
- data source
-data field
و سوف يتم استخدام الخاصيتان بعد الربط باى اداة
و امامك الان الطريقتان اما عن طريق الربط بالاداة كما موضح باعلى
او
عن طريق الكود كما سبق ((( الامر لك )))
بالنسبة للسؤال الاول ::
جرب طريقة الاخ nasser50001
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
كودك بعد التعديل
ولا تشيل هم
If Data1.Recordset.BOF = False Then Data1.Recordset.MoveFirst 'نبدأ الدوراة هنا حتى نهاية الجدول Do Until Data1.Recordset.EOF 'نزيد القيمة 10 بالمئة في القيمة السابقة Data1.Recordset.Edit Data1.Recordset.Fields(2) = Data1.Recordset.Fields(2) + (Data1.Recordset.Fields(2) * 0.1) ''نحفظ التخزين Data1.Recordset.Update '' ننتقل للسجل التالي Data1.Recordset.MoveNext ' ' نغلق الدوارة Loop
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
مليون شكر لأبو اليمن على مساعدته لى وأرجو اتمام مساعدتك لى بالرد على السوال التالى واللذى اتمنى ان يكون الاخير _ إن شاء الله _ وعنوان السؤال هنا
هذا الموضوع مغلق.