منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تصفح البيانات بطريقة تشبه (شكلا) التطبيق المكتبي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم مقالات ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=54)
+---- الموضوع : تصفح البيانات بطريقة تشبه (شكلا) التطبيق المكتبي (/showthread.php?tid=4158)

تصفح البيانات بطريقة تشبه (شكلا) التطبيق المكتبي - سعود - 17-09-12

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

كود :
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)