[سعود]

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

كود :

Request.QueryString("id")

في منطقة التصريحات العامة اكتب
رمز برمجي:

كود :

Dim x As Integer

ثم بحدث تحميل الصفحة اكتب
رمز برمجي:

كود :

x = Request.QueryString("id")
        If x = Nothing Then
            x = 1
        End If

اكيد واضحة ومو محتاجة شرح بعد ذلك بنفس الحدث هذا اكتب
رمز برمجي:

كود :

Dim cm As New OleDbCommand("select * from tb where tid=" & x & "", con)
        con.Open()
        Dim dr As Data.OleDb.OleDbDataReader = cm.ExecuteReader
        If dr.Read Then
            tid.Text = dr.Item("tid")
            tname.Text = dr.Item("tname")
            mobile.Text = dr.Item("mobile")
        End If
        con.Close()

لعرض اول سجل
رمز برمجي:

كود :

x = 1
        Response.Redirect("~\default.aspx?id=" & x)

ولعرض آخر سجل
رمز برمجي:

كود :

Dim p As New OleDbCommand("select max(tid)  from tb", con)
        con.Open()
        Dim v As Integer = p.ExecuteScalar.ToString
        x = v
        con.Close()
        Response.Redirect("~\default.aspx?id=" & x)

السابق
رمز برمجي:

كود :

x -= 1
        Response.Redirect("~\default.aspx?id=" & x)

والتالي:
رمز برمجي:

كود :

x += 1
        Response.Redirect("~\default.aspx?id=" & x)