تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود او مثال للبحث في الليتس فيو من بين تاريخ .. الى تاريخ .. هااااااام جدااا
#1
[COLOR="#FF0000"]السلام عليكم ورحمة الله وبركاته

طلبي واضح من العنوان جزاكم الله خير
طلب كود او مثال للبحث في الليتس فيو من بين تاريخ .. الى تاريخ .. هااااااام جدااا
يعني انا عندي في ليتس بوكس بيانات ويوجد لها تواريخ ،وانا اريد كود او مشروع مثال للبحث بين تاريخيين من التاريخ الفلاني الى التاريخ الفلاني << يعني تقريبا البحث بدالتان لكن كيف اجعله يبحث بينهم ؟؟؟[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#2
[COLOR="#800080"]السلام عليكم

اولا ارنا محاولاتك اخي العزيز لكي نساعدك ,فلا يجوز طلب مشروع جاهز بارك الله فيك

ثانيا يرجى كتابة الكلمات الانكليزية باللغة الانكليزية فقط لكي يسهل على القارئ فهمها بارك الله فيك[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#3
sajad كتب :[COLOR="#800080"]السلام عليكم

اولا ارنا محاولاتك اخي العزيز لكي نساعدك ,فلا يجوز طلب مشروع جاهز بارك الله فيك

ثانيا يرجى كتابة الكلمات الانكليزية باللغة الانكليزية فقط لكي يسهل على القارئ فهمها بارك الله فيك[/COLOR]

شكرا أخي .. انشاء الله في المرة القادمة .... انا لم اكتب الموضوع الى بعد محاولات ووصلت الى مستوى بسيط للغاية لكن لم اوصل لما اريد والان اتيت ووضعت الموضوع
الرد }}}}
تم الشكر بواسطة:
#4
يجب أن تضع عدد 2 من الأداة DateTimePicker لكي تقوم بمقارنة التاريخ بينهما


[HTML]

Dim ss As String
Dim da As New OleDb.OleDbDataAdapter
Dim dr As DataRow
Dim dt As DataTable
Dim DS As New DataSet
Dim x As String = "SELECT *from table"
ListView1.Items.Clear()
da = New OleDb.OleDbDataAdapter(x, cn)
DS = New DataSet
da.Fill(DS, "x")
dt = DS.Tables("x")
Dim i As Integer

Dim f, m As String
f = (DateTimePicker1.Text)
m = (DateTimePicker2.Text)

For i = 0 To dt.Rows.Count - 1
Dim litem As New ListViewItem
dr = dt.Rows.Item(i)


If dr!date >= m And dr!date <= f Then
litem.Text = dt.Rows(i).Item("الحقل الأول")
litem.SubItems.Add(dt.Rows(i).Item("الحقل الثاني"))
litem.SubItems.Add(dt2.Rows(i).Item("الحقل الثالث"))

وهكذا علي حسب الحقول الموجودة بقاعدة البيانات
ListView1.Items.Add(litem)
End If
next i

[/HTML]
الرد }}}}
تم الشكر بواسطة:
#5
شكرا لك .. لكن للاسف آخي ظهرت لي آخطاء .. وانا محتاجها ضروري فهل من حل ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#6
هل تقصد ليست فيو مرتبطه بقاعدة بيانات وتريد اظهار نتيجة بحث بين تاريخين فيها ؟
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته

إذا كانت البيانات غير مرتبطة بقاعدة بيانات استخدم LINQ للبحث

افتح مشروع جديد ، أضف في الـ Form أداة Listview غير خاصية الـ View إلي Detail وأنشيء بالأداة 2 عمود
أضف أيضاً زر أمر Button وعدد 2 TextBox للبحث عن التاريخ ، وأيضاً أضف أداة ListBox لعرض النتيجة .

في حدث FormLoad ضع الكود التالي :

