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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ فى كود البحث ... رجاء المساعدة (/showthread.php?tid=9107)

الصفحات: 1 2

خطأ فى كود البحث ... رجاء المساعدة - مصطفى ظيمة - 31-05-13

[COLOR="#0000FF"]بسم الله الرحمن الرحيم

******[/COLOR]



[COLOR="#800080"]لدى قاعدة بيانات Sql Server 2008

وعند محاولة اجراء بحث عام داخل القاعدة من خلال زر البحث بادراج قيمة البحث داخل TxetBox

لا يتم اجراء البحث

فما هو الخطأ فى الكود التالى[/COLOR]

كود :
[align=left]Dim DataAdapter As New SqlDataAdapter("SELECT * FROM Tab WHERE id= '%"(TextBox6.Text.Trim) "%'" or Name = '" TextBox6.Text.trim) "%'", con)

            con.Open()
            dataset2.Clear()
            DataAdapter.Fill(dataset2, "Tab")
            If Me.BindingContext(dataset2, "Tab").Count = 0 Then
                MsgBox("لم يتم العثور على شيء", 48 + 524288, "البحث")
                TextBox6.Text = ""
                con.Close()[/align]


شكرا مقدما لكل من يتفضل بمساعدتى


خطأ فى كود البحث ... رجاء المساعدة - الدريساوي - 01-06-13

PHP كود :
Dim DataAdapter As New SqlDataAdapter ("SELECT * FROM Tab WHERE id LIKE '" & Trim$(TextBox6.Text) & "' or Name LIKE '" & Trim$(TextBox6.Text) & "'", con)

            con.Open()

            DataSet2.Clear()

            DataAdapter.Fill(DataSet2, "Tab")

            If Me.BindingContext(DataSet2, "Tab").Count = 0 Then

                MsgBox("لم يتم العثور على شيء", 48 + 524288, "البحث")

                TextBox6.Text = ""

                con.Close( 


خطأ فى كود البحث ... رجاء المساعدة - مصطفى ظيمة - 01-06-13

الدريساوي كتب :
PHP كود :
Dim DataAdapter As New SqlDataAdapter ("SELECT * FROM Tab WHERE id LIKE '" & Trim$(TextBox6.Text) & "' or Name LIKE '" & Trim$(TextBox6.Text) & "'", con)

            con.Open()

            DataSet2.Clear()

            DataAdapter.Fill(DataSet2, "Tab")

            If Me.BindingContext(DataSet2, "Tab").Count = 0 Then

                MsgBox("لم يتم العثور على شيء", 48 + 524288, "البحث")

                TextBox6.Text = ""

                con.Close( 
[COLOR="#800080"]
اخى الفاضل الدريساوي
الكود الذى تفضلت بتعديله لا يعمل
حيث ما يحدث عند إجراء البحث
ظهور الرسالة الاخيرة فى نهاية الكود ( لم يتم العثور على شيء )[/COLOR]

خطأ فى كود البحث ... رجاء المساعدة - Easy4ever - 01-06-13

أخي الكريم على ما هو معروف ان id دائما حقل رقمي

ولا يجوز وضع هذي العلامه ' على الحقول الرقمية

جرب تعديل الكود إلى هذا


كود :
Dim DataAdapter As New SqlDataAdapter("SELECT * FROM Tab WHERE id= [color=#ff0000]%"(TextBox6.Text.Trim) "%[/color]" or Name = '" TextBox6.Text.trim) "%'", con)

con.Open()

dataset2.Clear()

DataAdapter.Fill(dataset2, "Tab")

If Me.BindingContext(dataset2, "Tab").Count = 0 Then

MsgBox("لم يتم العثور على شيء", 48 + 524288, "البحث")

TextBox6.Text = ""

con.Close()[COLOR=#ff0000]

[/COLOR]

خطأ فى كود البحث ... رجاء المساعدة - مصطفى ظيمة - 02-06-13

اخى الفاضل جربت الكود ومازالت المشكلة قائمة ... رجاء المساعدة بحل لقد ارهقتنى المشكلة فى البحث عن حل وامحاولة مع الكود؟؟

خطأ فى كود البحث ... رجاء المساعدة - حريف برمجة - 02-06-13

ياخي ارفق مثال ؟؟؟

خطأ فى كود البحث ... رجاء المساعدة - مصطفى ظيمة - 02-06-13

حاضر هارف مثال بذلك

خطأ فى كود البحث ... رجاء المساعدة - مصطفى ظيمة - 02-06-13

تفضل المثال يا اخى
المثال


خطأ فى كود البحث ... رجاء المساعدة - trustmeee - 02-06-13

مصطفى ظيمة كتب :
[COLOR="#0000FF"]بسم الله الرحمن الرحيم

******[/COLOR]



[COLOR="#800080"]لدى قاعدة بيانات Sql Server 2008

وعند محاولة اجراء بحث عام داخل القاعدة من خلال زر البحث بادراج قيمة البحث داخل TxetBox

لا يتم اجراء البحث

فما هو الخطأ فى الكود التالى[/COLOR]

كود :
[align=left]Dim DataAdapter As New SqlDataAdapter("SELECT * FROM Tab WHERE id= '%"(TextBox6.Text.Trim) "%'" or Name = '" TextBox6.Text.trim) "%'", con)

            con.Open()
            dataset2.Clear()
            DataAdapter.Fill(dataset2, "Tab")
            If Me.BindingContext(dataset2, "Tab").Count = 0 Then
                MsgBox("لم يتم العثور على شيء", 48 + 524288, "البحث")
                TextBox6.Text = ""
                con.Close()[/align]


شكرا مقدما لكل من يتفضل بمساعدتى
اخي ما الذي يحدث ؟
هل يحدث استثناء؟
ام تظهر رسالة لم يتم العثور على شيئ؟
لان المثال الموجود لا يوجد فيه اي اجراء في حالة ان البحث رجع بنتيجة

خطأ فى كود البحث ... رجاء المساعدة - مصطفى ظيمة - 02-06-13

تظهر رسالة لم يتم العثور على شيئ