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

برجاء المساعدة في عمل كود للبحث و كود للفلتر للمشروع المرفق


المشروع عبارة عن مجموعة من الفورم وكل فورم لها الداتا بيس الخاص بها

قمنا بتجميع كل الشاشات في شاشة واحدة  وهي ال  MainForm


المطلوب هو :


 1-عمل بحث من عمود ال  Address


2-عمل فلتر في ال  button  الموجودة في يمين الشاشة


بحيث عند الضغط علي مفتاخ   Cairo      تظهر جميع العناوين باسم  الخاصة بها



مع جزيل الشكر والاحترام


الملفات المرفقة صورة/صور
   

.rar   MainForm.rar (الحجم : 176.14 ك ب / التحميلات : 19)
الرد
تم الشكر بواسطة:
#2
PHP كود :
Imports System.Data.OleDb

Public Class MainForm
    Dim con 
As OleDbConnection
    Dim da 
As OleDbDataAdapter
    Dim table 
As DataTable

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgs)
 
       '   Data1.Show()
        DataGridView1.DataSource = final_table()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Data2.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Data3.Show()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Data4.Show()
    End Sub
    Private Function final_table() As DataTable
        table = New DataTable

        Dim t1 As New DataTable
        '
====================================================================================================
 
       'قاعدة البيانات الاولى

        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")
        da = New OleDbDataAdapter("Select * from data1", con)
        da.Fill(t1)
        table.Merge(t1) ' 
أضافة البيانات إلى الجدول النهائي

        t1
.Clear()
 
       '=====================================================================================================
        '
قاعدة البيانات الاولى

        con 
= New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data2.accdb")
 
       da = New OleDbDataAdapter("Select * from data2"con)
 
       da.Fill(t1)
 
       table.Merge(t1' أضافة البيانات إلى الجدول النهائي

        t1.Clear()
        '
=====================================================================================================
 
       'قاعدة البيانات الاولى

        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data3.accdb")
        da = New OleDbDataAdapter("Select * from data3", con)
        da.Fill(t1)
        table.Merge(t1) ' 
أضافة البيانات إلى الجدول النهائي

        t1
.Clear()
 
       '=====================================================================================================
        '
قاعدة البيانات الاولى

        con 
= New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data4.accdb")
 
       da = New OleDbDataAdapter("Select * from data4"con)
 
       da.Fill(t1)
 
       table.Merge(t1)
 
       t1.Dispose()
 
       '=====================================================================================================

        Return table
    End Function
 
   

    Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = final_table()
    End Sub

    Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click, Button6.Click, Button7.Click, Button8.Click
        Dim rows = table.Rows.Cast(Of DataRow).Where(Function(x) x.Item("Address").Equals(sender.Text))
        If rows.Count = 0 Then
            Me.DataGridView1.DataSource = Nothing
        Else
            Me.DataGridView1.DataSource = rows.CopyToDataTable
        End If
    End Sub

End Class 
الرد
تم الشكر بواسطة: sendbad100 , sendbad100 , Amir_alzubidy
#3
بارك الله فيك اخي الحبيب

الان ال buttons تعمل تمام

بعد اذنك عاوز كود البحث من خلال ال text Box

مع جزيل الشكر
الرد
تم الشكر بواسطة: Amir_alzubidy
#4
السلام عليكم الاخوة الاعزاء

في انتظار رد حضراتكم بخصوص ال كود البحث من خلال ال text Box

مع جزيل الشكر
الرد
تم الشكر بواسطة:
#5
PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.TextChanged
    If TextBox1
.Text.Trim "" Then
        Me
.DataGridView1.DataSource table
    Else
        Dim rows 
table.Rows.Cast(Of DataRow).Where(Function(xx.Item("Address").ToLower.Equals(sender.Text.Trim.ToLower))
 
       If rows.Count 0 Then
            Me
.DataGridView1.DataSource Nothing
        Else
            Me
.DataGridView1.DataSource rows.CopyToDataTable
        End 
If
 
   End If
End Sub 
الرد
تم الشكر بواسطة: Amir_alzubidy
#6
(13-10-17, 07:09 AM)a.ahmed كتب :
PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.TextChanged
    If TextBox1
.Text.Trim "" Then
        Me
.DataGridView1.DataSource table
    Else
        Dim rows 
table.Rows.Cast(Of DataRow).Where(Function(xx.Item("Address").ToLower.Equals(sender.Text.Trim.ToLower))
 
       If rows.Count 0 Then
            Me
.DataGridView1.DataSource Nothing
        Else
            Me
.DataGridView1.DataSource rows.CopyToDataTable
        End 
If
 
   End If
End Sub 

مشكوووور جدا جدا Smile

 وتسلم ايديك يا هندسة
الرد
تم الشكر بواسطة: Amir_alzubidy
#7
(13-10-17, 07:17 PM)khaled12345 كتب :
(13-10-17, 07:09 AM)a.ahmed كتب :
PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.TextChanged
    If TextBox1
.Text.Trim "" Then
        Me
.DataGridView1.DataSource table
    Else
        Dim rows 
table.Rows.Cast(Of DataRow).Where(Function(xx.Item("Address").ToLower.Equals(sender.Text.Trim.ToLower))
 
       If rows.Count 0 Then
            Me
.DataGridView1.DataSource Nothing
        Else
            Me
.DataGridView1.DataSource rows.CopyToDataTable
        End 
If
 
   End If
End Sub 

مشكوووور جدا جدا Smile

 وتسلم ايديك يا هندسة



السلام عليكم الاخوة الاعزاء
الاخ العزيز أحمد والاخوة الاعزاء
حضرتك الكود يعمل تمام والحمد لله
 ولكن ال Trim  لا يعمل  في ال   text box  كما بالمرفق
فبرجاء المساعدة


الملفات المرفقة
.rar   MainForm.rar (الحجم : 179.18 ك ب / التحميلات : 21)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] ارجو المساعدة في تعديل الكود saad mahyoub 0 0 31-01-18, 10:54 PM
آخر رد: saad mahyoub
  ارجو المساعدة وفقكم الله samawi 3 63 20-01-18, 03:59 PM
آخر رد: sendbad100
  المساعدة في كود الفلتر khaled12345 7 97 09-01-18, 12:49 AM
آخر رد: khaled12345
  المساعدة في كود البحث المتعدد khaled12345 3 119 07-01-18, 12:35 AM
آخر رد: khaled12345
  ارجو المساعدة في طباعة الفاتورة VB.NET 1 66 06-01-18, 04:42 AM
آخر رد: محمود صالح
  لو ممكن المساعدة في كود يسمح بعرض ملفات قاعدة البيانات في تكس بوكس لو لست بوكس silensieux2013 0 50 22-12-17, 04:42 PM
آخر رد: silensieux2013
  [سؤال] ارجو المساعدة في ارسال التقرير الي الايميل bdf mamba732 1 575 21-12-17, 12:20 AM
آخر رد: محمود صالح
  [VB.NET] المساعدة في تصحيح الكود MySqlConnection dubai.eig 6 149 12-12-17, 12:38 PM
آخر رد: dubai.eig
  الرجاء المساعدة حول ظهور الصور أحمد فتح الرحمن 2 81 11-12-17, 02:11 AM
آخر رد: أحمد فتح الرحمن
  [VB.NET] المساعدة في اضافة وحفظ بيانات الداتا جريد محمد اسماعيل 1 83 10-12-17, 10:16 PM
آخر رد: حريف برمجة

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


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