منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

مشكلة فى الداتا جريد

اذهب الى الأسفل

مشكلة فى الداتا جريد Empty مشكلة فى الداتا جريد

مُساهمة من طرف mraskquestions الثلاثاء ديسمبر 17, 2019 4:29 am

أساتذتى الاعزاء : أريد  برمجياً (بالكود ) تحويل أحد أعمدة الداتا جريد إلى كمبوبوكس حيث يمكن للمستخدم أختيار أحد القيم (الموجودة فى جدول آخر ) لملىء بيانات عمود الداتا جريد
mraskquestions
mraskquestions
...
...

تاريخ التسجيل : 16/12/2019
المساهمات : 30
النقاط : 64
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

مشكلة فى الداتا جريد Empty رد: مشكلة فى الداتا جريد

مُساهمة من طرف السنى الخميس ديسمبر 19, 2019 8:02 pm

بسيطة :
الكود:

''انشاء الكمبوبوكس
Dim cmb As New DataGridViewComboBoxColumn()
" وضع تسمية توضيحية
        cmb.HeaderText = "Select Data"
        cmb.Name = "cmb"
" تحديد عدد العناصر التى تظهر فى الكمبوبوكس
        cmb.MaxDropDownItems = 4
" انشاء عناصر الكمبوبوكس
        cmb.Items.Add("True")
        cmb.Items.Add("False")
"اضافة الكمبوبو الذى تم انشائة الى عامود الداتا جريد
        DataGridView1.Columns.Add(cmb)
السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 245
النقاط : 459
التقيم : 26
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

مشكلة فى الداتا جريد Empty رد: مشكلة فى الداتا جريد

مُساهمة من طرف mraskquestions الجمعة ديسمبر 20, 2019 5:29 pm

الكود اللى حضرتك كتبتبة بينشأ كمبوبوكس جديد فى الجريد فيو و لا يضيف القيمة بقاعدة البيانات ، لكن ما قصدته اوضحه لحضرتك بمثال
للتوضيح عندى جريد فيو فيه أعمده ID,Name,Address, Phone, Gender أريد أن يتحول عمود Gender  إلى كمبوبوكس فيه قيمتين ذكر و أنثى بحيث المستخدم يختار أحدى القيميتن و يخزنها فى حقل Gender (و هو أخر حقل عمود فى الجريد )
 الشكر موصول لسيادتكم و لكل اساتذتى بالمنتدى
mraskquestions
mraskquestions
...
...

تاريخ التسجيل : 16/12/2019
المساهمات : 30
النقاط : 64
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

مشكلة فى الداتا جريد Empty رد: مشكلة فى الداتا جريد

مُساهمة من طرف جورج صبحى الجمعة ديسمبر 20, 2019 9:14 pm

الانشاء 
الكود:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        DataGridView1.ColumnCount = 4
        DataGridView1.Columns(0).Name = "ID"
        DataGridView1.Columns(1).Name = "Name"
        DataGridView1.Columns(2).Name = "Address"
        DataGridView1.Columns(3).Name = "Phone"

        Dim row As String() = New String() {"1", "ahmed", "egypit", "0121111"}
        DataGridView1.Rows.Add(row)
        row = New String() {"1", "ahmed", "egypit", "0121111"}
        DataGridView1.Rows.Add(row)
        row = New String() {"1", "ahmed", "egypit", "0121111"}
      

        Dim cmb As New DataGridViewComboBoxColumn()
        cmb.HeaderText = "Gender"
        cmb.Name = "cmb"
        cmb.MaxDropDownItems = 4
        cmb.Items.Add("male")
        cmb.Items.Add("female")
        DataGridView1.Columns.Add(cmb)



    End Sub


الحفظ

الكود:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Music_Sales_Database.mdb;")
        Dim Com As OleDbCommand


        Dim id, name, add, ph, gen, sql_ As String
        

        Com = New OleDbCommand
        Com.Connection = Con
        Connection.open()

        For x As Integer = 0 To DataGridView1.Rows.Count - 1

            id = DataGridView1.Rows(x).Cells(0).Value
            name = DataGridView1.Rows(x).Cells(1).Value
            add = DataGridView1.Rows(x).Cells(2).Value
            ph = DataGridView1.Rows(x).Cells(3).Value
            gen = DataGridView1.Rows(x).Cells(4).Value


            sql_ = "INSERT INTO info(ID, Name, Address, Phone, Gender) VALUES (@?1, @?2, @?3, @?4, @?5)"
            Dim Comm As New OleDbCommand(sql_, Con)

            Comm.Parameters.AddWithValue("@?1", id)
            Comm.Parameters.AddWithValue("@?2", name)
            Comm.Parameters.AddWithValue("@?3", add)
            Comm.Parameters.AddWithValue("@?4", ph)
            Comm.Parameters.AddWithValue("@?5", gen)


            Command.ExecuteNonQuery()
            Comm.Dispose()
        Next
        Connection.Close()


    End Sub
جورج صبحى
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 127
النقاط : 259
التقيم : 6
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى