16-09-20, 12:02 AM
16-09-20, 12:32 AM
هذي ياغالي لغة سي ++
انا عندي لغة vb.net
انا عندي لغة vb.net
16-09-20, 11:26 AM
انا مبتدا ارجو الافادة بارك الله فيكم بخصوص ربط الكومبو بالداتا قريد فيو و اظهار البيانات المسجلة بقاعدة البيانات
vb.net ???
vb.net ???
16-09-20, 12:29 PM
لم ينجح معي الكود
ماهو الخطا
انا اريده في العمود 13 ولم ينجح ماهي الاسباب
في العمود نجح
ماهو الخطا
انا اريده في العمود 13 ولم ينجح ماهي الاسباب
في العمود نجح
16-09-20, 12:41 PM
العمود 13 = 14
لان الإنديكس الأول = 0
الواضح هنا ان العمود رقم 13 = تكست بوكس وليس كومبو بوكس .
لان الإنديكس الأول = 0
الواضح هنا ان العمود رقم 13 = تكست بوكس وليس كومبو بوكس .
16-09-20, 12:45 PM
تم حل الموضوع باضافة عمود جديد
شكرا جزلا لك وحفظ الله مرادك
عند التعديل واختيار احد الخيارات في الكومبو بالداتا قريد اريده يحفظ مباشرة
حاليا عند اختيار اي خيار لا يحفظ
اين اضع كود التعديل حسب الصف المختار تعديله
شكرا جزلا لك وحفظ الله مرادك
عند التعديل واختيار احد الخيارات في الكومبو بالداتا قريد اريده يحفظ مباشرة
حاليا عند اختيار اي خيار لا يحفظ
اين اضع كود التعديل حسب الصف المختار تعديله
16-09-20, 01:00 PM
سكربت قاعدة البيانات :
اصنع مديول جديد و ضع به :
ضع هذا الكود في حدث اللود للفورم :
[attachment=25706]
ملاحظة استبدل الرقم 1 برقم العامود المطلوب العد يبدء من 0
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:08 PM
ماذا تعني
سكربت قاعدة البيانات
اعتذر منكم اتعبتكم تمام
سكربت قاعدة البيانات
اعتذر منكم اتعبتكم تمام
16-09-20, 01:18 PM
هذا السكربت يستعمل لانشاء قاعدة البيانات و الجدول الموجود به في السيكول سيرفير .
في السيكول منجمنت اختر نيو كويري و الصق السكربت به ثم اضغط على اكسكيوت .
هذا كود حفظ التعديل في الداتا غريد :
في السيكول منجمنت اختر نيو كويري و الصق السكربت به ثم اضغط على اكسكيوت .
هذا كود حفظ التعديل في الداتا غريد :
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: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
اريد كود يحفظ
عند التعديل واختيار احد الخيارات في الكومبو بالداتا قريد اريده يحفظ مباشرة
حاليا عند اختيار اي خيار لا يحفظ
اين اضع كود التعديل حسب الصف المختار تعديله