[محمد اسماعيل]

السلام عليكم

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

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

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.OK, MessageBoxIcon.Error)
        End Try 


[سعود]

ds.Clear()
لو وجد صفوف فلقد اجبرته على حذفها

[محمد اسماعيل]

(06-07-18, 08:22 PM)سعود كتب : ds.Clear()
لو وجد صفوف فلقد اجبرته على حذفها

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

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

وطبيعة الكود الي كنت بستخدمة سابقا علي ما اعتقد غير جيد مع البحث اونلاين

[سعود]

اخي الكريم  لو ترفع مثال بسيط من دون معلومات الاتصال لكي يتم التعديل وعليك التجربة.

[elgokr]

كل ما عليك استخدام هذا الكود بعد ما تم التعديل عليه

كود :

       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

تحياتى لك

وتمنياتى لك التوفيق

[محمد اسماعيل]

(06-07-18, 08:36 PM)سعود كتب : اخي الكريم  لو ترفع مثال بسيط من دون معلومات الاتصال لكي يتم التعديل وعليك التجربة.

طيب ارفع معاة قاعدة بيانات

[سعود]

إقتباس :طيب ارفع معاة قاعدة بيانات

اخي الكريم لا فرق بين الاتصال عن قرب او عن بعد 
انظر للامثلة اللتي تم عملها بقسم المشاريع .
اخيانا لحبي للنقاش ابدا وكاني لاول مرة اشاهد سؤالا معينا.
آخر مثال عملته ستجد به كل ماتريد فقط استثني جملة الاتصال

[محمد اسماعيل]

(06-07-18, 09:13 PM)سعود كتب :

إقتباس :طيب ارفع معاة قاعدة بيانات

اخي الكريم لا فرق بين الاتصال عن قرب او عن بعد 
انظر للامثلة اللتي تم عملها بقسم المشاريع .
اخيانا لحبي للنقاش ابدا وكاني لاول مرة اشاهد سؤالا معينا.
آخر مثال عملته ستجد به كل ماتريد فقط استثني جملة الاتصال

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

تم غلق الموضوع