17-09-12, 02:28 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
مثال بسيط جدا لتصفح البيانات او السجلات من جدول وهي بطريقة
رمز برمجي:
في منطقة التصريحات العامة اكتب
رمز برمجي:
ثم بحدث تحميل الصفحة اكتب
رمز برمجي:
اكيد واضحة ومو محتاجة شرح بعد ذلك بنفس الحدث هذا اكتب
رمز برمجي:
لعرض اول سجل
رمز برمجي:
ولعرض آخر سجل
رمز برمجي:
السابق
رمز برمجي:
والتالي:
رمز برمجي:
السلام عليكم ورحمة الله وبركاته
مثال بسيط جدا لتصفح البيانات او السجلات من جدول وهي بطريقة
رمز برمجي:
كود :
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)