منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم 
في المرفقات ادرجت مشروعي اتمنى مساعدتكم لان تسليمه غدا
في المشروع عملت قاعدة بيانات وادرجت الجداول وابي اشتغل على جدول الاوردر 
المطلوب اني عرض الجدول في الفورم واقدر اضيف واحذف وابديت للبيانات اللي بدخلها انا بالجدول كل امر يكون في بوتن 
المشروع الموجود انا سويت التحديث (الابديت ) لكن باقي الحذف والاضافه مو راضي يضبط معي 
ياليت احد يقدر يساعدني واكون شاكرة 
نزلت موضوع قبل هذا بس اتوقع مافيه احد فهم المطلوب 

وعليكم السلام


في زر الإضافة نضع الكود التالي

(21-04-17, 12:50 PM)Adrees كتب : [ -> ]وعليكم السلام


في زر الإضافة نضع الكود التالي

PHP كود :

       Dim tb = New Order
        tb.OrderID = OrderDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn1").Value
        tb.CustomerID = OrderDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn2").Value
        tb.DateOrdered = CDate(OrderDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn3").Value)
        tb.DateRequired = CDate(OrderDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn4").Value)
        tb.Status = OrderDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn5").Value
        obj.Orders.InsertOnSubmit(tb)
        obj.SubmitChanges() 


وفي زر الحذف نضع الكود التالي

PHP كود :

       Dim tb = (From s In obj.Orders Where s.OrderID = OrderDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn1").Value Select s).SingleOrDefault
        obj.Orders.DeleteOnSubmit(tb)
        obj.SubmitChanges() 


للاسف مارضى يشتغل الكود معي في الاضافة اخر صف مايتنفذ وفي الحذف الصف الاول مايتنفذ

جرب الحفظ بالطريقة التالية

(21-04-17, 03:31 PM)Adrees كتب : [ -> ]جرب الحفظ بالطريقة التالية

PHP كود :

       For i As Integer = 0 To OrderDataGridView.Rows.Count - 1
            Dim tb = New Order
            tb.OrderID = OrderDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn1").Value
            tb.CustomerID = OrderDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn2").Value
            tb.DateOrdered = CDate(OrderDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn3").Value)
            tb.DateRequired = CDate(OrderDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn4").Value)
            tb.Status = OrderDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn5").Value
            obj.Orders.InsertOnSubmit(tb)
            obj.SubmitChanges()

        Next 


اما الحذف سيتم حذف السطر المحدد فقط.

بالمرفقات اضفت الخطأ اللي يطلع لي اذا سويت الرن 

الافضل اجراء العمليات (الحفظ والتعديل والحذف والاستعلام) بالكود
طريقة المعالج محصورة ولايمكن التعامل معها بحرية مثل الكود .

(21-04-17, 05:26 PM)حريف برمجة كتب : [ -> ]الافضل اجراء العمليات (الحفظ والتعديل والحذف والاستعلام) بالكود
طريقة المعالج محصورة ولايمكن التعامل معها بحرية مثل الكود .

ممكن تشرح لي اكثر انا مبتدئة وطريقة الكود كيف فيه كود معين او ايش بالضبط ؟؟