+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [نقاش] مشكلة في تحديد البحث (/showthread.php?tid=24808)
مشكلة في تحديد البحث - سمير الجبالي - 05-05-18
السلام عليكم ورحمة الله وبركاته
أتقدم لأسرة منتدى الفيجوال بيسك لكل العرب بأسمى التحيات والتقدير لهذا المجهود الرائع في تسهيل إيصال المعلومة لمن يطلبها وكما أشكر الأعضاء المشاركين لمساعدة
غيرهم بحل المشكلات التي تواجه مشاريعهم
إخواني وأساتذتي المحترمين أرسل لكم هذا الملف على فيجوال بيسك 2012 وبه تحديد خانات بحث لطباعة ملف
المشكلة حين أقوم بملئ أكثر من خانة في النموذج للبحث لا يستجيب البرنامج
عند إدخال رقم قرار يتم الأمر بشكل نظامي ولكن في بعض الأحيان لا أملك رقم القرار فيجب البحث عن الملف وفق خانتين أو ثلاثة أو فليكن أربعة خانات ... وبعدها ستكون النتيجة
محصورة بالجدول المرفق بشكل محدد
أرجو من حضارتكم أن تساعدوني بكتابة الكود الذي من خلاله أستيطع حل هذه المشكلة بحيت أنه ما أن أضع البيانات في أي حقل محدد أي كان عدد الحقول التي ملأتها أصل لنتيجة البحث
وشكراً سلفاً
RE: مشكلة في تحديد البحث - عبدالله الدوسري - 05-05-18
وعليكم السلام ورحمة الله وبركاته
مرحباً بك أخي الكريم ,
تفضل :
[attachment=17892]
[attachment=17893]
[attachment=17894]
[attachment=17895]
[attachment=17896]
[attachment=17897]
[attachment=17898]
ملف المشروع :
[attachment=17899]
RE: مشكلة في تحديد البحث - سمير الجبالي - 05-05-18
كل الشكر لكَ أستاذي الغالي الأخ [b]عبدالله الدوسري أثابكم الله [/b]
RE: مشكلة في تحديد البحث - سمير الجبالي - 05-05-18
أستاذي الغالي عبدالله الدوسري :
عند تجربة الفورم أعطاني رسالة
وتبين هذه الأخطاء :
Error 1 'Select Case' must end with a matching 'End Select'.
Error 2 Expression expected.
Error 3 'FROM' is not declared. It may be inaccessible due to its protection level.
Error 4 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 5 'WHERE' is not declared. It may be inaccessible due to its protection level.
Error 6 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 7 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 8 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 9 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 10 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 11 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 12 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 13 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 14 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 15 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 16 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 17 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 18 Statements and labels are not valid between 'Select Case' and first 'Case'.
Error 19 'Adapter' is not declared. It may be inaccessible due to its protection level.
Error 20 Statements and labels are not valid between 'Select Case' and first 'Case'.
..............
أقدر مجهودكم واشكركم
RE: مشكلة في تحديد البحث - عبدالله الدوسري - 05-05-18
كل هذة الأخطاء لأن الفيجوال ستيديو لدي نسخة 2017
والتي لديك 100% اصدارة اقدم.
جملة الإستعلام موزعة على اكثر من سطر . وعندي في الفيجوال ستيديو يقبل ان ينقسم الكود إلى اكثر من سطر ببدون علامة _
بينما لديك لا يقبل . ويجب وضع علامة _ في آخر كل سطر مع إغلاق النصوص بعلامة "
لحل المشكلة ضع علامة " في بداية ونهاية كل سطر في جملة الإستعلام.
وفي كل نهاية سطر ضع علامة _
هذة من بديهيات البرمجة و يجب على الكل معرفتها.
ربما اضع موضوع مستقل يشرح هذة الأمور.
RE: مشكلة في تحديد البحث - سمير الجبالي - 05-05-18
(05-05-18, 10:32 PM)عبدالله الدوسري كتب : كل هذة الأخطاء لأن الفيجوال ستيديو لدي نسخة 2017
والتي لديك 100% اصدارة اقدم.
جملة الإستعلام موزعة على اكثر من سطر . وعندي في الفيجوال ستيديو يقبل ان ينقسم الكود إلى اكثر من سطر ببدون علامة _
بينما لديك لا يقبل . ويجب وضع علامة _ في آخر كل سطر مع إغلاق النصوص بعلامة "
لحل المشكلة ضع علامة " في بداية ونهاية كل سطر في جملة الإستعلام.
وفي كل نهاية سطر ضع علامة _
هذة من بديهيات البرمجة و يجب على الكل معرفتها.
ربما اضع موضوع مستقل يشرح هذة الأمور.
أشكرك أستاذ [b]عبدالله الدوسري [/b]
صراحة ما حاولت حل المشكلة قلت أنتم أدرى بها
أشـــــــــــــــــــــــــــــــكرك من كل قلبي
RE: مشكلة في تحديد البحث - عبدالله الدوسري - 06-05-18
ميزة جديدة في الفيجوال ستيديو 2015 + 2017
وهي أنك لا تحتاج إلى إضافة العلامات التي تدل على نهاية السطر
ميزة جميلة ولكن هذة أحد عيوبها , انك في الإصدارة التي لديك ظهرة مشاكل.
[attachment=17921]
استبدل الكود الذي لديك بالكود التالي :
كود :
Dim SqlQuary As String = "SELECT * FROM emp WHERE " & _
"( ( '" & name & "' <> '' AND [name] LIKE '%" & name & "%' ) OR ( '" & name & "' = '' ) ) " & _
"AND " & _
"(( '" & mofatesh & "' <> '' AND [mofatesh] = '" & mofatesh & "' ) OR ( '" & mofatesh & "' = '' ) ) " & _
"AND " & _
"(( '" & comno & "' <> '' AND [comno] = " & IIf(comno = "", -1, comno) & " ) OR ( '" & comno & "' = '' ) ) " & _
"AND " & _
"(( '" & tasherno & "' <> '' AND [tasherno] = " & IIf(tasherno = "", -1, tasherno) & " ) OR ( '" & tasherno & "' = '' ) ) " & _
"AND " & _
"(( '" & kararno & "' <> '' AND [kararno] = " & IIf(kararno = "", -1, kararno) & " ) OR ( '" & kararno & "' = '' ) ) " & _
"AND " & _
"( ( '" & hashno & "' <> '' AND [hashno] = '" & hashno & "' ) OR ( '" & hashno & "' = '' ) )"