تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[SQL] أحتاج ترجمة هذا الاستعلام مشكورين
#1
مرحبا إخواني

كيف أجعل ترجمة هذا الاستعلام
إما أن يجلب لي ما في التيكس
وإذا كان التيكس فارغ فيجلب لي الكل

تماما مثل عملية الفلترة


Rs.Open "select * from ACCUEILLE where (col1 = '" & Trim(text1) & "' or col1 is not null)", DB, adOpenStatic, adLockPessimistic



جزاكم الله خير جزاء
الرد }}}
تم الشكر بواسطة:
#2
-
تعديل على السريع...........
كود :
Dim sql As String
sql = " SELECT * FROM [ACCUEILLE] WHERE ([col1] IS NOT NULL) "
If Trim(text1.Text) <> "" Then
    sql = sql & " AND ([col1] = '" & Trim(text1.Text) & "') "
End If
Rs.Open(sql, DB, adOpenStatic, adLockPessimistic)
الرد }}}
تم الشكر بواسطة: عابر سبيل
#3
اختصار هذا الكود SQL يفي بالغرض

PHP كود :
Select From ACCUEILLE where (col1 like '%" & Trim(Text1.Text) & "%'
الرد }}}
تم الشكر بواسطة:
#4
أشكركم إخواني على مساندتكم ونيتكم في مساعدتي

أكوادكم شغالة
لكن في مثالي لا أظنها ستنجح
لقد رفعت المثال

http://www.gulfup.com/?rkVHPR


مستخدما
'%" & Trim(Combo4) & "%'
الكود شغال لكنه يفلتر كل البيانات حتى المشابهة

أما
'" & Trim(Combo4) & "'
فهو يستدعي البيانات بشكل مطابق
لكنه لا يستدعي كل البيانات عند وجود فراغ





والله لا أعرف ما أفعل
الرد }}}
تم الشكر بواسطة:
#5
-
جرب هذا التعديل بعد الاستفادة من مواضيع المنتدى.....
(أتمنى يكون الكود أكثر تنظيماً ومرتب ليسهل على الأخوة الأعضاء مساعدتك مع تسمية الأدوات بأسماء مناسبة مثل Combo4 يكون cmb_Situ وعدم تركها بأسماءها الإفتراضية)
كود :
'--------------------------------------------------------------------------------------------------------
Me.cmb_Sup.Text = Val(Me.cmb_Sup.Text)
Dim sql As String
    sql = " SELECT *   FROM [ACCUEILLE]              WHERE [Sup]  >=   " & Val(Me.cmb_Sup.Text) & "     "
    If Trim(Me.cmb_Situ.Text) <> "" Then sql = sql & " AND [Situ]  =  '" & Trim(Me.cmb_Situ.Text) & "'  "
    If Trim(Me.cmb_Vue.Text) <> "" Then sql = sql & "  AND [Vue]   =  '" & Trim(Me.cmb_Vue.Text) & "'   "
    If Trim(Me.cmb_N_IM.Text) <> "" Then sql = sql & " AND [N_IM]  =  '" & Trim(Me.cmb_N_IM.Text) & "'  "
    If Val(Me.cmb_N_AP.Text) <> 0 Then sql = sql & "   AND [N_AP]  =  '" & Val(Me.cmb_N_AP.Text) & "'   "
    If Trim(Me.cmb_N_ET.Text) <> "" Then sql = sql & " AND [N_ET]  =  '" & Trim(Me.cmb_N_ET.Text) & "'  "
Rs.Open sql
'--------------------------------------------------------------------------------------------------------

ملاحظة:
الأداة cmb_N_AP فيها بيانات رقمية على شكل نصي مثل 03
والعمود N_AP في قاعدة البيانات نصي ولكن تم تعبئة بشكل رقمي فقط مثل 3 بدون صفر
لهذا أضطررت إلى التعامل مع كرقم وذلك بوضع VAL لها لحين تقوم أنت بمراجعته.
(وقد يكون هناك ما يحتاج مراجعة)
-
الرد }}}
تم الشكر بواسطة: sniper-jawadino
#6
أخي vbnet

ماذا عسايا أن أقول
حركة ذكية من مبرمج ذكي إستطعت إستخذام مهاراتك في حل هذا المشكل الذي شغل بالي

جزاك الله كل خير على تعبك و متابعتك لموضوع
و أتمنى أن يجعل الله هذا الوقت الذي ضيعته في تحميل ومشاهدة المثال , في ميزان حسناتك


شكرا مرة أخرى
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم