تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة شرط للكود
#1
السلام عليكم
لو سمحتم محتاج اضيف  شرط 
حيث انه ان وجد نتيجة يفعل النتيجة 

وان لم يجد يعطى مسج بوكس برسالة معينه

PHP كود :
Public Function Max_number_invoic_tbpl()

 
       Dim Number As Integer
        Try
            Dim cmd 
As New SqlCommand("Select Max(order_no) From wardya_cashier Where order_tybe ='" order_type.Text "'"Con)
 
           If Con.State 1 Then Con.Close()
 
           Con.Open()
 
           Number cmd.ExecuteScalar
            rdr 
cmd.ExecuteReader
            Con
.Close()
 
       Catch ex As Exception
            Number 
0
            Con
.Close()
 
       End Try
 
       Return Number
    End 
Function 
صلوا على سيد الخلق سيدنا محمد
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#2
هل من مجيب اخوانى ????
صلوا على سيد الخلق سيدنا محمد
الرد }}}
#3
Big Grin 
أهلين إزيك يا سي حماده ؟

أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة )  Big Grin
كود :
Public Function Max_number_invoic_tbpl()
       Dim Number As Integer
       Dim rdr As SqlClient.SqlDataReader
       Try
           Dim cmd As New SqlCommand("Select Max(order_no) From wardya_cashier Where order_tybe ='" & order_type.Text & "'", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           rdr = cmd.ExecuteReader
           rdr.Read()
           If rdr.HasRows Then

               MsgBox("توجد بيانات مسجلة يا حماده")

           Else

               MsgBox("للأسف يا حماده لا توجد بيانات مسجلة")

           End If
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Return Number
   End Function
الرد }}}
#4
(28-07-22, 02:28 PM)أبو خالد الشكري كتب : أهلين إزيك يا سي حماده ؟

أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة )  Big Grin
كود :
Public Function Max_number_invoic_tbpl()
       Dim Number As Integer
       Dim rdr As SqlClient.SqlDataReader
       Try
           Dim cmd As New SqlCommand("Select Max(order_no) From wardya_cashier Where order_tybe ='" & order_type.Text & "'", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           rdr = cmd.ExecuteReader
           rdr.Read()
           If rdr.HasRows Then

               MsgBox("توجد بيانات مسجلة يا حماده")

           Else

               MsgBox("للأسف يا حماده لا توجد بيانات مسجلة")

           End If
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Return Number
   End Function


السلام عليكم اخى وحبيبى ابو خالد وشكرا على ردك Smile

نسخت الكود تمام ولكن ظهرت لى هذة الرسالة
وهذة الرسالة تظهر عندما لا يكون داخل عمود الشرط order_tybe  اية بيانات  
حيث ان طريقة عمل الكود عندما اضغط على زر فاتورة دليفرى يعطينى اكبر قيمة للفاتورة بناء على ذلك الشرط
وعندما اضغط على زر فاتورة تيك واى يعطينى اكبر قيمة للفاتورة بناء على هذا الشرط
ولكن ان لم يجد اية من هذة الشروط داخل العمود يعطى رسالة خطأ كما بالصورة


الملفات المرفقة صورة/صور
   
صلوا على سيد الخلق سيدنا محمد
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#5
في هذي الحالة أنا أنصحك أن ترفق المشروع كاملا  بعد ضغطه ببرنامج winrar
وذلك حتى يمكن مساعدتك  بشكل أفضل من قبل المبرمجين في هذا المنتدى.
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#6
استخدم الاستعلام كالتالي :

PHP كود :
Dim StrSQL as String "Select IIF(Max(order_no) Is NULL,1,Max(order_no)+1)as order_no From wardya_cashier Where order_tybe ='" order_type.Text "'" 


فقط غير اسم العامود+اسم الجدول .
الرد }}}
#7
(28-07-22, 07:51 PM)asemshahen5 كتب : استخدم الاستعلام كالتالي :

PHP كود :
Dim StrSQL as String "Select IIF(Max(order_no) Is NULL,1,Max(order_no)+1)as order_no From wardya_cashier Where order_tybe ='" order_type.Text "'" 


فقط غير اسم العامود+اسم الجدول .

اخى وحبيبى asemshahen5 جزاااااااااااااااااك الله كل خير 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة ادوات لفيجوال بيسك خالد20 10 1,976 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  اقتناص حدث تحديث او حذف او اضافة ملف ابو محمد محمد محمد 6 560 21-04-23, 05:49 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  مشكلة فى اضافة عناصر فى الداتا جريد فيو خالد كامل1 14 1,616 16-02-23, 03:10 AM
آخر رد: خالد كامل1
  [VB.NET] اضافة كرستال ريبورت MOHAMMED ALZWI 2 373 20-12-22, 11:19 AM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات MOHAMMED ALZWI 2 441 10-12-22, 12:25 PM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات 0 152 10-12-22, 02:30 AM
آخر رد: MOHAMMED ALZWI
  [سؤال] محتاج بعد انهاء المشروع اقوم بتحويله لملف تنفيذي يصعب الوصول للكود والفورم mony.tornado 6 642 08-12-22, 09:22 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم