+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : [vb6.0] [VB6] أريد مساعدتكم في كتابة كود برمجي (/showthread.php?tid=46308)
[VB6] أريد مساعدتكم في كتابة كود برمجي - محمد ابو ايمن - 17-06-23
في الكود التالي : لغة البرمجة VB6
Adodc1.RecordSource = "select * from INFO where name='" & Text1.Text & "' and city='" & Text2.Text & "' and date >= #" & Text3& "# and date <= #" & Text4& "#"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Text أداة تيكست بوكس
Text1 , text2 , Text3 ,Text4
INFO اسم الجدول
name . city . date اسماء الأعمدة
أرجو مساعدتي في تعديل الكود بحيث تظهر النتائج حسب التصفية في DataGrid كمايلي :
مثلا :
في TEXT1 البحث حسب الاسم عند كتابة اسم احمد ارغب ان تكون التصفية حسب الحرف أ ثم أح ثم أحم ثم أحمد
TEXT2 البحث حسب المدينة . نفس الشيء
سؤال آخر
عند كتابة الكود التالي للبحث بين عمودين رقميين على النحو التالي يظهر الكود بلون أحمر
حاولت عدة مرات معرفة الخطأ ولم أتمكن
Adodc3.RecordSource = " select * from INFO where NUMBER like '" & Combo7 & "*'" And NUMBER2 Like '" & Combo8 & "*'"
لكم الشكر الجزيل
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - Taha Okla - 18-06-23
الأفضل ترفق مشروع فيه المشكلة موجودة وواضحة حتى يتم التعديل عليه..
بالنسبة لمشكلة تصفية وترتيب النتائج أبجدياً بحسب الاسم، قم بإضافة العبارة (Order By name) بعد عبارة البحث التي وضعتها وسيتم ترتيب النتائج بحسب ما طلبت منه ،، الاسم أو المدينة ، أو أرقام، أو تواريخ (أنت تختار)..
بالنسبة لمشكلة البحث في حقل رقم مشكلتك واضحة أنك عم تستخدم الاشارة النصية (') قبل وبعد قيمة الحقل
قم بإزالتها وجرب وبإذن الله راح يشتغل معك الكود..
هذه الاشارة (') الشرطة النصية المفردة تستخدم في حال البحث ضمن حقول نصية فقط..
شيء آخر - لا تكرر الأسئلة ولا تضعها في غير المكان المخصص للأسئلة
قسم مكتبة الأكواد ماله علاقة بالأسئلة.. فقط هو مرجع وليس مكان للأسئلة..
المنتدى له تنسيق ويجب المحافظة عليه ..
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - محمد ابو ايمن - 18-06-23
شكرا لك على ردك
وضع الأسئلة في غير اماكنها عائد لضعف خبرتي في التعامل مع المنتديات ، فاعذرني
ولو تكرمت بالرد على باقي الأسئلة
شكرا مرة ثانية
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - G20 - 18-06-23
PHP كود :
Adodc3.RecordSource = " select * from INFO where NUMBER like '" & Combo7 & "*' And NUMBER2 Like '" & Combo8 & "*'"
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - محمد ابو ايمن - 18-06-23
شكرا جزيلا لردك أخي الكريم
إنما لم ينجح الكود
البحث في عمودين مختلفين بتنسيق رقمي
لنفترض أن العمود الأول اسمه العدد و العمود الثاني هو القيمة
الكود هو : ابحث في الجدول بحيث يكون العدد S والقيمة A
مرة ثانية شكرا لك
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - G20 - 18-06-23
(18-06-23, 06:37 AM)Taha Okla كتب : الأفضل ترفق مشروع فيه المشكلة موجودة وواضحة حتى يتم التعديل عليه...
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - محمد ابو ايمن - 19-06-23
شكرا لك أخي الكريم
أرفقت نسخة من الأسئلة وأظن أنها موضّحة بشكل جيد
استخدمت نموذجين من قاعدة البيانات
مسار الملف
C:\Users\ASUS\Desktop\مجلد جديد (3)
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - ahmedabdelaliem - 19-06-23
السلام عليكم ورحمة الله وبركاته
PHP كود :
Adodc3.RecordSource = " select * from INFO where NUMBER LIKE '%" & UCase(Combo7) & "%' And NUMBER2 LIKE '%" & UCase(Combo8) & "%'"
اخي الكريم عدل الكود هكذا
بالتوفيق
RE: [VB6] أريد مساعدتكم في كتابة كود برمجي - محمد ابو ايمن - 19-06-23
أخي الكريم ahmedabdelaliem
شكرا جزيلا لك واهتمامك