السلام عليكم ورحمة الله
الرجاء المساعده فى ربط مربع كومبوبوكس بالبيانات
اولا تم عمل صفحه خاصه بحفظ بيانات ما
وتم عمل كومبوبوكس اريد تحميل البيانات من صفحه الداتا الى مربع الكومبوبوكس بدون استخدام اي زر "تلقائيا" بحيث ا\ا تم اضافه بيانات جديدة فى صفحه البيانات تحمل تلقئيا فى الكمبوبوكس
حيث تم كتابه الكود التالي فى اللود الخاص بالفورم الموجود به الكمبوبوكس
Load_Groups()
ItemGroup.DataSource = GroupsDT
ItemGroup.DisplayMember = "GroupName"
ItemGroup.ValueMember = "GroupName"
وعليكم السلام ورحمة الله وبركاته
نفس الكود ضعه بعد الحفظ والتعديل والحذف .
(10-10-17, 06:35 PM)حريف برمجة كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
نفس الكود ضعه بعد الحفظ والتعديل والحذف .
تم وضع نفس الكود بعد كود الحفظ بالنسبه للحفظ والتعديل والحذف لكن لايوجد نتيجة
(10-10-17, 08:21 PM)حريف برمجة كتب : [ -> ]ارفع مثالك لتعديله .
جزاك الله خيرا ده كود الفورم بالكامل
كود :
Public Class Items
' كود إضافة الاصناف
Public Sub newitems()
Code_Items()
ItemBarcode.Text = ""
ItemCompany.Text = ""
ItemDate.Value = Now.Date
ItemEarn.Text = 0
ItemGroup.Text = ""
ItemID.Text = mynewIDItems
ItemLimit.Text = 0
ItemMaxDiscount.Text = 0
ItemName.Text = ""
ItemPlace.Text = ""
ItemPrice.Text = 0
ItemQty.Text = 0
ItemTime.Value = Now
ItemUser.Text = ""
End Sub
Private Sub Items_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' تحميل قؤائم combobox
' قائمة المجموعات
Load_Groups()
ItemGroup.DataSource = GroupsDT
ItemGroup.DisplayMember = "GroupName"
ItemGroup.ValueMember = "GroupName"
'==================================
' قائمة الشركات
Load_companies()
ItemCompany.DataSource = companiesDT
ItemCompany.DisplayMember = "CompanyName"
ItemCompany.ValueMember = "CompanyID"
'==================================
'قائمة المخازن
Load_places()
ItemPlace.DataSource = placesDT
ItemPlace.DisplayMember = "PlaceName"
ItemPlace.ValueMember = "placeID"
'تحميل جدول الأصناف
Load_Items()
DataGridView1.DataSource = ItemsDT
newitems()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
newitems()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' كود الحفظ الاصناف
ItemsDT.Rows.Add()
Dim last As Integer = ItemsDT.Rows.Count - 1
ItemsDT.Rows(last).Item("ItemBarcode") = ItemBarcode.Text
ItemsDT.Rows(last).Item("ItemCompany") = ItemCompany.Text
ItemsDT.Rows(last).Item("ItemDate") = ItemDate.Value
ItemsDT.Rows(last).Item("ItemEarn") = ItemEarn.Text
ItemsDT.Rows(last).Item("ItemGroup") = ItemGroup.Text
ItemsDT.Rows(last).Item("ItemID") = ItemID.Text
ItemsDT.Rows(last).Item("ItemLimit") = ItemLimit.Text
ItemsDT.Rows(last).Item("ItemMaxDiscount") = ItemMaxDiscount.Text
ItemsDT.Rows(last).Item("ItemName") = ItemName.Text
ItemsDT.Rows(last).Item("ItemPlace") = ItemPlace.Text
ItemsDT.Rows(last).Item("ItemPrice") = ItemPrice.Text
ItemsDT.Rows(last).Item("ItemQty") = ItemQty.Text
ItemsDT.Rows(last).Item("ItemTime") = ItemTime.Value
ItemsDT.Rows(last).Item("ItemUser") = ItemUser.Text
Dim Save As New OleDbCommandBuilder(ItemsDA)
ItemsDA.Update(ItemsDT)
ItemsDT.AcceptChanges()
MsgBox("تم حفظ بيانات الصنف بنجاح")
Load_Items()
newitems()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'كود تعديل الاصناف
Dim pos As Integer = BindingContext(ItemsDT).Position
ItemsDT.Rows(pos).Item("ItemBarcode") = ItemBarcode.Text
ItemsDT.Rows(pos).Item("ItemEarn") = ItemEarn.Text
ItemsDT.Rows(pos).Item("ItemDate") = ItemDate.Value
ItemsDT.Rows(pos).Item("ItemID") = ItemID.Text
ItemsDT.Rows(pos).Item("ItemName") = ItemName.Text
ItemsDT.Rows(pos).Item("ItemGroup") = ItemGroup.Text
ItemsDT.Rows(pos).Item("ItemTime") = ItemTime.Value
ItemsDT.Rows(pos).Item("ItemLimit") = ItemLimit.Text
ItemsDT.Rows(pos).Item("ItemUser") = ItemUser.Text
ItemsDT.Rows(pos).Item("ItemCompany") = ItemCompany.Text
ItemsDT.Rows(pos).Item("ItemMaxDiscount") = ItemMaxDiscount.Text
ItemsDT.Rows(pos).Item("ItemPlace") = ItemPlace.Text
ItemsDT.Rows(pos).Item("ItemPrice") = ItemPrice.Text
ItemsDT.Rows(pos).Item("ItemQty") = ItemQty.Text
Dim Save As New OleDbCommandBuilder(ItemsDA)
ItemsDA.Update(ItemsDT)
ItemsDT.AcceptChanges()
MsgBox("تم تعديل البيانات بنجاح")
Load_Items()
End Sub
Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
Try
Dim pos As Integer = BindingContext(ItemsDT).Position
ItemBarcode.Text = ItemsDT.Rows(pos).Item("ItemBarcode")
ItemCompany.Text = ItemsDT.Rows(pos).Item("ItemCompany")
ItemDate.Value = ItemsDT.Rows(pos).Item("ItemDate")
ItemID.Text = ItemsDT.Rows(pos).Item("ItemID")
ItemName.Text = ItemsDT.Rows(pos).Item("ItemName")
ItemEarn.Text = ItemsDT.Rows(pos).Item("ItemEarn")
ItemTime.Value = ItemsDT.Rows(pos).Item("ItemTime")
ItemGroup.Text = ItemsDT.Rows(pos).Item("ItemGroup")
ItemUser.Text = ItemsDT.Rows(pos).Item("ItemUser")
ItemLimit.Text = ItemsDT.Rows(pos).Item("ItemLimit")
ItemMaxDiscount.Text = ItemsDT.Rows(pos).Item("ItemMaxDiscount")
ItemPlace.Text = ItemsDT.Rows(pos).Item("ItemPlace")
ItemPrice.Text = ItemsDT.Rows(pos).Item("ItemPrice")
ItemQty.Text = ItemsDT.Rows(pos).Item("ItemQty")
Catch ex As Exception
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' كود حذف الاصناف
If MsgBox("هل تريد حذف الصنف؟", MsgBoxStyle.OkCancel, "رسالة تأكيد") = MsgBoxResult.Ok Then
Dim pos As Integer = BindingContext(ItemsDT).Position
ItemsDT.Rows(pos).Delete()
Dim Save As New OleDbCommandBuilder(ItemsDA)
ItemsDA.Update(ItemsDT)
ItemsDT.AcceptChanges()
MsgBox("تم الحذف بنجاح")
Load_Items()
Else
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
'كود البحث
ItemsDT.Clear()
ItemsDA = New OleDbDataAdapter("select * from Items where ItemName Like'%" & TextBox1.Text & "%'", con)
ItemsDA.Fill(ItemsDT)
End Sub
End Class
الواضح ان الكود ناقص ،،،
اين جمل اسكيوال التي تجلب البيانات للكومبو ،،،
ايضاً اين sub Load_Groups()
وجميع sub التي تحمل البيانات .
اعمل نسخه من المشروع واحذف جميع الشاشات عدا الشاشة المطلوب تعديلها فقط .. وارفقها هنا وستجد الحل بإذن الله .
(10-10-17, 11:03 PM)حريف برمجة كتب : [ -> ]الواضح ان الكود ناقص ،،،
اين جمل اسكيوال التي تجلب البيانات للكومبو ،،،
ايضاً اين sub Load_Groups()
وجميع sub التي تحمل البيانات .
اعمل نسخه من المشروع واحذف جميع الشاشات عدا الشاشة المطلوب تعديلها فقط .. وارفقها هنا وستجد الحل بإذن الله .
رابط الملف في
https://www.mediafire.com/file/mqrhga132...20Chem.rar
البرنامج مبني على قاعده بيانات اكسس
الآن البرنامج أول ما يشتغل معك يتحمل البيانات في جميع الكمبوبوكس ؟
إذا نعم انسخ الاكواد الموجوده في الفورم لود وضعها في آخر كود الحفظ وآخر كود الحذف وسيعمل معك بإذن الله .
لأن مشروعك شغلته ظهرت اخطاء .
(11-10-17, 07:10 PM)حريف برمجة كتب : [ -> ]الآن البرنامج أول ما يشتغل معك يتحمل البيانات في جميع الكمبوبوكس ؟
إذا نعم انسخ الاكواد الموجوده في الفورم لود وضعها في آخر كود الحفظ وآخر كود الحذف وسيعمل معك بإذن الله .
لأن مشروعك شغلته ظهرت اخطاء .
اولا بشكرك على الاهتمام بموضوعي
ثانيا انا جربت نفس الطريقة ما اشتغلت
ثالثا ده ملف البرنامج بالكامل
ملحوظة ممكن تغير عنوان تحميل البيانات علشان يشتغل معاك اللى في صفحه الكونيكشن
https://www.mediafire.com/file/mqrhga132...20Chem.rar