منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار عن دالة في هذا الاستعلام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : استفسار عن دالة في هذا الاستعلام (/showthread.php?tid=28653)

استفسار عن دالة في هذا الاستعلام - alfaiz678 - 16-02-19

السلام عليكم

هذا استعلام عن اخر قيمة سجلت للعميل في جدول المبيعات

عند تطبيق الاستعلام ولم تكن للعميل الذي بعد جملة where  اية عملية في جدول المبيعات يظهر خطأ في البرنامج

واذا كانت له عملية يطبق الكود تماما

الاستفسار هل هناك دالة او غيرها ترجع بقيمة احددها صفر مثلا اذا لم تكن للعميل الذي بعد جملة wher عملية

الاستعلام
كود :
Dim rbhsnf As New OleDbCommand ' rbhsnf
           rbhsnf.CommandType = CommandType.Text
           rbhsnf.Connection = conne
           rbhsnf.CommandText = "select last (JBeaMndoobN) from [JBea] where JBeaMndoobName like '" & CMndoobName.Text & "'"
           conne.Open()
           '   rbhsnf.ExecuteScalar()
           Dim rbhsnf0 As Double
           If rbhsnf.ExecuteScalar.GetHashCode Then
               rbhsnf0 = rbhsnf.ExecuteScalar
           Else
               rbhsnf0 = 0
           End If
           conne.Close()


RE: استفسار عن دالة في هذا الاستعلام - محمد كريّم - 17-02-19

وعليكم السلام ورحمة الله وبركاته


كود :
           rbhsnf.CommandText = "select ISNULL(last(JBeaMndoobN),0) from [JBea] where JBeaMndoobName like '" & CMndoobName.Text & "'"


RE: استفسار عن دالة في هذا الاستعلام - alfaiz678 - 17-02-19

حياك الله اخي
يطلع خطأ وكأنه في تركيب وسائط الدالة isnull

الخطأ

Additional information: استخدام عدد خاطئ من الوسائط مع الدالة في تعبير استعلام 'ISNULL(last(JBeaMndoobN),0)'.

RE: استفسار عن دالة في هذا الاستعلام - alfaiz678 - 20-02-19

حاولت حتى عمل معي هذا الكود
وان شاء الله ينفع
للفائدة

كود :
Dim rbhsnf As New OleDbCommand ' rbhsnf
           rbhsnf.CommandType = CommandType.Text
           rbhsnf.Connection = conne
           rbhsnf.CommandText = "select last(JBeaMndoobN) from [JBea] where  JBeaMndoobName like '" & CMndoobName.Text & "'"
           conne.Open()
           If rbhsnf.ExecuteScalar.ToString <> "" Then
               TMndoobN.Text = rbhsnf.ExecuteScalar
           Else
               TMndoobN.Text = 0
           End If

           conne.Close()