ما هو رقم الخطأ لهذه الرسالة؟

اعتقد انه مش اي رساله المفروض اننا نحولها لصيغه مفهومه للمستخدم :happy: بالذات لو كان سبب ظهورها خطأ برمجي !! انت تقول انها رساله غريبه هل هذا معناه انك مش فاهم معناها او سبب ظهورها ؟

انا شفت الرابط التالي شوفه هل ممكن تستفيد منه

stackoverflow

أخي tagh552 شكرا لك

الرسالة لم أقول أنها غريبة

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

ولكن أريد أن تظهر للمستخدم رسالة تنبيه واضحة بحيث يفهم أن ما يبحث عنه غير موجود

*البرنامج بلغة VB.net 2008

شاكر لكم

ضع الكود المستخدم

أخي KARIMSOFT شكرا لك

تفضل الكود

 Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Try
            con.Open()
            com_search.Parameters("BookName").Value = ToolStripTextBox2.Text

            Dim dr As OleDb.OleDbDataReader
            dr = com_search.ExecuteReader
            Do While dr.Read = True


                 TextBox_B_Name.Text = dr.GetValue(0)
                TextBox_B_No.Text = dr.GetValue(1)
                TextBox_B_Quantity.Text = dr.GetValue(3)
                TextBox_B_PartsNum.Text = dr.GetValue(2)
                TextBox_B_ShelfNo.Text = dr.GetValue(7)
                TextBox_B_AuthorName.Text = dr.GetValue(4)
                TextBox_B_VersionDate.Text = dr.GetValue(5)
                TextBox_B_PublishingHouse.Text = dr.GetValue(6)
                TextBox_B_Nots.Text = dr.GetValue(9)
                ComboBox_B_Class.Text = dr.GetValue(8)


            Loop

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()
    End Sub

شاكر لكم

جرب هذا الكود

con.Open()
        Try
            com_search.Parameters("BookName").Value = ToolStripTextBox2.Text

            Dim dr As OleDb.OleDbDataReader= com_search.ExecuteReader
            If dr.HasRows Then
                While dr.Read
                    TextBox_B_Name.Text = dr.GetValue(0)
                    TextBox_B_No.Text = dr.GetValue(1)
                    TextBox_B_Quantity.Text = dr.GetValue(3)
                    TextBox_B_PartsNum.Text = dr.GetValue(2)
                    TextBox_B_ShelfNo.Text = dr.GetValue(7)
                    TextBox_B_AuthorName.Text = dr.GetValue(4)
                    TextBox_B_VersionDate.Text = dr.GetValue(5)
                    TextBox_B_PublishingHouse.Text = dr.GetValue(6)
                    TextBox_B_Nots.Text = dr.GetValue(9)
                    ComboBox_B_Class.Text = dr.GetValue(8)
                End While
            Else
                MessageBox.Show("لا يوجد")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try

شكرا لك أخي KARIMSOFT

جربت الكود ويعمل لكن عند البحث للمرة الأولى فقط تظهر الرسالة (لا يوجد)

وعند البحث مرة ثانية تعاود الظهور الرسالة السابقة التي أود ترجمتها للمستخدم حتى يفهم مضمون الرسالة.

هل يوجد حل بحيث تظهر الرسالة (لا يوجد) في كل مرة يقوم المستخدم بالبحث عن سجل غير موجود؟

شاكر لكم

جرب هذا التعديل

 con.Open()
        Dim dr As OleDb.OleDbDataReader = com_search.ExecuteReader

        Try
            com_search.Parameters("BookName").Value = ToolStripTextBox2.Text

            If dr.HasRows Then
                While dr.Read
                    TextBox_B_Name.Text = dr.GetValue(0)
                    TextBox_B_No.Text = dr.GetValue(1)
                    TextBox_B_Quantity.Text = dr.GetValue(3)
                    TextBox_B_PartsNum.Text = dr.GetValue(2)
                    TextBox_B_ShelfNo.Text = dr.GetValue(7)
                    TextBox_B_AuthorName.Text = dr.GetValue(4)
                    TextBox_B_VersionDate.Text = dr.GetValue(5)
                    TextBox_B_PublishingHouse.Text = dr.GetValue(6)
                    TextBox_B_Nots.Text = dr.GetValue(9)
                    ComboBox_B_Class.Text = dr.GetValue(8)
                End While
            Else
                MessageBox.Show("لا يوجد")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            dr.Close()

            con.Close()
        End Try

شكرا لك أخي KARIMSOFT

جربت التعديل لكن لم يعمل الكود المعدل ولم يعطي أي نتيجة

ممكن ترفق المشروع وقاعدة البيانات