[khaled12345]

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

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


 ويبقي الاتي

1- البحث بال Site_Id

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

[khaled12345]

(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 للاسف اخي لسة لا تعمل

مع الشكر والاحترام

[alma2]

اذا كان Site_ID نوعه نص وليس رقم فيكون التعديل على كود الاخ حريف برمجة
[code] da = New OleDbDataAdapter("Select * from SIR where Site_ID='" & ComboBox3.Text.Trim & "' ", con)[code]

[khaled12345]

(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

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

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

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

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

[حريف برمجة]

جربته قبل ارسل الكود لك وشغال تمام التمام ،، انا فتحت جدول القاعدة ووجدته رقمي لذلك عملته على اساس رقم ،، ماهي الرسالة اللي ظهرت لك ؟؟؟

[khaled12345]

(30-05-17, 08:52 PM)حريف برمجة كتب : جربته قبل ارسل الكود لك وشغال تمام التمام ،، انا فتحت جدول القاعدة ووجدته رقمي لذلك عملته على اساس رقم ،، ماهي الرسالة اللي ظهرت لك ؟؟؟

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

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

[alma2]

كود :

Dim dtp1 As Date = Start1.Value.Date
Dim dtp2 As Date = Start1.Value.Date.AddDays(1)

[khaled12345]

(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 دون اعتبار فلتر التواريخ

مع الشكر