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

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


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

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


المطلوب هو :


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


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


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



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


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

.rar   MainForm.rar (الحجم : 176.14 ك ب / التحميلات : 30)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 32)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعدة بعمل ريستور abdulla2 1 65 05-03-19, 01:18 AM
آخر رد: حريف برمجة
  رجاء المساعدة حول الكريستل ربورت محمد خيري 2 105 03-03-19, 10:29 PM
آخر رد: محمد خيري
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,176 13-02-19, 01:08 AM
آخر رد: مها القويفلي
  المساعدة في حل مشكلة الترقيم التسلسلي في الكريستال ريبورت ( حاجة غريبة حصلت معي ) جيولوجي مبتدئ 2 159 27-01-19, 12:09 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 118 16-01-19, 02:10 PM
آخر رد: medhat_fouad
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 293 16-01-19, 12:59 AM
آخر رد: EYADISMAIL
  مامشكلة جملة الإضافة sql أرجو المساعدة Elhatmi 2 196 11-12-18, 10:57 AM
آخر رد: Elhatmi
  أنا طالبة أصمم في منظومة التخرج وأرجوا منكم المساعدة فافي 4 460 26-11-18, 11:35 PM
آخر رد: elgokr
  المساعدة في خطأ اواجهة للمره الاولى. Rabeea Qbaha 12 418 19-11-18, 06:51 PM
آخر رد: elgokr
  [VB.NET] المساعدة في تعديل كود farfour 1 154 15-11-18, 06:18 PM
آخر رد: elgokr

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


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