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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث باستخدام Rich Box (/showthread.php?tid=20492)



البحث باستخدام Rich Box - khaled12345 - 22-05-17

السلام عليكم ورحمة الله وبركاته الاخوة الاحباب 



الرجاء المساعدة في هذا الكود لعمل بحث باستخدام ال Rich Box 

للبحث عن اكثر من اسم في عمود Name

للبحث عن اكثر من قيمة في عمود Salry

برجاء فحص المرفقات

مع فائق الشكر والاحتلرام


RE: البحث باستخدام Rich Box - alma2 - 22-05-17

كود :
Imports System.Data.OleDb

Public Class Form1

    ' جملة الربط
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

    Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

    Dim dt As New DataTable        ' مكان التخزين

    Sub Load_Data()
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1", con)
        da.Fill(dt)
    End Sub
    Sub save_Data()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub

    ' جملة تحميل الجدول الي الداتا جريد فيو

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Data()
        DataGridView1.DataSource = dt

    End Sub

  

    ' كود الحذف
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        dt.Rows(BindingContext(dt).Position).Delete()
      
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        save_Data()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Try
            Dim names As New List(Of String)
            For Each i In RichTextBox1.Lines
                names.Add("'" & i & "'")
            Next
            Dim sql As String = "Select * From [Table1] WHERE [Name] IN (" & String.Join(",", names) & ") "
            dt.Clear()
            da = New OleDbDataAdapter(sql, con)
            da.Fill(dt)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged
        Try
            Dim salary As New List(Of String)
            For Each i In RichTextBox2.Lines
                salary.Add(i)
            Next
            Dim sql As String = "Select * From [Table1] WHERE [salary] IN (" & String.Join(",", salary) & ") "
            dt.Clear()
            da = New OleDbDataAdapter(sql, con)
            da.Fill(dt)
        Catch ex As Exception
        End Try
    End Sub
End Class



RE: البحث باستخدام Rich Box - khaled12345 - 22-05-17

بارك الله في حضرتك ومساعداتك الكريمة

البرنامج يعمل الان ولكن فيه مشكلتين صغيرين

1- عند مسح الاسم الموجود يبقي حرف واحد ثم يغلق البرنامج
2- لايقبل كتابة اسم اخر الا الاسم الاول فقط  ولا ينتقل الي السطر الثاني بعد الضغط علي  Inter
 حتي اتمكن من كتابة سطر اخر


RE: البحث باستخدام Rich Box - alma2 - 22-05-17

1- اعد نسخ الكود لأنني غيره قبل قليل
2- وضع خاصية AcceptButton للفورم تسبب في عدم قبول مفتاح Enter


RE: البحث باستخدام Rich Box - khaled12345 - 22-05-17

(22-05-17, 12:26 PM)alma2 كتب : 1- اعد نسخ الكود لأنني غيره قبل قليل
2- وضع خاصية AcceptButton للفورم تسبب في عدم قبول مفتاح Enter

المرفق لحضرتك


RE: البحث باستخدام Rich Box - khaled12345 - 22-05-17

(22-05-17, 12:55 PM)alma2 كتب : لم تنفذ ما ذكرته لك في مشاركتي الأخيرة

اسف يمكن ما فهمت حضرتك كويس

معلشي مش واضح لي  Huh


RE: البحث باستخدام Rich Box - alma2 - 22-05-17

لم تنفذ ما ذكرته لك في مشاركتي الأخيرة

.rar   Search by Rich Box.rar (الحجم : 31.56 ك ب / التحميلات : 29)


RE: البحث باستخدام Rich Box - khaled12345 - 22-05-17

(22-05-17, 01:00 PM)alma2 كتب : لم تنفذ ما ذكرته لك في مشاركتي الأخيرة

استاذي الفاضل كله تمام الحين

والله انت رجل رائع


ربنا يعزك يارب


RE: البحث باستخدام Rich Box - alma2 - 22-05-17

انظر هذه الطريقة قد تناسبك

.rar   Search by Rich Box.rar (الحجم : 31.64 ك ب / التحميلات : 35)


RE: البحث باستخدام Rich Box - khaled12345 - 22-05-17

(22-05-17, 01:39 PM)alma2 كتب : انظر هذه الطريقة قد تناسبك

ما شاء الله عليك يا استاذنا