(27-12-16, 05:27 PM)مساعدة كتب : السلام عليكم

جرب التعديل التالي في المرفق الذي بداية الموضوع
فهو لا يتأثر بتنسيق النظام

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dt.Clear()

       da = New OleDbDataAdapter("select * from جدول1 where تاريخ between @d1 and @d2 ", cn)
       da.SelectCommand.Parameters.AddWithValue("@d1", DateTimePicker1.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@d2", DateTimePicker2.Value.Date)
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt

   End Sub

(27-12-16, 06:08 PM)مساعدة كتب : لم أجد كومبوبوكس في المشروع لكن اعتمد نفس الطريقة مع البارامترات مع ما تفضل به أستاذ محمود بكرى إذا كان اسم الجدول او العمود يوجد فيه مسافة
فإذا كان يوجد مسافة فأمامك حلين
الأول أن تعدل الاسم في قاعدة البيانات وتستبدل المسابقة بالخط السفلي _
الثاني أن تضع الاسم بين أقواس [ ] تريد الوضع كما هو بالمسافة

وهذا مثال

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dt.Clear()

       da = New OleDbDataAdapter("SELECT * FROM [جدول1] WHERE [اسم العميل] = @cn AND [تاريخ] BETWEEN @dt1 AND @dt2 ", cn)
       da.SelectCommand.Parameters.AddWithValue("@dt1", DateTimePicker1.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@dt2", DateTimePicker2.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@cn", ComboBox1.Text)
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt

   End Sub

كما تلاحظ كل الاسماء وضعتها بين اقواس احتياطات سواء بها مسافات أم لا وأيضا كما تلاحظ كلمات SQL جعلتها بالأحرف الكبير ومثل ما تلاحظ أوضح عند النظر للكود

(27-12-16, 07:30 PM)مساعدة كتب : تفضل التعديل

لم تقم بعمل dt.Clear كما في الكود السابق لهذا قد لا ترى تغييرات في النتيجة

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dt.Clear()
 
       da = New OleDbDataAdapter("SELECT * FROM [جدول1] WHERE ([اسم_العميل] = @cn) AND ([تاريخ] BETWEEN @dt1 AND @dt2) ", cn)
       da.SelectCommand.Parameters.AddWithValue("@cn", ComboBox1.Text)
       da.SelectCommand.Parameters.AddWithValue("@dt1", DateTimePicker1.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@dt2", DateTimePicker2.Value.Date)
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt

   End Sub

الخطأ كان في ترتيب البارامترات يجب أن تتوافق مع مكانها في نص الاستعلام، أعتذر

---

تم تعديل الخطأ في المشاركة السابقة في ترتيب البارامترات

---

ملاحظة: جميع مشاريعك لم تعمل لدي لاختلاف الاصدار ولكن اعتمدت على النظر في الكود بعد سحبه لمشروع شكلي في الفجوال فقط، فالخطأ وارد،

(27-12-16, 10:54 PM)مساعدة كتب : تفضل هذه المحاولة
لاحظت انك تعتمد على الاستعلام (جدول1_استعلام)

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim query As IEnumerable(Of adxDataSet.جدول1_استعلامRow) =
           AdxDataSet.جدول1_استعلام.
           Where(Function(x As adxDataSet.جدول1_استعلامRow) x.اسم_العميل.Equals(ComboBox1.Text) And
                     x.تاريخ >= DateTimePicker1.Value.Date And x.تاريخ <= DateTimePicker2.Value.Date)

       If query.Count > 0 Then
           Me.DataGridView1.DataSource = query.CopyToDataTable
       End If

   End Sub

---

بالنسبة للتقارير كل ما عليك ربط ناتج الاستعلام query بالتقرير مثل ما تم ربطه هنا مع الداتاجريدفيو

(28-12-16, 02:15 AM)مساعدة كتب : حسنا، كما أخبرتك ان تربط ناتج اللاستعلام بالتقرير
نفس الكود السابق ولكن جزء If سيكون هكذا

كود :

If query.Count > 0 Then
   Dim report As New CrystalReport1

   report.SetDataSource(query.CopyToDataTable)

   Form2.CrystalReportViewer1.ReportSource = report
   Form2.Show()
End If