28-07-22, 02:37 AM (آخر تعديل لهذه المشاركة : 28-07-22, 07:38 AM {2} بواسطة حماده ممدوح البحيرى.)
السلام عليكم لو سمحتم محتاج اضيف شرط
حيث انه ان وجد نتيجة يفعل النتيجة وان لم يجد يعطى مسج بوكس برسالة معينه
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
28-07-22, 02:28 PM (آخر تعديل لهذه المشاركة : 28-07-22, 02:29 PM {2} بواسطة أبو خالد الشكري.)
أهلين إزيك يا سي حماده ؟
أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة )
كود :
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
السلام عليكم اخى وحبيبى ابو خالد وشكرا على ردك
نسخت الكود تمام ولكن ظهرت لى هذة الرسالة
وهذة الرسالة تظهر عندما لا يكون داخل عمود الشرط order_tybe اية بيانات حيث ان طريقة عمل الكود عندما اضغط على زر فاتورة دليفرى يعطينى اكبر قيمة للفاتورة بناء على ذلك الشرط وعندما اضغط على زر فاتورة تيك واى يعطينى اكبر قيمة للفاتورة بناء على هذا الشرط ولكن ان لم يجد اية من هذة الشروط داخل العمود يعطى رسالة خطأ كما بالصورة
28-07-22, 07:51 PM (آخر تعديل لهذه المشاركة : 28-07-22, 07:57 PM {2} بواسطة 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 & "'"
فقط غير اسم العامود+اسم الجدول .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
28-07-22, 08:19 PM (آخر تعديل لهذه المشاركة : 28-07-22, 08:59 PM {2} بواسطة حماده ممدوح البحيرى.)
(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 جزاااااااااااااااااك الله كل خير
تم حل الموضوع بفضل الله وبفضل تكرمك على بمشاركتك جزاك الله كل خير وكل من شارك ف الموضوع