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

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

تعديل مثال العملاء الغير مسددين القسط - new_programer - 26-12-18

السلام عليكم

مرفق مثال ارجو التعديل او شرح كيف  يتم هذا الاستعلام

اريد عرض العملاء الغير مسددين لشهر او تاريخ ما

مرفق مثال ارجو التعديل

RE: تعديل مثال العملاء الغير مسددين القسط - حريف برمجة - 26-12-18

وعليكم السلام ،،

بالنسبة للغير مسددين كالتالي :

كود :
Dim cmd As New OleDbCommand("select tbl_customers.cust_code, tbl_customers.cust_name from tbl_customers
               where  tbl_customers.cust_code not in (
               select cust_code from tbl_paymint)", con)
       con.Open()
       tb_table2.Load(cmd.ExecuteReader)
           dvg1.DataSource = tb_table2
           con.Close()

وللمسددين احذف not من جملة الاستعلام .

هذا لجميع السجلات ،، ضيف عليهم شرط بالتاريخ المحدد .

RE: تعديل مثال العملاء الغير مسددين القسط - new_programer - 27-12-18

شكرا استاذ  حريف برمجة

الكود شغال تمام لكن عند وضع شرط لم يعمل يظهر خطاء

دة الكود بعد التعديل  عفوا خبرتى قليلة

كود :
  tb_table2.Clear()
       Dim cmd As New OleDbCommand("select tbl_customers.cust_code, tbl_customers.cust_name from tbl_customers where  tbl_customers.cust_code not in ( select cust_code from tbl_paymint)where tbl_paymint.mmonth= @mmonth", con)
       cmd.Parameters.Add("@mmonth", OleDbType.VarChar).Value = txt_month.Text
       con.Open()
      tb_table2.Load(cmd.ExecuteReader)
          dvg1.DataSource = tb_table2
          con.Close()
Syntax error (missing operator) in query expression 'tbl_customers.cust_code not in ( select cust_code from tbl_paymint)where tbl_paymint.mmonth= @mmonth'.

دة الخطاء

RE: تعديل مثال العملاء الغير مسددين القسط - asemshahen5 - 27-12-18

كود :
Dim cmd As New OleDbCommand("select tbl_customers.cust_code, tbl_customers.cust_name from tbl_customers where  tbl_customers.cust_code not in ( select cust_code from tbl_paymint where tbl_paymint.mmonth= @mmonth)", con)


RE: تعديل مثال العملاء الغير مسددين القسط - new_programer - 27-12-18

(27-12-18, 04:11 AM)asemshahen5 كتب :
كود :
Dim cmd As New OleDbCommand("select tbl_customers.cust_code, tbl_customers.cust_name from tbl_customers where  tbl_customers.cust_code not in ( select cust_code from tbl_paymint where tbl_paymint.mmonth= @mmonth)", con)


شكرا جدا جارة التجربة

RE: تعديل مثال العملاء الغير مسددين القسط - new_programer - 27-12-18

(27-12-18, 04:11 AM)asemshahen5 كتب :
كود :
Dim cmd As New OleDbCommand("select tbl_customers.cust_code, tbl_customers.cust_name from tbl_customers where  tbl_customers.cust_code not in ( select cust_code from tbl_paymint where tbl_paymint.mmonth= @mmonth)", con)

شكرا جدا استاذى  asemshahen5

بارك الله فيك وجعلة فى ميزان حساناتك

الكود شغال تمام

RE: تعديل مثال العملاء الغير مسددين القسط - ahmedmansour - 28-12-18

(27-12-18, 09:22 PM)new_programer كتب :
(27-12-18, 04:11 AM)asemshahen5 كتب :
كود :
Dim cmd As New OleDbCommand("select tbl_customers.cust_code, tbl_customers.cust_name from tbl_customers where  tbl_customers.cust_code not in ( select cust_code from tbl_paymint where tbl_paymint.mmonth= @mmonth)", con)

شكرا جدا استاذى  asemshahen5

بارك الله فيك وجعلة فى ميزان حساناتك

الكود شغال تمام

الكود دا هيشغل معاك اول شهر لكن مع الشهر التانى مش هيظهر لان البحث هيشوف بالعموم ان كود العميل موجود ولا لاء بغض النظر عن الشهر 


انا مازلت ابحث فى الموضوع ولم اجد حل 
راجع موضوعى دا
http://vb4arb.com/vb/showthread.php?tid=26482

RE: تعديل مثال العملاء الغير مسددين القسط - new_programer - 25-01-19

اخي احمد
هل تريد مساعده فى الكود
وضح ايه المطلوب وسوف ارسل لك الكود
لو تريد عرض العملاء الغير مسددين لشهر
الكود يعمل بنجاح
لو عايز مساعد قولى المطلوب وان شاء الله اساعدك