[asemshahen5]

عمل كلاس لتعبئه كمبو بوكس داخل الداتا فيو

[عمور2016]

هذي ياغالي لغة سي ++

انا عندي لغة vb.net

[عمور2016]

انا مبتدا ارجو الافادة بارك الله فيكم بخصوص ربط الكومبو بالداتا قريد فيو و اظهار البيانات المسجلة بقاعدة البيانات

---

vb.net ???

[عمور2016]

لم ينجح معي الكود

ماهو الخطا

---

انا اريده في العمود 13 ولم ينجح ماهي الاسباب

في العمود نجح

[حريف برمجة]

العمود 13 = 14
لان الإنديكس الأول = 0

الواضح هنا ان العمود رقم 13 = تكست بوكس وليس كومبو بوكس .

[عمور2016]

تم حل الموضوع باضافة عمود جديد


شكرا جزلا لك وحفظ الله مرادك


عند التعديل واختيار احد الخيارات في الكومبو بالداتا قريد اريده يحفظ مباشرة
حاليا عند اختيار اي خيار لا يحفظ
اين اضع كود التعديل حسب الصف المختار تعديله

[asemshahen5]

سكربت قاعدة البيانات :

PHP كود :

USE [master]
GO
/****** Object:  Database [Accounts]    Script Date: 7/12/2019 5:04:01 PM ******/
CREATE DATABASE [Accounts]
GO
USE [Accounts]
GO
/****** Object:  Table [dbo].[EmployeeXT]    Script Date: 7/12/2019 5:07:57 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[EmployeeXT](
    [ID] [int] NULL,
    [Name] [nvarchar](50) NULL,
    [Telphon] [nvarchar](50) NULL
) ON [PRIMARY]

GO
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (1, N'Test Name 0', N'00000000')
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (2, N'Test Name 1', N'11111111')
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (3, N'Test Name 2', N'22222222')
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (4, N'Test Name 3', N'33333333') 


اصنع مديول جديد و ضع به :

PHP كود :

Imports System.Data.SqlClient

Public Module Module1
    Public Sub FillDgvComboBox(Dgv As DataGridView, SqlString As String, ColName As String, ColInt As Int32)
        ' تعريف داتا تابيل جديد
        Dim dt As New DataTable()
        ' تعبئة الداتا تيبل من فانكشن FillDataTable
        dt = FillDataTable(SqlString)
        ' ADD COLUMNS ' تعريف عامود نوع كومبو بوكس جديد
        Dim combo As New DataGridViewComboBoxColumn()
        ' تعريف اسم العامود في الداتا جريد
        combo.HeaderText = ColName
        ' تعريف الاسم البرمجي الخاص بالعامود
        combo.Name = "combo"
        ' تعريف DataPropertyName الخاصة باسم العامود بقاعدة البيانات
        combo.DataPropertyName = ColName
        ' تعريف أرراي ليست جديدة
        Dim row As New ArrayList()
        ' FILL ARRAYLIST FROM DATATABLE
        'تعبئة الارراي ليست بالقيم من الداتا تابل عن طريق لوب 
        For Each dr As DataRow In dt.Rows
            'تعبئة الارراي ليست بالقيم من الداتا تابل المعبئة حسب الاستعلام 
            row.Add(dr(ColName).ToString())
        Next
        ' تعبئة الكومبو بوكس من الارراي ليست
        combo.Items.AddRange(row.ToArray())
        ' Remove Old Column ' حذف عامود الكومبو بوكس القديم الموجود في الجريد فيو
        Dgv.Columns.RemoveAt(ColInt)
        ' ADD THE COMBO TO DATAGRIDVIEW ' إضافة العامود الجديد المعبأ من الارراي ليست الى الجريد فيو
        Dgv.Columns.Insert(ColInt, combo)
    End Sub
    Public con As New SqlConnection("Data Source=.;Initial Catalog=Accounts;Integrated Security=True")
    Public Function FillDataTable(SqlString As String) As DataTable
        Dim adapter As New SqlDataAdapter(SqlString, con)
        Dim dt As New DataTable()
        dt.Clear()
        adapter.Fill(dt)
        Return dt
    End Function
End Module 


ضع هذا الكود في حدث اللود للفورم :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = FillDataTable("select * from EmployeeXT")
        FillDgvComboBox(DataGridView1, "select Name from EmployeeXT", "Name", 1)
    End Sub 


   
ملاحظة استبدل الرقم 1 برقم العامود المطلوب العد يبدء من 0

[عمور2016]

ماذا تعني

سكربت قاعدة البيانات

---

اعتذر منكم اتعبتكم تمام

[asemshahen5]

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

---

هذا كود حفظ التعديل في الداتا غريد :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        adapter.UpdateCommand = New SqlCommandBuilder(adapter).GetUpdateCommand()
        adapter.Update(dt)
        dt.AcceptChanges()
        MsgBox("تمت عملية الحفظ بنجاح")
    End Sub 


[عمور2016]

(16-09-20, 01:18 PM)asemshahen5 كتب :

---

هذا كود حفظ التعديل في الداتا غريد :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        adapter.UpdateCommand = New SqlCommandBuilder(adapter).GetUpdateCommand()
        adapter.Update(dt)
        dt.AcceptChanges()
        MsgBox("تمت عملية الحفظ بنجاح")
    End Sub 


جربت هذا الكود تظهر اخطاء

---

اريد كود يحفظ 
عند التعديل واختيار احد الخيارات في الكومبو بالداتا قريد اريده يحفظ مباشرة
حاليا عند اختيار اي خيار لا يحفظ
اين اضع كود التعديل حسب الصف المختار تعديله