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

عاوز اعمل بحث فى قاعدة البيانات بأستخدام ال like 

بحيث يبحث عن السجل المطلوب مع البقاء على الداتا ست الموجوده لمعرفة موقع السجل 


توضيح أكثر 

عندي جدول به 

1- أحمد 
2- ماجد
3 هانى
........
.....
....
100

عندما أقف على احمد      ( 1 من أجمالى 100)  عند عمل البحث بجملة الاس كيو ال يقفل الداتا ست على السجل الذي يحتوي على نتيجه البحث ويكون (1 من أجمال 1) ولا استطيع التنقل بين السجلات  

فكيف ابحث وانتقل للموقع مع تشغيل ازرار التنقل 

عند الاضافة أريده يقف على أخر سجل تم أضافته 
وكذلك التعديل وشكراً
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام اخي

يمكنك ان تفعل ذلك في خطوتين:
الخطوة الاولى : 
اضف هذا الكود مع تعديل اسم حقل البحث واسم الجدول واسم الحقل الذي تريد ان تبحث فيه .

الخطوة الثانية :
اضف هذه الدالة الخاصة في الفورم الخاص بك مع تعديل اسم الداتا قريد فيو وتعديل اسم Label الذي يعرض بيانات السجلات .

اتمنى ان يكون كلامي واضح ...

الكود الاول:
كود :
Private Sub TXT_Search_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXT_Search.TextChanged
       Try
           da = New SqlDataAdapter("SELECT * FROM " & TB_Name & " WHERE " & TB_Col_Name & " LIKE '%" & TXT_Search.Text & "%'", sqlconn)
           dt.Clear()
           da.Fill(dt)
           Me.DataGridView.DataSource = dt
           rowSelection()
           sqlconn.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

حيث ان :
Dim da As New SqlDataAdapter

    Dim dt As New DataTable

الكود الثاني:

كود :
Private Sub rowSelection()
       Try
           If Me.DataGridView.RowCount = 0 Then lbl_num_rec.Text = "لا يوجد سجلات" : Exit Sub
           With Me.DataGridView
               .ClearSelection()
               .Rows(x).Selected = True
               .FirstDisplayedScrollingRowIndex = x

               TXT_Name.Text = .Rows(x).Cells(1).Value.ToString
               TXT_Address.Text = .Rows(x).Cells(2).Value.ToString
             
               lbl_num_rec.Text = x + 1 & " من " & dt.Rows.Count
           End With
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

حيث ان :
 Dim x As Integer = 0

اتمنى ان اكون وفقت في مساعدتك اخي


تقبل تحياتي.........
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 96 6,253 25-02-17, 04:03 AM
آخر رد: khodor1985
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 82 21-02-17, 09:03 PM
آخر رد: noway
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 116 20-02-17, 04:27 AM
آخر رد: khodor1985
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 80 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 63 12-02-17, 08:06 PM
آخر رد: مساعدة
  [سؤال] أريد معرفة اخر صف في الجدول حنان المغربى 2 101 11-02-17, 12:02 AM
آخر رد: حنان المغربى
  [VB.NET] قاعدة بيانات SQL 2008R2 محمد بوقزاحة 5 105 09-02-17, 03:31 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 65 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 115 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
  قاعدة بيانات صيدلية amrdipo 7 4,571 07-02-17, 05:49 PM
آخر رد: Amir_alzubidy

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


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