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

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


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

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


المطلوب هو :


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


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


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



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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم ارجو المساعدة يااعضاء ومشرفي المنتدي الكرام بشكل عاجل MOHAMED.2030 0 67 27-09-17, 05:46 PM
آخر رد: MOHAMED.2030
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 2 97 26-09-17, 11:31 AM
آخر رد: محمد بوقزاحة
  يرجى المساعدة طلب كود hikmat 1 80 23-09-17, 07:35 PM
آخر رد: khodor1985
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 140 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 111 19-09-17, 01:49 PM
آخر رد: أبو نوره
  [VB.NET] الرجاء المساعدة cheurfa 1 93 13-09-17, 05:41 PM
آخر رد: Rabeea Qbaha
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 55 08-09-17, 04:02 PM
آخر رد: Amjad
  [VB.NET] المساعدة في بعض الاشياء البسيط في مشروعي هذا 0theghost0 4 180 06-09-17, 09:34 AM
آخر رد: 0theghost0
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 171 06-09-17, 08:32 AM
آخر رد: gharib
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 288 24-08-17, 06:23 AM
آخر رد: احمد الامين

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


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