تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  البحث بالهوية annagui 2 315 25-01-24, 01:00 PM
آخر رد: annagui
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [كود] البحث Abdellatif 2 208 27-12-23, 03:15 PM
آخر رد: Abdellatif

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


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