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)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير