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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث في قاعدة بيانات اكسس hatem555 6 98 أمس, 02:53 AM
آخر رد: hatem555
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 65 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  استيراد البيانات من الاكسيل salah mansour 1 52 18-05-17, 06:28 AM
آخر رد: khaled12345
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 107 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 241 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 282 11-05-17, 11:54 AM
آخر رد: khaled12345
  أريد توضيح حول OOP ndjakoub 1 53 10-05-17, 03:11 AM
آخر رد: silverlight
  عند استدعاء تقرير يطلب مني كلمة السر لقاعدة البيانات samawi 3 106 05-05-17, 10:24 PM
آخر رد: samawi
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 224 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم
  [VB.NET] أريد توضيح حول RDLC datasourc ndjakoub 5 103 02-05-17, 04:50 PM
آخر رد: ndjakoub

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


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