تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود تعبئة ليست فيو من جدول او استعلام من قاعدة بيانات اكسس
#1
بسم الله الرحمن الرحيم
السلام عليكم  ,,,,  وكل عام وأنتم بخير  ورمضان كريم 
أخواني  كنت  أبحث  عن  كود  تعبئة ليست فيو  من استعلام في قاعدة بيانات  اكسس
وارسلت  سؤال  بذلك  وبعد  البحث  أنقل  لكم  هذا  الكود للفائدة مع شرح مبسط  له

 Sub listview1x()
        Dim header1, header2 As ColumnHeader , تعريف  متغييرين  أو بحسب ماتشاء لرؤوس الأعمده في ليست فيو
        header1 = New ColumnHeader
        header2 = New ColumnHeader



        header1.Name = "daleel" , جلب اسم العمود رقم 1 من جدول في القاعدة المطلوبة
        header1.Text = "كود", اعطاء اسم  للعمود (سميته  كود)
        header1.TextAlign = HorizontalAlignment.Left , ضبط موقع المعلومات في  العمود الأول  وبحسب ماتريد
        header1.Width = 50 , اختيار عرض  العمود رقم 1

        header2.Name = "hesab_name" , للعمود رقم 2  وبنفس  الشرح اعلاه
        header2.Text = "إسم الحساب"
        header2.TextAlign = HorizontalAlignment.Right
        header2.Width = 230



        Me.ListView1.Clear()
        Me.ListView1.Columns.Add(header1)
        Me.ListView1.Columns.Add(header2)


        Dim constr As String = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source =" & Application.StartupPath & "\datah.accdb"
        Dim Con As New OleDbConnection(constr), هنا الأتصال مع قاعدة البيانات , بالنسبة هنا اكسس 2007
        Dim DS As New DataSet
        Dim SQLstr As String = "SELECT * FROM q_erad"
        ' Dim SQLstr1 As String = "SELECT * FROM tab" , تعريف متغيرات الأتصال  و كومند وداتا ادابتر
        Dim cmd As New OleDbCommand(SQLstr, Con)
        '   Dim cmd1 As New OleDbCommand(SQLstr1, Con)

        Dim dp As New OleDbDataAdapter
        '  Dim dp1 As New OleDbDataAdapter
        dp.SelectCommand = cmd
        '   dp1.SelectCommand = cmd1
        Con.Open()
        dp.Fill(DS, "q_erad") , هنا اسم الجدول او الأستعلام المطلوب  من قاعدة البيانات , عندي  اسمه q_erad
        ' 

        Con.Close()
        Dim dt As Data.DataTable = DS.Tables("q_erad")
        ' Dim dt1 As Data.DataTable = DS.Tables("tab")
        For Each Col As DataRow In dt.Rows

            Dim newItem As ListViewItem = Me.ListView1.Items.Add(Col("id"))
            newItem.SubItems.Add(Col("details").ToString)


        Next

    End Sub

وفي  الختام  يتم استدعاء  السب أعلاه  من  حدث  فورم لوم  تكتب  فقط  Sub listview1x() call



وما نيل المطالب  بالتمني ,,,

لكن تأخذ الدنيا غلابا ........................


الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 101 20-02-19, 04:01 PM
آخر رد: elgokr
  استدعاء بيانات العميل الى جدول الفاتورة mostafa nada 8 179 19-02-19, 11:54 AM
آخر رد: asemshahen5
  [VB.NET] فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس EMADSSS 2 76 17-02-19, 09:32 PM
آخر رد: EMADSSS
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 4 375 17-02-19, 02:31 PM
آخر رد: sendbad100
  تعبئة الليست بوكس عند الإختيار من الكومبوكس مصمم هاوي 1 50 16-02-19, 03:09 AM
آخر رد: أحمد النجار
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 95 15-02-19, 06:28 AM
آخر رد: princelovelorn
  عرض صورة في الكريستال ريبورت ولكنها موجوده في جدول منفصل Emam emam 8 207 07-02-19, 04:34 PM
آخر رد: عبد العزيز البسكري
Question [سؤال] تعبئة TreeView مع جود اكثر من عملية بحث ادخل جدوالين alims 0 56 06-02-19, 11:58 PM
آخر رد: alims
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 180 06-02-19, 01:16 PM
آخر رد: sendbad100
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 2 77 05-02-19, 11:59 AM
آخر رد: raaddawood

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


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