• 0

كيف أظهر رسالة في حالة غياب قيم من قاعدة البيانات؟

لدي تطبيق على Vb.net و أريد تفقد البيانات الموجودة في قاعدة البيانات اعتمادا على قيمة مدخلة في حقل نصي، على أن تظهر رسالة في حالة عدم وجود بيانات، وهذا نتيجة محاولتي:

Dim reader As MySqlDataReader
    Try
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If

        Dim query As String
        query = "SELECT * FROM member WHERE (memor = '" & memor.Text & "')"

        sqlcom = New MySqlCommand(query, conn)
        reader = sqlcom.ExecuteReader
        While reader.Read()
            Me.lblname.Text = reader("membname").ToString
            Me.txtmembtype.Text = reader("membtype").ToString
            Me.lblmembdate.Text = reader("membdate").ToString
        End While

        conn.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        conn.Dispose()
    End Try

كيف أُظهر رسالة في حالة عدم وجود قيم ؟

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة
  • 0

للتأكد من وجود بيانات في المتغيّر reader عليك بالتحقق من ذلك عن طريق الدالة HasRows التي تعيد true في حالة تضمّنه لبيانات، أو قيمة false في خلاف ذلك، وهذا يتم عن طريق دالة التحقق  If و else  كما هو مبيّن في الكود التالي:

reader = sqlcom.ExecuteReader
if Reader.HasRows() Then
    While reader.Read()
        Me.lblname.Text = reader("membname").ToString
        Me.txtmembtype.Text = reader("membtype").ToString
        Me.lblmembdate.Text = reader("membdate").ToString
    End While
Else
    MessageBox.Show("No records found")
End If

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة

يجب أن تكون عضوًا لدينا لتتمكّن من التعليق

انشاء حساب جديد

يستغرق التسجيل بضع ثوان فقط


سجّل حسابًا جديدًا

تسجيل الدخول

تملك حسابا مسجّلا بالفعل؟


سجّل دخولك الآن