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


من فضلكم عاوز الكود لعمل فلتر مشروط ففي الفورم  عملت Button 


عاوز لما اضغط علي هذا ال button   يعمل فلتر


لعدد الذكور المصريين اللي اعمارهم  اكبر من اويساوي 25  سنة


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


مع الشكر


الملفات المرفقة
.rar   Nationality.rar (الحجم : 82.7 ك ب / التحميلات : 39)
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Imports System.Data.OleDb
Public Class saudform
    Dim con 
As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Nationality.accdb")
 
   Dim da As OleDbDataAdapter ' جدول مصدر المعلومات 
    Dim dt As DataTable        ' 
مكان التخزين
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        da 
= New OleDbDataAdapter("select * from Nationality where [Gender]='Male' and [Age]>=25"con)
 
       dt = New DataTable
        da
.Fill(dt)
 
       DataGridView1.DataSource dt
    End Sub
End 
Class 

اضفت فورم saudform جديد انظر للحدثين Load  و حدث النقر لزر الامر


الملفات المرفقة
.zip   Nationality.zip (الحجم : 66.86 ك ب / التحميلات : 43)
الرد }}}
تم الشكر بواسطة:
#3
(12-07-17, 02:40 PM)سعود كتب :
PHP كود :
Imports System.Data.OleDb
Public Class saudform
    Dim con 
As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Nationality.accdb")
 
   Dim da As OleDbDataAdapter ' جدول مصدر المعلومات 
    Dim dt As DataTable        ' 
مكان التخزين
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        da 
= New OleDbDataAdapter("select * from Nationality where [Gender]='Male' and [Age]>=25"con)
 
       dt = New DataTable
        da
.Fill(dt)
 
       DataGridView1.DataSource dt
    End Sub
End 
Class 

اضفت فورم saudform جديد انظر للحدثين Load  و حدث النقر لزر الامر

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

مع جزيل الشكر
الرد }}}
تم الشكر بواسطة:



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


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