ممكن مساعده..عبارة try..catch في الفيجوال.not عملت لي أزمه
 

السلام عليكم

انا اعمل على فيجوال بيسك دوت نت
و مشروعي مربوط بقاعدة بيانات
و أريد عمل زر بحث يكون متفادي لجميع اخطاء المستخدم المتوقعه

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

فهناك مجموعه من الاخطاء التي قد يقوم بها المستخدم وهي:
1- ان ينقر المستخدم زر البحث بدون كتابة رقم العميل !!
2- ان يكتب المستخدم رقم عميل غير موجود في قاعدة البيانات !!
3- ان يكتب المستخدم في خانة رقم العميل حرف او رمز
وهو معين في قاعدة البيانات على انه رقم!!


فكتبت هذا الكود لعلي اتفاده تلك الاخطاء

كود:
Dim selcomd As New OleDb.OleDbCommand
Dim drobj As OleDb.OleDbDataReader

If TextBox1.Text = "" Then

MsgBox("أدخل رقم العميل ليتم البحث عن بياناته", MsgBoxStyle.Information)

Else
Try
selcomd.Connection = OleDbConnection1
selcomd.CommandText = "select * from nb where (numb_clint= " & TextBox1.Text & ")"
OleDbConnection1.Open()
drobj = selcomd.ExecuteReader

If drobj.Read Then
TextBox1.Text = drobj.GetValue(0)
TextBox2.Text = drobj.GetValue(1)
TextBox3.Text = drobj.GetValue(2)
Else
MessageBox.Show("رقم العميل المطلوب غير موجود..من فضلك ادخل رقم اخر")

End If

OleDbConnection1.Close()
drobj.Close()
Catch
MsgBox("من فضلك ادخل رقم العميل بشكل صحيح بدون استخدام الحروف او الرموز..")

End Try
End If
لكن المشكله في هذا الكود
اذا عملنا بحث لرقم العميل 1 يظهر البيانات بشكل صحيح
و اذا قمنا بادخال نص في رقم العميل يظهر الرساله
"من فضلك ادخل رقم العميل بشكل صحيح بدون استخدام الحروف او الرموز"

وبعد هذا الخطاء و الرساله الظاهره للمستخدم
اذا عملنا بحث مره اخرى لرقم العميل 1 لا تظهر البيانات
و انما تظهر نفس الرساله السابقه !! لماذا ؟؟
على الرغم ان البحث من قبل كان صحيحا

هل ذلك بسبب جملة try...catch

^
^
لدي مشروع بسيط لذلك الكود
اتمنى لو كنت اعرف كيف ارفقه ليوضح قصدي
^
^