عند التعديل واختيار احد الخيارات في الكومبو بالداتا قريد اريده يحفظ مباشرة
حاليا عند اختيار اي خيار لا يحفظ
اين اضع كود التعديل حسب الصف المختار تعديله
16-09-20, 01:00 PM (آخر تعديل لهذه المشاركة : 16-09-20, 01:02 PM {2} بواسطة 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
16-09-20, 01:18 PM (آخر تعديل لهذه المشاركة : 16-09-20, 01:23 PM {2} بواسطة 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
16-09-20, 01:28 PM (آخر تعديل لهذه المشاركة : 16-09-20, 01:57 PM {2} بواسطة عمور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
جربت هذا الكود تظهر اخطاء
اريد كود يحفظ
عند التعديل واختيار احد الخيارات في الكومبو بالداتا قريد اريده يحفظ مباشرة
حاليا عند اختيار اي خيار لا يحفظ
اين اضع كود التعديل حسب الصف المختار تعديله