السلام عليكم و رحمة الله و بركاتة
الموضوع اننى عملت قاعدة بيانات عن شئون العاملين و عند البحث فى القاعدة هنالك امكانية البحث عن طريق الرقم الوظيفى و لايوجد بها اى مشاكل و لكنى اريد ان ابحث بالاسم بدون ان اكتب الاسم و ذلك عن طريق عمل كومبو بوس مربوطة بحقل الاسم فى جدول بيانات الموظفين استطيع ان استعلم بها
السلام عليكم
في البداية تحتاج لكود يجلب الاسماء كلها من الجدول ويضعها في combo1 بدون تكرار مثال
sqls = "select distinct name from table "
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then GoTo end1:
rs.MoveFirst
Do
Combo1.AddItem rs.Fields("name")
rs.MoveNext
Loop Until rs.EOF = True
end1:
وهذا تضعة form load مثلا
وبعدها في combo في حدث click
تضع الكود التالي
sqls = "select * from table where name='" & Combo1.Text & "' "
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
وهنا حسب الشرط الاسم الموجود في كومبو يجلب البيانات المطلوبة ويضعها مثلا في DataGrid
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…