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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 2 55 منذ 3 ساعة مضت
آخر رد: توفي العراقي
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 3 74 منذ 5 ساعة مضت
آخر رد: tryold
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 41 أمس, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 34 أمس, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 189 أمس, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 96 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 83 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 118 23-11-16, 05:21 PM
آخر رد: hglogtd
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 79 23-11-16, 11:05 AM
آخر رد: thevirus
  مساعدة في عرض البيانات في التقرير haiderkh 1 70 21-11-16, 11:24 PM
آخر رد: السرور

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


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