منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف أقدر أحمل بيانات في جدول بشرط معين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عندي جدول أحتاج أطلع فيه جميع البيانات بناء على شرط معين هذا الكود اللي أستخدمة
بس ما عرفت كيف أوظف الشرط

كود :
   'تحميل البيانات في قريد كونترول ديف اكسبرس
   Public Sub LoadAllAS(ByVal TBName As String, ByVal Devdgv As DevExpress.XtraGrid.Views.Grid.GridView)

       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("SELECT ID, Name, Nationality, Addres, Gender, Email, PhoneNumber, Degree, Major, LPLevel, Department, Position, PositionApplyFor, YearsOfExperience, EnglishLevel, AreYouonDuty, DateofJoining, YourLastSalary, ExpectationSalary, CVLink,
                 source, Provideby, DateOfLoad, Addby, Editby, Completionstatus
FROM     tbl_infostaff
WHERE  (Completionstatus = @Param2)", con)
       da.Fill(dt)

       Devdgv.GridControl.DataSource = dt
   End Sub
وجدة الحل يا أخوان
مرفق لكم الكود

كود :
   'تحميل البيانات في قريد كونترول ديف اكسبرس
   Public Sub LoadAllAS(ByVal TBName As String, ByVal Devdgv As DevExpress.XtraGrid.Views.Grid.GridView)

       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("SELECT ID, Name, Nationality, Addres, Gender, Email, PhoneNumber, Degree, Major, LPLevel, Department, Position, PositionApplyFor, YearsOfExperience, EnglishLevel, AreYouonDuty, DateofJoining, YourLastSalary, ExpectationSalary, CVLink,
                         source, Provideby, DateOfLoad, Addby, Editby, Completionstatus
       FROM     tbl_infostaff
       WHERE  (Completionstatus like N'" & TextBox14.Text & "%" & "')", con)
       da.Fill(dt)

       Devdgv.GridControl.DataSource = dt
   End Sub