تقييم الموضوع :
  • 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 جزاااااااااااااااااك الله كل خير 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة صورة كخلفية في الكريستال ريبورت atefkhalf2004 1 150 22-07-22, 05:06 PM
آخر رد: أبو خالد الشكري
  [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو محمد اسماعيل 5 1,515 30-06-22, 08:29 PM
آخر رد: alessam4pro
Heart [VB.NET] عدم فتح اضافة مكتبة بالفيجوال 2019 العواد الصغير 0 178 29-06-22, 05:47 PM
آخر رد: العواد الصغير
  كود اضافة اسبوع على تاريخ معين Lathe1 5 530 18-06-22, 10:59 AM
آخر رد: Lathe1
  هل استطيع اضافة عدد 2 من السوتش في شبكة واحدة بسام محمدغانم 2 290 03-06-22, 04:49 PM
آخر رد: بسام محمدغانم
  كيف يمكن اضافة 100 سجل بسيريال مسلسل الى قاعدة بيانات dr.programming 3 544 11-05-22, 03:08 PM
آخر رد: dr.programming
  كيفية اضافة اكتر من عمليه في وقت واحد او إلغاءها في حالة حدوث خطأ Emam emam 6 726 26-04-22, 04:03 AM
آخر رد: ابو محمد محمد محمد
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 1 893 09-04-22, 02:15 AM
آخر رد: asmarsou
  ممكن طريقة اضافة باسورد عند انشاء برنامج للقنوات لكي عندما احد يريد ان يدخل الى البرن omar dz 6 1,213 20-03-22, 07:37 PM
آخر رد: omar dz
  هل يمكن اضافة بيانات اخري عند الطباعه مع داتا جريد فيو مثل الاسم التاريخ رقم الفاتور ahmedhhh2 3 733 13-03-22, 06:03 PM
آخر رد: ahmedhhh2

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


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