تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعبئه datagridview combobox بالبيانات من قاعدة البيانات
#1
مرحبا اخواني 
انا اقوم بتعبة Gridview باليانات من قاعده بيانات sql server 2014
كل شيء جيد ، لكنني اريد ان استخدم نفس ال gridview لتحديث البيانات ايضا
ما اريدة هو كيفيه تعبئه البيانات لعمود معين يكون combox وعندما يريد المستخدم تحديث البيانات يستطيع ان يختار ما يريد من 
ال combobox الموجوده في ال Gridview 
انا استخدم هذا الكود لتعبئة ال Gridview

كود :
Public Sub showGV()

   Using cmd As New SqlCommand("SELECT * FROM money_sent", Conn)
       cmd.CommandType = CommandType.Text
       Using sda As New SqlDataAdapter(cmd)
           Using dt As New DataTable()
               sda.Fill(dt)

               'Set AutoGenerateColumns False
               MetroGrid2.AutoGenerateColumns = False

               'Set Columns Count
               MetroGrid2.ColumnCount = 12

               'Add Columns

               Dim bc As New DataGridViewButtonColumn
               bc.Tag = False
               bc.Text = "Delete"
               bc.Name = ""
               bc.Width = 25
               'MetroGrid1.Columns.Add(bc)
               MetroGrid2.Columns.Insert(0, bc)


               MetroGrid2.Columns(1).Name = "smoney"
               MetroGrid2.Columns(1).HeaderText = "المبلق المرسل"
               MetroGrid2.Columns(1).DataPropertyName = "smoney"

               MetroGrid2.Columns(2).Name = "moneyt"
               MetroGrid2.Columns(2).HeaderText = "العملة"
               MetroGrid2.Columns(2).DataPropertyName = "moneyt"

               MetroGrid2.Columns(3).Name = "commission"
               MetroGrid2.Columns(3).HeaderText = "العمولة"
               MetroGrid2.Columns(3).DataPropertyName = "commission"

               MetroGrid2.Columns(4).Name = "rname"
               MetroGrid2.Columns(4).HeaderText = "أسم المستقبل"
               MetroGrid2.Columns(4).DataPropertyName = "rname"

               MetroGrid2.Columns(5).Name = "rphone"
               MetroGrid2.Columns(5).HeaderText = "هاتف المستقبل"
               MetroGrid2.Columns(5).DataPropertyName = "rphone"

               MetroGrid2.Columns(6).Name = "rcountry"
               MetroGrid2.Columns(6).HeaderText = "البلد المستقيل"
               MetroGrid2.Columns(6).DataPropertyName = "rcountry"

               MetroGrid2.Columns(7).Name = "sname"
               MetroGrid2.Columns(7).HeaderText = "أسم المستقبل"
               MetroGrid2.Columns(7).DataPropertyName = "sname"

               MetroGrid2.Columns(8).Name = "sphone"
               MetroGrid2.Columns(8).HeaderText = "هاتف المستقبل"
               MetroGrid2.Columns(8).DataPropertyName = "sphone"

               MetroGrid2.Columns(9).Name = "comname"
               MetroGrid2.Columns(9).HeaderText = "الشركة المستقبلة"
               MetroGrid2.Columns(9).DataPropertyName = "comname"

               MetroGrid2.Columns(10).Name = "date"
               MetroGrid2.Columns(10).HeaderText = "تاريخ الارسال"
               MetroGrid2.Columns(10).DataPropertyName = "date"

               MetroGrid2.Columns(11).Name = "note"
               MetroGrid2.Columns(11).HeaderText = "الملاحظات"
               MetroGrid2.Columns(11).DataPropertyName = "note"

               MetroGrid2.Columns(12).Name = "id"
               MetroGrid2.Columns(12).HeaderText = "id"
               MetroGrid2.Columns(12).DataPropertyName = "id"

               MetroGrid2.DataSource = dt

               Dim imageb As New DataGridViewButtonColumn
               imageb.Tag = False
               imageb.Text = "image"
               imageb.Name = ""
               imageb.Width = 25
               'MetroGrid1.Columns.Add(bc)
               MetroGrid2.Columns.Insert(10, imageb)

               Me.MetroGrid2.Columns("id").Visible = False
           End Using
       End Using
   End Using
End Sub
وهذا هو العمود هو الذي اريده ان يصبح combobox 
كود :
MetroGrid2.Columns(2).Name = "moneyt"
  MetroGrid2.Columns(2).HeaderText = "العملة"
  MetroGrid2.Columns(2).DataPropertyName = "moneyt"
