تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مقال] كفية التعامل مع Datalist
#1
Big Grin 

السلام عليكم شباب
اليوم سوف اشرح كفية التعامل مع الاداه Datalis
الاول جلب الاداه و وضع فى الصفحة
[

و بعد ذلك اضبط الخصائص


و بعد ذبك نقوم بوضع ازرا التالى و السابق و الاول و الاخير

و بعدذ لك نقوك بالضغط عالاداه Datalis وسوف يظهر سهم نضغط عالاسهم

و بعد ذلك نقوم بوضع الاداه Image من صندوق الادوات و نعيد الضغغط عالاداه مره اخرى و اغلقها مره اخرى
و كده هيظهر قدم شكل الاداه Image 4 مره فى الصف


و بعد ذلك بندا فى كتاب الكود نقوم بعمل تصرح عام عن المتغيرات التالى

كود :
Dim dadapter As SqlDataAdapter
    Dim dset As DataSet
    Dim adsource As PagedDataSource
    Dim pos As Integer
و بعد ذلك نعمل صب لجلب الصور من قاعدة البيانات داخل الاداه بدون تكرار
كود :
Public Sub databinds()
    
        Dim strConnString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
        Dim con As New SqlConnection(strConnString)
        If ConnectionState.Open Then con.Close()
        con.Open()
        dadapter = New SqlDataAdapter("select DISTINCT img from img", con)
        dset = New DataSet()
        adsource = New PagedDataSource()
        dadapter.Fill(dset)
        adsource.DataSource = dset.Tables(0).DefaultView
        adsource.PageSize = 18
        adsource.AllowPaging = True
        adsource.CurrentPageIndex = pos
        Button4.Enabled = Not adsource.IsFirstPage
        Button3.Enabled = Not adsource.IsFirstPage
        Button1.Enabled = Not adsource.IsLastPage
        Button2.Enabled = Not adsource.IsLastPage
        DataList1.DataSource = adsource
        DataList1.DataBind()
        If Button1.Enabled = False And Button2.Enabled = False And Button3.Enabled = False And Button4.Enabled = False Then
            Button1.Visible = False
            Button2.Visible = False
            Button3.Visible = False
            Button4.Visible = False
            If ConnectionState.Open Then con.Close()
            Exit Sub
        Else
            Button1.Visible = True
            Button2.Visible = True
            Button3.Visible = True
            Button4.Visible = True
            If ConnectionState.Open Then con.Close()
        End If
و بعد ذلك نقوم بعمل كود الازار التالى و السابق و الاول و الاخير
كود :
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
        pos = 0
        databinds()
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        pos = CInt(Me.ViewState("vs"))
        pos -= 1
        Me.ViewState("vs") = pos
        databinds()
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        pos = CInt(Me.ViewState("vs"))
        pos += 1
        Me.ViewState("vs") = pos
        databinds()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        pos = adsource.PageCount - 1
        databinds()

    End Sub
و بعد ذلك نقوم بتشغيل الكود عن طريق وضع فى لود التشغيل الصفحة

كود :
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Me.ViewState("vs") = 0
        End If
        pos = CInt(Me.ViewState("vs"))
        databinds()
    End Sub

اعذرونى شباب عالشرح السريع هذاBig Grin


قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}}
تم الشكر بواسطة:
#2
شكرا لك أخي

بالفعل الشرح سريع جدا Big Grin
أتمنى في مقالاتك القادمة أن يكون الشرح مفصل أكثر
شكرا لك على هذا المجهود

تحياتي
عش كل لحظة وكأنها آخر لحظة في حياتك عش بحبك لله عز وجل عش بالتطبع بأخلاق الرسول عليه الصلاة والسلام عش بالأمل ، عش بالكفاح عش بالصبر عش بالحب ، وقدر قيمة الحياةShy
الرد }}}}
تم الشكر بواسطة: alims


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile [مقال] درس سريع في التعامل مع PayPal في Asp.Net - محمد الساعدي محمد الحاج خلف 1 1,460 10-12-13, 02:45 PM
آخر رد: محمد الساعدي
  درس سريع في التعامل مع PayPal في Asp.Net محمد الساعدي 6 984 29-04-13, 10:34 PM
آخر رد: Sajad
  للمبتدئين - أساسيات التعامل مع VBScript RaggiTech 0 1,180 14-10-12, 03:10 PM
آخر رد: RaggiTech
  معلومة :: Datalist Paging RaggiTech 0 448 29-09-12, 12:31 PM
آخر رد: RaggiTech
  ::معلومة:: Datalist Paging a_senan 0 386 21-09-12, 05:51 PM
آخر رد: a_senan

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم