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

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

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

من طرف السنى الخميس ديسمبر 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)

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

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

من طرف جورج صبحى الجمعة ديسمبر 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

1	#الحديثة
2	#الدورات
3	#موقع_لي_نور_الإلكتروني
4	#java
5	#datagridview
6	#عقارات
7	#استثمار
8	#الامارات
9	#الشارقة
10	#سكن

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

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

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

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

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

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