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

السلام عليكم

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

عند تطبيق الاستعلام ولم تكن للعميل الذي بعد جملة 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()

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

كود :

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

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

الخطأ

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

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

كود :

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()

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

alfaiz678

محمد كريّم

alfaiz678

alfaiz678