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

السلام عليكم

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

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

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()
لو وجد صفوف فلقد اجبرته على حذفها Smile

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

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

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

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

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

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

كود :

       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)سعود كتب : [ -> ]
إقتباس :طيب ارفع معاة قاعدة بيانات
اخي الكريم لا فرق بين الاتصال عن قرب او عن بعد
انظر للامثلة اللتي تم عملها بقسم المشاريع .
اخيانا لحبي للنقاش ابدا وكاني لاول مرة اشاهد سؤالا معينا.
آخر مثال عملته ستجد به كل ماتريد فقط استثني جملة الاتصال

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

سعود

محمد اسماعيل

سعود

elgokr

محمد اسماعيل

سعود

محمد اسماعيل