اضافة تعديل

Murtadha كتب:

السلام عليكم

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

الكود هو:

           Try
            conn.Open()
            Dim cmd As New OleDbCommand
            cmd.Connection = conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "select mobi from [book] where name like '%" & txt1.Text & "%'"
                           Dim dr As OleDbDataReader = cmd.ExecuteReader
                While (dr.Read)
                    Label1.Text += dr.Item("mobi").ToString + "<br/>" + "<br/>"
                End While
                dr.Close()

        Catch ex As Exception
            Label1.Text = "حدث خطأ"
        Finally
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try

____________________________________

up

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

بصراحة انا تعاملي مع ADO.NET بسيط بس ان شاء الله هذا هو التعديل المناسب

If dr.HasRows Then
	While dr.Read()
		Label1.Text += dr.Item("mobi").ToString + "<br/>" & "<br/>"
	End While
Else
	Label1.Text = "Error !!!"
End If
dr.Close()

good luck