الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أحاول عمل إستعلام ولكن للاسف لم أفلح والملفات الخاصة بذلك مفقودة من المنتددى

مغلق
بدأه k.f.u في 9 يناير 2007 · 6 رد · 559 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم .......... حاولت عمل إستعلام مع العلم اني أستخدم ADODC

مع العلم اني محتفظة بموضوع سابق فيه عن الاستعلامات لكن للاسف كل ماحاولت احمل المثال تظهر لي رسالة بعدم وجود الملف !!!!!!!!!

أنا راح أكتب طريقتي بالعمل ....واتمنى تصححون لي اياها أنا أريد أن أستعلم عن حجوزات عميلة معينة

وضعت الاداة على الفورم وداتا قريد ووضعت مصدر السجلات الجملة التالية 

Select Boocking.*,customers.* From Boocking,customers Where Boocking.No_cust=customers.No_cust

ووضعت تيكست لكتابة الرقم وبجانبة زروفي الزر وضعت الجملة التالية ولكن للاسف لايظهر شيء 

code]Private Sub Command1_Click()
SQl = "Select Boocking.*,customers.* From Boocking,customers Where Boocking.No_cust=customers.No_cust AND No_cust= " = " & Val(Text1.Text) & """
End Sub

ولكن للاسف مايشتغل الزر لعرض حجوزات العميلة .............

مالسبب او ممكن مثال بإستخدام ADODC

تم تعديل هذه المشاركة بواسطة k.f.u في 9 يناير 2007 في 03:43

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#2

أحتاج الاجابة ........... ضروري

لاتبخلو علي الله يجزيكم خير

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#3

السلام عليكم

استخدم هذه الجملة لحل مشكلتك 

rs.Open "SELECT Table1.*, Table2.* FROM Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID;", db

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#4

جزاك الله خير

rs <<< ممكن أستخدمه مع ADODC ؟؟؟

وأين أضعة أرجوكم وضحولي

ولاتبخلوا علي بالاجابة <<<<<<<<<< خدمة لوجه الله

أريد الحل بسرعه او كمثال في ملف مرفق

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#5

طيب هنا ممكن تصحيح هذا في كود الزر .......... أحاول اعرض بيانات خامات تم "إستيرادها خلال تاريخ معين ........... ممكن مساعدة 

Dim str As String
   str = "SELECT Det_ven_Raw.No_raw, Rawmatireals.Ename_raw, Det_ven_Raw.No_inv, ven_Raw.Date_ven, Det_ven_Raw.Qu_ven, Det_ven_Raw.Price_Raw, ven_Raw.No_ven, vendors.Ename_ven"
  Where Det_ven_Raw.No_raw = Rawmatireals.No_raw And Det_ven_Raw.No_inv = ven_Raw.No_inv And ven_Raw.No_ven = vendors.No_ven AND (Date_ven >= " #& Text1.Text & "# AND Date_ven <= #" & Text2.Text & "#)";

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#6

طيب هنا ممكن تصحيح هذا في كود الزر .......... أحاول اعرض بيانات خامات تم "إستيرادها خلال تاريخ معين ........... ممكن مساعدة 

Dim str As String
   str = "SELECT Det_ven_Raw.No_raw, Rawmatireals.Ename_raw, Det_ven_Raw.No_inv, ven_Raw.Date_ven, Det_ven_Raw.Qu_ven, Det_ven_Raw.Price_Raw, ven_Raw.No_ven, vendors.Ename_ven"
  Where Det_ven_Raw.No_raw = Rawmatireals.No_raw And Det_ven_Raw.No_inv = ven_Raw.No_inv And ven_Raw.No_ven = vendors.No_ven AND (Date_ven >= " #& Text1.Text & "# AND Date_ven <= #" & Text2.Text & "#)";

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#7

طيب هنا ممكن تصحيح هذا في كود الزر .......... أحاول اعرض بيانات خامات تم "إستيرادها خلال تاريخ معين ........... ممكن مساعدة 

Dim str As String
   str = "SELECT Det_ven_Raw.No_raw, Rawmatireals.Ename_raw, Det_ven_Raw.No_inv, ven_Raw.Date_ven, Det_ven_Raw.Qu_ven, Det_ven_Raw.Price_Raw, ven_Raw.No_ven, vendors.Ename_ven"
  Where Det_ven_Raw.No_raw = Rawmatireals.No_raw And Det_ven_Raw.No_inv = ven_Raw.No_inv And ven_Raw.No_ven = vendors.No_ven AND (Date_ven >= " #& Text1.Text & "# AND Date_ven <= #" & Text2.Text & "#)";

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…