+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [SQL] أحتاج ترجمة هذا الاستعلام مشكورين (/showthread.php?tid=2756)
أحتاج ترجمة هذا الاستعلام مشكورين - sniper-jawadino - 04-05-14
مرحبا إخواني
كيف أجعل ترجمة هذا الاستعلام
إما أن يجلب لي ما في التيكس
وإذا كان التيكس فارغ فيجلب لي الكل
تماما مثل عملية الفلترة
Rs.Open "select * from ACCUEILLE where (col1 = '" & Trim(text1) & "' or col1 is not null)", DB, adOpenStatic, adLockPessimistic
جزاكم الله خير جزاء
RE: أحتاج ترجمة هذا الاستعلام مشكورين - vbnet - 04-05-14
-
تعديل على السريع...........
كود :
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)RE: أحتاج ترجمة هذا الاستعلام مشكورين - عابر سبيل - 04-05-14
اختصار هذا الكود SQL يفي بالغرض
PHP كود :
Select * From ACCUEILLE where (col1 like '%" & Trim(Text1.Text) & "%')
RE: أحتاج ترجمة هذا الاستعلام مشكورين - sniper-jawadino - 05-05-14
أشكركم إخواني على مساندتكم ونيتكم في مساعدتي
أكوادكم شغالة
لكن في مثالي لا أظنها ستنجح
لقد رفعت المثال
http://www.gulfup.com/?rkVHPR
مستخدما
'%" & Trim(Combo4) & "%'
الكود شغال لكنه يفلتر كل البيانات حتى المشابهة
أما
'" & Trim(Combo4) & "'
فهو يستدعي البيانات بشكل مطابق
لكنه لا يستدعي كل البيانات عند وجود فراغ
والله لا أعرف ما أفعل
RE: أحتاج ترجمة هذا الاستعلام مشكورين - vbnet - 05-05-14
-
جرب هذا التعديل بعد الاستفادة من مواضيع المنتدى.....
(أتمنى يكون الكود أكثر تنظيماً ومرتب ليسهل على الأخوة الأعضاء مساعدتك مع تسمية الأدوات بأسماء مناسبة مثل 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 لها لحين تقوم أنت بمراجعته.
(وقد يكون هناك ما يحتاج مراجعة)
-
RE: أحتاج ترجمة هذا الاستعلام مشكورين - sniper-jawadino - 07-05-14
أخي vbnet
ماذا عسايا أن أقول
حركة ذكية من مبرمج ذكي إستطعت إستخذام مهاراتك في حل هذا المشكل الذي شغل بالي
جزاك الله كل خير على تعبك و متابعتك لموضوع
و أتمنى أن يجعل الله هذا الوقت الذي ضيعته في تحميل ومشاهدة المثال , في ميزان حسناتك
شكرا مرة أخرى