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

الحمد لله اتحلت معظم المشاكل في هذا المشروع في المشاركة  http://vb4arb.com/vb/showthread.php?tid=20559


 ويبقي الاتي

1- البحث بال Site_Id

2-البحث بالتاريخ

كما في المرفقات فبرجاء المساعدة

مع الشكر الجزيل


الملفات المرفقة صورة/صور
   

.rar   khodor1985 - SIR-100.rar (الحجم : 121.47 ك ب / التحميلات : 42)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ،،

بالنسبة لرقم 1 هذا حله :


كود :
 dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Site_ID=" & ComboBox3.Text & " ", con)
        da.Fill(dt)
        DGVSearch.DataSource = dt

ورقم 2 هذا حله :


كود :
 Dim dtp1 As Date = Start1.Value
        Dim dtp2 As Date = Start1.Value.AddDays(1)

        dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Start BETWEEN @dFrom AND @dTo ", con)

        da.SelectCommand.Parameters.AddWithValue("@dFrom", dtp1)
        da.SelectCommand.Parameters.AddWithValue("@dTo", dtp2)

        da.Fill(dt)
        DGVSearch.DataSource = dt

        If dt.Rows.Count = 0 Then
            MsgBox("No match found")
            Load_Data()
        End If
الرد }}}
تم الشكر بواسطة:
#3
(30-05-17, 05:56 AM)حريف برمجة كتب : وعليكم السلام ،،

بالنسبة لرقم 1 هذا حله :


كود :
 dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Site_ID=" & ComboBox3.Text & " ", con)
        da.Fill(dt)
        DGVSearch.DataSource = dt

ورقم 2 هذا حله :


كود :
 Dim dtp1 As Date = Start1.Value
        Dim dtp2 As Date = Start1.Value.AddDays(1)

        dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Start BETWEEN @dFrom AND @dTo ", con)

        da.SelectCommand.Parameters.AddWithValue("@dFrom", dtp1)
        da.SelectCommand.Parameters.AddWithValue("@dTo", dtp2)

        da.Fill(dt)
        DGVSearch.DataSource = dt

        If dt.Rows.Count = 0 Then
            MsgBox("No match found")
            Load_Data()
        End If


السلام عليكم أخي الحبيب

الف مليون شكر للمساعدة والاهتمام

رقم 2 تمام وتعمل جيدا

رقم 1 للاسف اخي لسة لا تعمل

مع الشكر والاحترام
الرد }}}
تم الشكر بواسطة:
#4
اذا كان Site_ID نوعه نص وليس رقم فيكون التعديل على كود الاخ حريف برمجة
[code] da = New OleDbDataAdapter("Select * from SIR where Site_ID='" & ComboBox3.Text.Trim & "' ", con)[code]
الرد }}}
تم الشكر بواسطة:
#5
(30-05-17, 04:34 PM)alma2 كتب : اذا كان Site_ID نوعه نص وليس رقم فيكون التعديل على كود الاخ حريف برمجة
[code]        da = New OleDbDataAdapter("Select * from SIR where Site_ID='" & ComboBox3.Text.Trim & "' ", con)[code]

السلام عليكم الاخوة الاحياب

ال Site_ID   هو رقم وليس نص

وعلي اي حال غيرت ال ComboBox   الي RichBox  وهو يعمل الان علي الرغم كنت افضل ان يكون  

Combobox  Or Textbox

ولكن اخواني اريد عنما اختار تاريخ او بين تاريخين استطيع ان افلتر داخل هذه التواريخ
 
بالعناصر التي في البحث العادي داخل هذه التواريخ المختارة

ولكن اجد فلتر التاريخ او بين تاريخين كانه منفصل ويحترم فقط التاريخ او التواريخ التي فلترت عليها

ولا استطبع ان افلتر عن العناصر التي في البحث العادي داخل هذه التواريخ

برجاء فحص المرفقات


الملفات المرفقة
.rar   SIR_Mobily.rar (الحجم : 165.61 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة:
#6
جربته قبل ارسل الكود لك وشغال تمام التمام ،، انا فتحت جدول القاعدة ووجدته رقمي لذلك عملته على اساس رقم ،، ماهي الرسالة اللي ظهرت لك ؟؟؟
الرد }}}
تم الشكر بواسطة:
#7
(30-05-17, 08:52 PM)حريف برمجة كتب : جربته قبل ارسل الكود لك وشغال تمام التمام ،، انا فتحت جدول القاعدة ووجدته رقمي لذلك عملته على اساس رقم ،، ماهي الرسالة اللي ظهرت لك ؟؟؟

 السلام عليكم أخي

هذه الرسالة التي وجدتها


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#8
كود :
Dim dtp1 As Date = Start1.Value.Date
Dim dtp2 As Date = Start1.Value.Date.AddDays(1)
الرد }}}
تم الشكر بواسطة:
#9
(30-05-17, 10:22 PM)alma2 كتب :
كود :
Dim dtp1 As Date = Start1.Value.Date
Dim dtp2 As Date = Start1.Value.Date.AddDays(1)

السلام عليكم استاذي الحبيب

وضعت الكود ولكن ما زال يحترم فلتر واحد فقط اما التاريخ او ال Category  التي اختارها من البحث العادي

يعني لو اخترت بين تاريخين يجيب المعلومات تمام  ولكن اذا اخترت مثلا Area معينة  داخل هذه التواريخ

يعرض كل ما يخص ال Area دون اعتبار فلتر التواريخ

مع الشكر
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 2 5,102 24-12-23, 05:08 AM
آخر رد: laban
  [نقاش] أساتذتنا مشرفى المنتدى المساعدة و الدعم فى Telerik dr.programming 6 381 21-12-23, 12:29 AM
آخر رد: dr.programming
  تحزيم المشروع Lamyaa 1 319 17-11-23, 07:44 AM
آخر رد: أبو خالد الشكري
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2
  ظهور فايروس بعد نشر المشروع LET ME 1 267 12-08-23, 10:00 AM
آخر رد: mrfenix93

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


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