تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ فى كود البحث ... رجاء المساعدة
#1
[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]


شكرا مقدما لكل من يتفضل بمساعدتى
الرد }}}}
تم الشكر بواسطة:
#2
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
الرد }}}}
تم الشكر بواسطة:
#3
الدريساوي كتب :
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]
الرد }}}}
تم الشكر بواسطة:
#4
أخي الكريم على ما هو معروف ان 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]



الرد }}}}
تم الشكر بواسطة:
#5
اخى الفاضل جربت الكود ومازالت المشكلة قائمة ... رجاء المساعدة بحل لقد ارهقتنى المشكلة فى البحث عن حل وامحاولة مع الكود؟؟
الرد }}}}
تم الشكر بواسطة:
#6
ياخي ارفق مثال ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#7
حاضر هارف مثال بذلك
الرد }}}}
تم الشكر بواسطة:
#8
تفضل المثال يا اخى
المثال
الرد }}}}
تم الشكر بواسطة:
#9
مصطفى ظيمة كتب :
[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]


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 0 16 منذ 6 ساعة مضت
آخر رد: gmailali
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 215 أمس, 08:33 PM
آخر رد: الماجيك مسعد
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 171 أمس, 01:30 PM
آخر رد: محمد بوقزاحة
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 120 11-01-17, 11:08 PM
آخر رد: 0theghost0
  [VB.NET] الرجاء المساعدة noway 2 87 10-01-17, 09:28 AM
آخر رد: thevirus
  [VB.NET] لدي فكرة مشروع لمن يريد المساعدة فاليتفضل 0theghost0 10 272 05-01-17, 05:15 PM
آخر رد: 0theghost0
  طباعة صورة PictureBox1 بعرض الصفحة .. أرجو المساعدة ahmed_elwerfalli 3 143 24-12-16, 05:59 PM
آخر رد: ahmed_elwerfalli
  [سؤال] كود البحث عن طريق اسم naden 2 173 15-12-16, 02:33 AM
آخر رد: naden
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 46 1,817 11-12-16, 12:57 AM
آخر رد: tryold
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 97 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم