[Easy4ever]

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

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

[shado1796]

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

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

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

[@@أبورائد@@]

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


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


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

[shado1796]

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


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


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

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

[@@أبورائد@@]

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


إذا ردي [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] كان هو المطلوب، هل جربته وماذا حدث؟


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

[shado1796]

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


إذا ردي [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] كان هو المطلوب، هل جربته وماذا حدث؟


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

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

[shado1796]

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

كود :

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 


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

[shado1796]

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


جرب التالي

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]

[shado1796]

Up Up UP UP