تقييم الموضوع :
  • 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



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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال احبتى هل من الممكن تحديث بيانات التقرير فى الكريستال ربيورت خالد كامل1 5 51 منذ 31 دقيقة مضت
آخر رد: عبد العزيز البسكري
  نقل قاعدة بيانات الى العميل dasktop 25 429 منذ 3 ساعة مضت
آخر رد: سعود
  كود بحث في قاعدة بيانات access CoderMM 6 107 أمس, 12:48 PM
آخر رد: CoderMM
Rainbow قاعدة بيانات اكسس مع فيجوال بيسك نت كيفية عمل ربط بين حاسبات اياد او سكار 2 81 20-08-19, 01:22 AM
آخر رد: عبد العزيز البسكري
Shocked [SQL] عودة: سؤال ربط برنامج بقاعدة بيانات sql server shado1796 7 2,167 20-08-19, 01:14 AM
آخر رد: اسامه الهرماوي
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 17 402 19-08-19, 12:01 AM
آخر رد: Abdalazim19
Information [مشروع] مشروع عن سوبر ماركت ب الفيجوال بيسك + اكسس Alamin Izag 2 2,005 18-08-19, 08:13 PM
آخر رد: sasaasso11
  مقارنة بين السجلات في جدولين مختلفين ضمن نفس قاعدة البيانات comeps 2 71 17-08-19, 11:52 AM
آخر رد: comeps
  [سؤال] سؤال بخصوص قاعده بيانات اكسيس 2007 bakriano30@yahoo.com 1 66 15-08-19, 11:47 AM
آخر رد: اسامه الهرماوي
  قاعدة بيانات dasktop 3 114 15-08-19, 12:03 AM
آخر رد: اسامه الهرماوي

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


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