+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=201)
+--- الموضوع : [سؤال] كيف أقدر أحمل بيانات في جدول بشرط معين (/showthread.php?tid=49182)
كيف أقدر أحمل بيانات في جدول بشرط معين - محمد العامر - 13-06-24
السلام عليكم
عندي جدول أحتاج أطلع فيه جميع البيانات بناء على شرط معين هذا الكود اللي أستخدمة
بس ما عرفت كيف أوظف الشرط
كود :
'تحميل البيانات في قريد كونترول ديف اكسبرس
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 SubRE: كيف أقدر أحمل بيانات في جدول بشرط معين - محمد العامر - 14-06-24
وجدة الحل يا أخوان
مرفق لكم الكود
كود :
'تحميل البيانات في قريد كونترول ديف اكسبرس
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