[عبدالله الدوسري]

(20-03-18, 03:59 PM)السيد الجوهري كتب : بالعربيه للتوضيح فقط

  عذراً لم افتح المرفقات في طلب أخونا الحسين احمد
فعلاً جميع الحقول بالإنجليزية .

وأغلب الأسئلة بنية على مثالك أخي السيد الجوهري
إعتقد انك قمت بالتعديل على نفس المشروع , لذلك لم افتح المرفقات بعد أن رأيت الصور في ردك أخي السيد الجوهري. ( إعتمدت عليك في الرد   )

أعتذر :


جملة الإستعلام إذا ستكون كالتالي :

لجب جميع العملاء الذين لم يسددو شهر معين , 

كود :

    SELECT     Customers.ID,
            Customers.CustID,
            Customers.CustName,
            Customers.CustNaID,
            Customers.CustPhone,
            Customers.CustDate,
            Customers.CustYear,
            Customers.CustMonthPaid
    FROM Customers
    WHERE  
        (
        SELECT COUNT(*) FROM CustomerPay
        WHERE
            CustomerPay.ID = Customers.ID
            AND
            Month(CustomerPay.CustPayDate) = Month(Date())
            AND
            YEAR(CustomerPay.CustPayDate) = YEAR(Date())
        ) = 0 ;

   






للبحث خلال السنة الحالية كاملة :

كود :

    SELECT     Customers.ID,
            Customers.CustID,
            Customers.CustName,
            Customers.CustNaID,
            Customers.CustPhone,
            Customers.CustDate,
            Customers.CustYear,
            Customers.CustMonthPaid
    FROM Customers
    WHERE  
        (
        SELECT COUNT(*) FROM CustomerPay
        WHERE
            CustomerPay.ID = Customers.ID
            AND
            Month(CustomerPay.CustPayDate) BETWEEN 1 AND 12
            AND
            YEAR(CustomerPay.CustPayDate) = YEAR(Date())
        ) = 0 ;

   






للبحث عن الذي لم يسدد طوال حياتة ولا مرة واحدة :

كود :

    SELECT     Customers.ID,
            Customers.CustID,
            Customers.CustName,
            Customers.CustNaID,
            Customers.CustPhone,
            Customers.CustDate,
            Customers.CustYear,
            Customers.CustMonthPaid
    FROM Customers
    WHERE  
        (
        SELECT COUNT(*) FROM CustomerPay
        WHERE
            CustomerPay.ID = Customers.ID
        ) = 0 ;

جملة الإستعلام في الكود ستكون كالتالي :

كود :

       Dim sql As String = <sql>      

        SELECT Customers.ID,
               Customers.CustID,
               Customers.CustName,
               Customers.CustNaID,
               Customers.CustPhone,
               Customers.CustDate,
               Customers.CustYear,
               Customers.CustMonthPaid
       FROM Customers
       WHERE  
           (
           SELECT COUNT(*) FROM CustomerPay
           WHERE
               CustomerPay.ID = Customers.ID
               AND
               Month(CustomerPay.CustPayDate) = Month(Date())
               AND
               YEAR(CustomerPay.CustPayDate) = YEAR(Date())
           ) = 0 ;

       </sql>.Value

أو لتحديد التاريخ ( شهر , سنة ) :

كود :

       Dim sql As String = <sql>      

        SELECT Customers.ID,
               Customers.CustID,
               Customers.CustName,
               Customers.CustNaID,
               Customers.CustPhone,
               Customers.CustDate,
               Customers.CustYear,
               Customers.CustMonthPaid
       FROM Customers
       WHERE  
           (
           SELECT COUNT(*) FROM CustomerPay
           WHERE
               CustomerPay.ID = Customers.ID
               AND
               Month(CustomerPay.CustPayDate) = Month(Date())
               AND
               YEAR(CustomerPay.CustPayDate) = YEAR(Date())
           ) = 0 ;

       </sql>.Value.Replace("Month(Date())", "رقم الشهر الذي تريد").Replace("YEAR(Date())", "رقم السنة الذي تريد")