[nabil.1710]

(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

نعم اخى الفاضل هو كود بسيط جدا و قام بالمطلوب انا  اضفت كومبوبوكس جديد لبحث عن اسم عميل ( ناتج بحث عميل بين تاريخين ) ممكن تضيف هذا السطر و شكرا  جزيلا لك و لكل المشاركين

[مساعدة]

لم أجد كومبوبوكس في المشروع لكن اعتمد نفس الطريقة مع البارامترات مع ما تفضل به أستاذ محمود بكرى إذا كان اسم الجدول او العمود يوجد فيه مسافة
فإذا كان يوجد مسافة فأمامك حلين
الأول أن تعدل الاسم في قاعدة البيانات وتستبدل المسابقة بالخط السفلي _
الثاني أن تضع الاسم بين أقواس [ ] تريد الوضع كما هو بالمسافة

وهذا مثال

كود :

   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

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

[nabil.1710]

(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 جعلتها بالأحرف الكبير ومثل ما تلاحظ أوضح عند النظر للكود

اخى وضعط لك مثال  للتعديل علية فى المرفقات

[مساعدة]

تفضل التعديل

لم تقم بعمل 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

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

---

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

---

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

[nabil.1710]

(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

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

---

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

---

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

اخى الفاضل انت مشكور على مجهودك  و جزاكم  الله خيرا الكود يعمل جيدا .
و 50 % من فكرتي تفضلتم بمساعدتى لاتمامها مشكور اخى و مشكور جميع الاساتذة الكرام على مجهوداتهم .

فى عرض البيانات على تقرير كريستال ريبورت انا اعتمد على استدعاء البيانات من خلال الداتا ست و للاسف هذه الطريقة و جميع طرق المشاركة للاساتذا الافاضل ليس لها علاقة بالداتا ست .

فامامنا طريقين 
1- اما ان نعتمد على الداتا سيت فى  البحث و فى حالة استدعاء البيانات على التقرير سوف يتم رفع ما ظهر على الداتا جريد فيو

2 - او طريقة اخرى لا اعلمها لعرض بيانات الداتا جريد فيو على كريستال ريبورت  .

و انا افضل الطريقة الاولى لانى تعودة على استخدام التقارير و عرضها من خلال الداتا ست .

فرجاء لو لديك طريقة للبحث عن عميل محدد بين تاريخين داخل داتا ست فقد اتممت جميلك اخى 

مشكورين اخوتى

[مساعدة]

تفضل هذه المحاولة
لاحظت انك تعتمد على الاستعلام (جدول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 بالتقرير مثل ما تم ربطه هنا مع الداتاجريدفيو

[nabil.1710]

(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 بالتقرير مثل ما تم ربطه هنا مع الداتاجريدفيو

اخى  الفاضل الكود  يعمل و بسم  الله ما شاء الله هذه المشاركة بها اكثر من طريقة للبحث  بين تاريخين ..

انا استخدمة هذا الكود لعرض التقرير ولكن يرفع البيانات بالكامل الفرز يتم على داتا جريد فيو ولا يتم على التقرير 


   Dim report As New CrystalReport1

        report.SetDataSource(AdxDataSet)

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

[مساعدة]

حسنا، كما أخبرتك ان تربط ناتج اللاستعلام بالتقرير
نفس الكود السابق ولكن جزء If سيكون هكذا

كود :

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

    report.SetDataSource(query.CopyToDataTable)

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

[nabil.1710]

(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

السلام عليكم اخى كود التقرير اعطانى هذا الخطاء انظر الصورة

[مساعدة]

لكن تفضل الكود

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.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
       Dim report As New CrystalReport1

        report.SetDataSource(query.CopyToDataTable)

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

   End Sub