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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28)
+---- الموضوع : [سؤال] جملة استعلام (/showthread.php?tid=23163)



جملة استعلام - amro_demon - 01-01-18

اريد كتابة كود مشروط بالتاريخ من الى وكذلك حسب محتوى الكومبو بوكس


RE: جملة استعلام - eiocm - 01-01-18

k = "SELECT * FROM tb1 WHERE (dt BETWEEN #" & DTPicker1 & "# AND #" & DTPicker1 & "#) AND (mod='" & Combo1 & "')"


RE: جملة استعلام - amro_demon - 01-01-18

(01-01-18, 09:12 PM)eiocm كتب : k = "SELECT * FROM tb1 WHERE (dt BETWEEN #" & DTPicker1 & "# AND #" & DTPicker1 & "#) AND (mod='" & Combo1 & "')"

مشكور اخي لكن الكود يظهر كل الداتا بدل ان تكون محددة ضمن التاريخ المطلوب فقط


RE: جملة استعلام - eiocm - 01-01-18

الاستعلام يستعلم عن بيانات بين تاريخين مع شرط محتوى الكومبو بوكس
ولا أعرف كيف نفذت الاستعلام
بالاضافة إلى أنك لم تضع مشروعك


RE: جملة استعلام - amro_demon - 01-01-18

(01-01-18, 09:59 PM)eiocm كتب : الاستعلام يستعلم عن بيانات بين تاريخين مع شرط محتوى الكومبو بوكس
ولا أعرف كيف نفذت الاستعلام
بالاضافة إلى أنك لم تضع مشروعك

اخي الكريم شكرا للرد عند وضع الكود بالشكل التالي 
zzz = "select * from data Where dates between #" & _
       Format(dt1.Value, "mm/dd/yyyy") & "# and  #" & _
       Format(dt2.Value, "mm/dd/yyyy") & "#  AND (customer='" & Combo1 & "')" 

فانه يعمل بشكل صحيح الان لو سمح كيف اضيف شرط اخر على اعتبار اسمه item   وسيتم كتابته للاستعلام عنه داخل text


RE: جملة استعلام - eiocm - 01-01-18

أضفه مع الاستعلام مثل
zzz = "select * from data Where dates between #" & _
Format(dt1.Value, "mm/dd/yyyy") & "# and #" & _
Format(dt2.Value, "mm/dd/yyyy") & "# AND" & _
(customer='" & Combo1 & "') AND" & _
(item='" & Text1 & "')"


RE: جملة استعلام - amro_demon - 02-01-18

(01-01-18, 11:07 PM)eiocm كتب : أضفه مع الاستعلام مثل
zzz = "select * from data Where dates between #" & _
      Format(dt1.Value, "mm/dd/yyyy") & "# and  #" & _
      Format(dt2.Value, "mm/dd/yyyy") & "#  AND" & _
      (customer='" & Combo1 & "')  AND" & _
      (item='" & Text1 & "')"

مشكور اخي على الرد والمساعدة تم حل المشكلة