لقد قمت بعمل العمود combobox لكنني لا استطيع تعبئتة بالبيانات الصحيحة من قاعدة البيانات
ارجو المساعدة
وشكرا
الرد
تم الشكر بواسطة:
#2
Adding ComboBox to DataGridView in VB.NET
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد
تم الشكر بواسطة: Rabeea Qbaha
#3
(15-09-16, 04:49 AM)Abu Ehab كتب : Adding ComboBox to DataGridView in VB.NET
شكرا على الرد اخي 
ولكن ما اريدة هو كيفيه تعبئه ال combobox من قاعدة البيانات بالبيانات الصحيحة
الرد
تم الشكر بواسطة:
#4
هذه المشاركة تلبي طلبك
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: Rabeea Qbaha
#5
لقد وجدت الحل شكرا للشبابا

PHP كود :
Sub FillGrid()
 
       Dim cbb As New DataGridViewComboBoxColumn() With {.HeaderText "العملة"}
 
       cbb.Items.Add("شيقل.ج")
 
       cbb.Items.Add("د.اردني")
 
       cbb.Items.Add("د.امريكي")
 
       cbb.Items.Add("يورو")
 
       cbb.Items.Add("ر.صيني")
 
       'ADD BUTTON
        Dim btnDelete As New DataGridViewButtonColumn()
        Dim btnImage As New DataGridViewButtonColumn()

        MetroGrid2.Columns.Insert(0, btnDelete)
        MetroGrid2.Columns.Add("", "المبلغ المرسل")
        MetroGrid2.Columns.Insert(2, cbb)
        MetroGrid2.Columns.Add("", "العمولة")
        MetroGrid2.Columns.Add("", "أسم المستقبل")
        MetroGrid2.Columns.Add("", "هاتف المستقبل")
        MetroGrid2.Columns.Add("", "البلد المستقبل")
        MetroGrid2.Columns.Add("", "أسم المرسل")
        MetroGrid2.Columns.Add("", "هاتف المرسل")
        MetroGrid2.Columns.Add("", "الشركة المستقبلة")
        MetroGrid2.Columns.Add("", "تاريخ التسجيل")
        MetroGrid2.Columns.Insert(11, btnImage)
        MetroGrid2.Columns.Add("", "الملاحظات")
        MetroGrid2.Columns.Add("", "ID")
        MetroGrid2.Columns(13).Visible = False

        Const sql As String = "SELECT * FROM money_sent"
        Dim adt As New SqlDataAdapter(sql, Conn)
        Dim dt As New DataTable
        adt.Fill(dt)
        Dim i As Integer
        For i = 0 To dt.Rows.Count - 1
            MetroGrid2.Rows.Add()
            MetroGrid2.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(1)
            Dim cell As DataGridViewComboBoxCell = DirectCast(MetroGrid2.Rows(i).Cells(2), DataGridViewComboBoxCell)
            cell.Value = dt.Rows(i).ItemArray(2)
            MetroGrid2.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(3)
            MetroGrid2.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(4)
            '
DataGridView1.Rows(i).Cells(4).Value "DELETE"
 
           MetroGrid2.Rows(i).Cells(5).Value dt.Rows(i).ItemArray(5)
 
           MetroGrid2.Rows(i).Cells(6).Value dt.Rows(i).ItemArray(6)
 
           MetroGrid2.Rows(i).Cells(7).Value dt.Rows(i).ItemArray(7)
 
           MetroGrid2.Rows(i).Cells(8).Value dt.Rows(i).ItemArray(8)
 
           MetroGrid2.Rows(i).Cells(9).Value dt.Rows(i).ItemArray(9)
 
           MetroGrid2.Rows(i).Cells(10).Value dt.Rows(i).ItemArray(10)
 
           MetroGrid2.Rows(i).Cells(12).Value dt.Rows(i).ItemArray(12)
 
           MetroGrid2.Rows(i).Cells(13).Value dt.Rows(i).ItemArray(0)
 
       Next

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 35 أمس, 01:09 PM
آخر رد: nabil.1710
  كيف ابحث داخل قاعدة البيانات احمد خطاب 2 66 17-10-18, 01:51 AM
آخر رد: اسامه الهرماوي
  [نقاش] خطأ بسيط في الاتصال بقاعدة البيانات اسامه الهرماوي 4 142 17-10-18, 01:44 AM
آخر رد: اسامه الهرماوي
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 69 16-10-18, 09:18 PM
آخر رد: WAEL ABED
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 58 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
  لماذا تظهر علامة خطأ على قاعدة البيانات دائماً ؟ Hazem1 0 55 12-10-18, 02:17 PM
آخر رد: Hazem1
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 99 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  جلب بيانات الوقت من قاعدة البيانات access وادخالها في جدول excel alfauori 2 68 09-10-18, 03:25 AM
آخر رد: alfauori
  [VB.NET] ادخال البيانات بالجدوال المرتبطة abu ammar 3 88 06-10-18, 10:33 PM
آخر رد: asemshahen5
  كيف يُمكن أدخال أداة ال Progress Bar للتزامن مع نسخ قاعدة بيانات الأكسس؟ Hazem1 6 194 05-10-18, 12:18 AM
آخر رد: Hazem1

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


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