+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] استثناء داتا معينةعند امر البحث (/showthread.php?tid=23859)
استثناء داتا معينةعند امر البحث - amro_demon - 15-02-18
الاخوة الكرام
ارجو الافادة بكود يستثني معلومات معينة من احد الحقول في الجدول عند امر البحث
مثال اذا كان الجدول مكون من حقل للاسم وحقل للعنوان
فهل يمكن استثناء اسماء معينة من عملية البحث واظهار باقي الاسماء
ولكم كل الشكر
RE: استثناء داتا معينةعند امر البحث - Ahmed_Mansoor - 16-02-18
السلام عليكم ورحمة الله وبركاته
أهلا بك أخي الكريم , نعم يمكنك ذلك فمثلا إذا كان عدد الحقول في الجدول 7 حقول مثلا : Name,Age,Job,Salary يمكنك تحدد عدد الحقول التي تريد ظهورها وذلك من خلال جملة الإستعلام نفسها مثلا تريد فقط إظهار حقلين في نتيجة البحث حيث البحث يكون بحقل الإسم فتكون جملة الإستعلام هكذا :
PHP كود :
Select Name,Job From Table Where Name='Ahmed'
RE: استثناء داتا معينةعند امر البحث - amro_demon - 16-02-18
(16-02-18, 12:22 AM)Ahmed_Mansoor كتب : السلام عليكم ورحمة الله وبركاته
أهلا بك أخي الكريم , نعم يمكنك ذلك فمثلا إذا كان عدد الحقول في الجدول 7 حقول مثلا : Name,Age,Job,Salary يمكنك تحدد عدد الحقول التي تريد ظهورها وذلك من خلال جملة الإستعلام نفسها مثلا تريد فقط إظهار حقلين في نتيجة البحث حيث البحث يكون بحقل الإسم فتكون جملة الإستعلام هكذا :
PHP كود :
Select Name,Job From Table Where Name='Ahmed'
اخ احمد السلام عليكم ورحمة الله وبركاته
لقد قمت بارفاق مثال يبين جدول اسماء ورواتب الموظفين ومن ثم طباعتها
الان المطلوب طباعة الجدول للموظفين باستثناء ahmed و samer
RE: استثناء داتا معينةعند امر البحث - Ahmed_Mansoor - 18-02-18
أهلا بك أخي الكريم , تعديل جملة الإستعلام زر الطباعة كالتالي :
PHP كود :
Private Sub Command1_Click()
Dim zSQL As String
zSQL = "Select * From data Where name<>'ahmed' and name<>'samer'"
If rw.State = adStateOpen Then rw.Close
rw.Open zSQL, db, adOpenStatic, adLockPessimistic
With DataReport1
Set .DataSource = rw
.Refresh
.Show
End With
End Sub
RE: استثناء داتا معينةعند امر البحث - amro_demon - 18-02-18
كل الشكر لك اخي احمد على ردودك وصبرك
وارجو الله ان يجعل مساعدتك لاخوانك في هذا المنتدى القيم
في ميزان حسناتك