السلام عليكم ورحمة الله وبركاته الاخوة الاحباب
الرجاء المساعدة في هذا الكود لعمل بحث باستخدام ال Rich Box
للبحث عن اكثر من اسم في عمود Name
للبحث عن اكثر من قيمة في عمود Salry
برجاء فحص المرفقات
مع فائق الشكر والاحتلرام
كود :
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
بارك الله في حضرتك ومساعداتك الكريمة
البرنامج يعمل الان ولكن فيه مشكلتين صغيرين
1- عند مسح الاسم الموجود يبقي حرف واحد ثم يغلق البرنامج
2- لايقبل كتابة اسم اخر الا الاسم الاول فقط ولا ينتقل الي السطر الثاني بعد الضغط علي Inter
حتي اتمكن من كتابة سطر اخر
1- اعد نسخ الكود لأنني غيره قبل قليل
2- وضع خاصية AcceptButton للفورم تسبب في عدم قبول مفتاح Enter
(22-05-17, 12:26 PM)alma2 كتب : [ -> ]1- اعد نسخ الكود لأنني غيره قبل قليل
2- وضع خاصية AcceptButton للفورم تسبب في عدم قبول مفتاح Enter
المرفق لحضرتك
(22-05-17, 12:55 PM)alma2 كتب : [ -> ]لم تنفذ ما ذكرته لك في مشاركتي الأخيرة
اسف يمكن ما فهمت حضرتك كويس
معلشي مش واضح لي
(22-05-17, 01:00 PM)alma2 كتب : [ -> ]لم تنفذ ما ذكرته لك في مشاركتي الأخيرة
استاذي الفاضل كله تمام الحين
والله انت رجل رائع
ربنا يعزك يارب
(22-05-17, 01:39 PM)alma2 كتب : [ -> ]انظر هذه الطريقة قد تناسبك
ما شاء الله عليك يا استاذنا