تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث بقاعدة البيانات سيكول سيرفر
#1
السلام عليكم

عندي قاعدة بيانات سيكول سيرفر مرفوعة اونلاين باستضافة اريد افضل طريقة للبحث

استخدمت الطريقة الاتية ولكن لاتعمل


PHP كود :
Try
 
           If IsNumeric(TextBox1.Text) = False Then
                Dim DataAdapter 
As New SqlDataAdapter("SELECT * FROM Table_TB WHERE NAME_TB  LIKE '%" Trim$(TextBox1.Text) & "%'"conns)
 
               conns.Open()
 
               ds.Clear()
 
               DataAdapter.Fill(ds"Table_TB")
 
               If Me.BindingContext(ds"Table_TB").Count 0 Then
                    MsgBox
("لم يتم العثور على شيء"48 MsgBoxStyle.MsgBoxRight"البحث")
 
                   TextBox1.Text ""
 
                   conns.Close()
 
                   Exit Sub
                Else
                    ds
.Clear()
 
                   ConnectSERVER()
 
                   conns.Close()
 
                   Exit Sub
                End 
If

 
           End If

 
       Catch ex As Exception
            MessageBox
.Show(ex.Message"Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
       End Try 
الرد }}
تم الشكر بواسطة:
#2
ds.Clear()
لو وجد صفوف فلقد اجبرته على حذفهاSmile
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة:
#3
(06-07-18, 08:22 PM)سعود كتب : ds.Clear()
لو وجد صفوف فلقد اجبرته على حذفهاSmile

اسف علي عدم التركيز انا في وضع النوم دلوقتي Sleepy

اهم شيء الكود لايعمل

وطبيعة الكود الي كنت بستخدمة سابقا علي ما اعتقد غير جيد مع البحث اونلاين
الرد }}
تم الشكر بواسطة:
#4
اخي الكريم  لو ترفع مثال بسيط من دون معلومات الاتصال لكي يتم التعديل وعليك التجربة.
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة:
#5
كل ما عليك استخدام هذا الكود بعد ما تم التعديل عليه
كود :
       Try
           If IsNumeric(TextBox1.Text) = False Then
               ds.Clear()
               Dim DataAdapter As New SqlDataAdapter("SELECT * FROM Table_TB WHERE NAME_TB  LIKE '%" & Trim$(TextBox1.Text) & "%'", conns)
               conns.Open()
               DataAdapter.Fill(ds)
               If ds.Rows.Count() = 0 Then
                   MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث")
                   TextBox1.Text = ""
                   conns.Close()
                   Exit Sub
               Else
                   ConnectSERVER()
                   conns.Close()
                   Exit Sub
               End If
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
#6
(06-07-18, 08:36 PM)سعود كتب : اخي الكريم  لو ترفع مثال بسيط من دون معلومات الاتصال لكي يتم التعديل وعليك التجربة.

طيب ارفع معاة قاعدة بيانات
الرد }}
تم الشكر بواسطة:
#7
إقتباس :طيب ارفع معاة قاعدة بيانات
اخي الكريم لا فرق بين الاتصال عن قرب او عن بعد 
انظر للامثلة اللتي تم عملها بقسم المشاريع .
اخيانا لحبي للنقاش ابدا وكاني لاول مرة اشاهد سؤالا معينا.
آخر مثال عملته ستجد به كل ماتريد فقط استثني جملة الاتصال
=====* التوقيع *======
=================
الرد }}
#8
(06-07-18, 09:13 PM)سعود كتب :
إقتباس :طيب ارفع معاة قاعدة بيانات
اخي الكريم لا فرق بين الاتصال عن قرب او عن بعد 
انظر للامثلة اللتي تم عملها بقسم المشاريع .
اخيانا لحبي للنقاش ابدا وكاني لاول مرة اشاهد سؤالا معينا.
آخر مثال عملته ستجد به كل ماتريد فقط استثني جملة الاتصال

وفقك الله لكل خير

تم غلق الموضوع
الرد }}
تم الشكر بواسطة: elgokr



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


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