السلام عليكم الاخوة الاحباب
الحمد لله اتحلت معظم المشاكل في هذا المشروع في المشاركة
http://vb4arb.com/vb/showthread.php?tid=20559
ويبقي الاتي
1- البحث بال Site_Id
2-البحث بالتاريخ
كما في المرفقات فبرجاء المساعدة
مع الشكر الجزيل
(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 للاسف اخي لسة لا تعمل
مع الشكر والاحترام
اذا كان Site_ID نوعه نص وليس رقم فيكون التعديل على كود الاخ حريف برمجة
[code] da = New OleDbDataAdapter("Select * from SIR where Site_ID='" & ComboBox3.Text.Trim & "' ", con)[code]
(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
ولكن اخواني اريد عنما اختار تاريخ او بين تاريخين استطيع ان افلتر داخل هذه التواريخ
بالعناصر التي في البحث العادي داخل هذه التواريخ المختارة
ولكن اجد فلتر التاريخ او بين تاريخين كانه منفصل ويحترم فقط التاريخ او التواريخ التي فلترت عليها
ولا استطبع ان افلتر عن العناصر التي في البحث العادي داخل هذه التواريخ
برجاء فحص المرفقات
جربته قبل ارسل الكود لك وشغال تمام التمام ،، انا فتحت جدول القاعدة ووجدته رقمي لذلك عملته على اساس رقم ،، ماهي الرسالة اللي ظهرت لك ؟؟؟
(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 دون اعتبار فلتر التواريخ
مع الشكر