منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود البحث بين تاريخي في قاعدة SQL في Listview

الصفحات : 1 2 3 4 5

ما هو اسم الموضوع > لاني موجوده عندي نسخة من الموقع القديم الذي وضعها أحدى أخواننا في المنتدى

أكتب لي اسم الموضوع وسوف أبحث فيها

Easy 4ever كتب :ما هو اسم الموضوع > لاني موجوده عندي نسخة من الموقع القديم الذي وضعها أحدى أخواننا في المنتدى

أكتب لي اسم الموضوع وسوف أبحث فيها

شبيه جدا باسم هذا الموضوع لكن كان للاكسس ... وكان فيه رد موجود كود فيه لل SQL طبعا لو تبحث بنفس هذا اليوزر الي اكلمك فيه shado1796 في مواضيعي راح تلقاه ... شكرا ،،

السلام عليكم ورحمة الله وبركاته

ممكن تخبرنا نوع حقل التاربخ.!

السلام عليكم ورحمة الله وبركاته

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته

ممكن تخبرنا نوع حقل التاربخ.!

السلام عليكم ورحمة الله وبركاته

......النوع انا متأكد اني وضعته Date Smile

السلام عليكم ورحمة الله وبركاته

إذا ردي [url="http://vb4arb.com/vb/showthread.php?4019-%DF%E6%CF-%C7%E1%C8%CD%CB-%C8%ED%E4-%CA%C7%D1%ED%CE%ED-%DD%ED-%DE%C7%DA%CF%C9-SQL-%DD%ED-Listview&p=13300&viewfull=1#post13300"]#7
[/url] كان هو المطلوب، هل جربته وماذا حدث؟

السلام عليكم ورحمة الله وبركاته

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته

إذا ردي [url="http://vb4arb.com/vb/showthread.php?4019-%DF%E6%CF-%C7%E1%C8%CD%CB-%C8%ED%E4-%CA%C7%D1%ED%CE%ED-%DD%ED-%DE%C7%DA%CF%C9-SQL-%DD%ED-Listview&p=13300&viewfull=1#post13300"]#7
[/url] كان هو المطلوب، هل جربته وماذا حدث؟

السلام عليكم ورحمة الله وبركاته

نعم هو المطلوب الله يجزاك خير .. لكن ظهر لي خطأ ،، راح اراجعه وارد لك

بغيت اقولك انه الكود الي كنت انا استخدمه في البحث بين تاريخين في

كود :

Dim sqlstring As String = ""

        sqlstring = "Select * from Table1 Where Date >=@Date1 And Date <=@Date2"

        Dim CMD As New OleDbCommand(sqlstring, con)

        CMD.Parameters.Clear()

        CMD.Parameters.AddWithValue("@Date1", OleDbType.VarChar).Value = CDate(TextBox1.Text)

        CMD.Parameters.AddWithValue("@Date2", OleDbType.VarChar).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("ID").ToString)

                LVI.SubItems.Add(dr.Item("UserName").ToString)

                LVI.SubItems.Add(dr.Item("MobileNumber").ToString)

            End While

        End If

        dr.Close()

        CMD.Dispose()

        con.Close()

السلام عليكم ورحمة الله وبركاته

جرب التالي

PHP كود :

Dim sql As String = " SELECT * FROM table1 WHERE [date] BETWEEN @date1 AND @date2 "

        Dim comm As New OleDbCommand(sql, con)
        comm.Parameters.AddWithValue("@date1", CDate(Me.TextBox1.Text))
        comm.Parameters.AddWithValue("@date2", CDate(Me.TextBox2.Text))

        Dim dt As New DataTable

        Dim da As New OleDbDataAdapter(comm)
        da.Fill(dt)

        Me.ListView1.Items.Clear()
        For Each r As DataRow In dt.Rows
            Dim LVI As New ListViewItem
            LVI.Text = r.Item("ID")
            LVI.SubItems.Add(r.Item("UserName"))
            LVI.SubItems.Add(r.Item("MobileNumber"))
            Me.ListView1.Items.Add(LVI)
        Next 

السلام عليكم ورحمة الله وبركاته

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته

جرب التالي

PHP كود :

Dim sql As String = " SELECT * FROM table1 WHERE [date] BETWEEN @date1 AND @date2 " Dim comm As New OleDbCommand(sql, con) comm.Parameters.AddWithValue("@date1", CDate(Me.TextBox1.Text)) comm.Parameters.AddWithValue("@date2", CDate(Me.TextBox2.Text)) Dim dt As New DataTable Dim da As New OleDbDataAdapter(comm) da.Fill(dt) Me.ListView1.Items.Clear() For Each r As DataRow In dt.Rows Dim LVI As New ListViewItem LVI.Text = r.Item("ID") LVI.SubItems.Add(r.Item("UserName")) LVI.SubItems.Add(r.Item("MobileNumber")) Me.ListView1.Items.Add(LVI) Next

السلام عليكم ورحمة الله وبركاته

[COLOR="#FF0000"]

ظهرلي خطئيين في
OleDbCommand
و
OleDbDataAdapter

وايضا في الكود السابق في الصفحة الاولى الي اعطيتني اياه بعد تحويله طلعت لي اخطاء كثير ،،

شوفوا هذا موقع اجنبي يشرح حل المشكلة لكن ما فهمتها
http://www.bigresource.com/VB-Date-range...xUbwA.html

[/COLOR]

Up Up UP UP

الصفحات : 1 2 3 4 5