كود :
[color=#0000cd]For[/color] i [color=#0000cd]As Integer[/color] = 0 To 9
            [color=#0000cd]Dim[/color] itm [color=#0000cd]As[/color] ListViewItem = [color=#0000cd]Me[/color].ListView1.Items.Add("ListviewItem " & i.ToString)
            itm.SubItems.Add(Now.AddDays(i).ToShortDateString)
        [color=#0000cd]Next[/color]





في زر الأمر نضع الكود التالي :
كود :
[color=#0000cd]Dim[/color] itms = ([color=#0000cd]From[/color] itm [color=#0000cd]As[/color] ListViewItem [color=#0000cd]In Me[/color].ListView1.Items _
                   [color=#0000cd]Where CDate[/color](itm.SubItems(1).Text) >= [color=#0000cd]CDate[/color](TextBox1.Text) [color=#0000cd]And CDate[/color](itm.SubItems(1).Text) <= [color=#0000cd]CDate[/color](TextBox2.Text) _
                   [color=#0000cd]Select[/color] itm.Text).ToArray
      
        ListBox1.Items.Clear()
       ListBox1.Items.AddRange(itms)




***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#8
اسف اخي على التآخير في الرد بسبب انقطاع النت ... اهلا بك اخي .. لا اخي هي مرتبطة بقاعدة بيانات اكسس ٢٠١٠ <<< ونعم كما قلت انت اريد البحث بين تاريخيين في اداة ListView ويعطيك العافية على الرد لانه مهم جدا لي هذا الامر .. انا بانتظارك
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم ورحمة الله وبركاته

متغير الاتصال بالقاعدة :
كود :
Dim con As OleDbConnection

أضف للفورم زر أمر Button وعدد 2 TextBox للبحث في التاريخين

أضف أداة Listview للفورم ولا تعمل بها شيء عشان نعدل خصائصها أثناء تشغيل البرنامج ، فنضع في حدث الـ FormLoad الكود التالي :
كود :
ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
        ListView1.Columns.Add("Book name", 200)
        ListView1.Columns.Add("Book Author", 150)
        ListView1.Columns.Add("Publish Date", 120)


        con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Library.mdb")

في زر البحث نضع الكود التالي :
كود :
Dim sqlstring As String = ""


        sqlstring = "Select Book,Author,Datepub from Books " & _
                    "Where Datepub >=@Date1 And Datepub <=@Date2"


        Dim CMD As New OleDbCommand(sqlstring, con)
        CMD.Parameters.Clear()
        CMD.Parameters.AddWithValue("@Date1", OleDbType.Date).Value = CDate(TextBox1.Text)
        CMD.Parameters.AddWithValue("@Date2", OleDbType.Date).Value = CDate(TextBox2.Text)
        con.Open()
        Dim dr As OleDbDataReader = CMD.ExecuteReader
        If dr.HasRows Then
            Me.ListView1.Items.Clear()
            While dr.Read
                Dim LVI As ListViewItem = Me.ListView1.Items.Add(dr.Item("book").ToString)
                LVI.SubItems.Add(dr.Item("Author").ToString)
                LVI.SubItems.Add(dr.Item("Datepub").ToString)
            End While
            Label1.Text = "items(s) " & Me.ListView1.Items.Count
        End If


        dr.Close()
        CMD.Dispose()
        con.Close()

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#10
[COLOR="#0000FF"]

الله يعطيك العافية آخي .. لكن ظهرت لي اخطاء .. وانا ايضا اريد فقط البحث .. لا عمل قاعدة بيانات جديدة وقاعدة بياناتي باسم shado.mdb
وعدلت على الكود لكن توجد اخطاء << فهل من توضيح او مثال ..
وشكرا لك .. [/COLOR]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 40 20-02-17, 02:45 PM
آخر رد: ناصر شير
  كود بخذف الاسماء القديمة التي تجاوز عمرها اكثر من 90 يوم من تاريخ اليوم الدريساوي 3 117 20-01-17, 11:07 PM
آخر رد: الدريساوي
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 222 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,421 04-01-17, 12:48 PM
آخر رد: مساعدة
  مثال للبحث بين تاريخين مشكلة تستحق الاهتمام nabil.1710 30 1,005 28-12-16, 06:15 PM
آخر رد: nabil.1710
  اضافة تاريخ عبدالرحمن المكاوي 1 134 13-12-16, 08:28 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 238 07-12-16, 01:11 AM
آخر رد: adel27
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 179 05-12-16, 03:53 PM
آخر رد: sendbad100
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 309 21-11-16, 11:00 AM
آخر رد: trfa8899
  [سؤال] ماهى جملة الاستعلام المناسبة للاستعلام عن قيم طبقا لاحدث تاريخ محمود بكرى 5 277 12-11-16, 12:52 AM
آخر رد: محمود بكرى

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


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