منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
لو سمحتم محتاج اضيف شرط
حيث انه ان وجد نتيجة يفعل النتيجة
وان لم يجد يعطى مسج بوكس برسالة معينه

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 

هل من مجيب اخوانى ????

أهلين إزيك يا سي حماده ؟

أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة ) 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

(28-07-22, 02:28 PM)أبو خالد الشكري كتب : [ -> ]أهلين إزيك يا سي حماده ؟

أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة )

كود :

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 اية بيانات
حيث ان طريقة عمل الكود عندما اضغط على زر فاتورة دليفرى يعطينى اكبر قيمة للفاتورة بناء على ذلك الشرط
وعندما اضغط على زر فاتورة تيك واى يعطينى اكبر قيمة للفاتورة بناء على هذا الشرط
ولكن ان لم يجد اية من هذة الشروط داخل العمود يعطى رسالة خطأ كما بالصورة

في هذي الحالة أنا أنصحك أن ترفق المشروع كاملا بعد ضغطه ببرنامج winrar
وذلك حتى يمكن مساعدتك بشكل أفضل من قبل المبرمجين في هذا المنتدى.

استخدم الاستعلام كالتالي :

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 & "'" 

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

(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 جزاااااااااااااااااك الله كل خير

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حماده ممدوح البحيرى

حماده ممدوح البحيرى

أبو خالد الشكري

حماده ممدوح البحيرى

أبو خالد الشكري

asemshahen5

حماده ممدوح البحيرى