منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حفظ البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حفظ البيانات (/showthread.php?tid=41748)

حفظ البيانات - mohamedassim - 17-06-22

السلام عليكم ورحمة الله
احاول استخدام هذا الكود لغرض حفظ البيانات وكن تظهر لي رسالة خطأ



 Dim Row As DataRow = dt.NewRow
        Row(0) = TxtCat.Text
        Row(1) = TxtCatName.Text
        Row(2) = Txtprofit.Text
        Row(3) = TxtCatNote.Text

        dt.Rows.Add(row)
        cmdb = New SqlCommandBuilder(adapter)
        adapter.Update(dt)


تظهر رسالة الخطا التالية
Severity Code Description Project File Line Suppression State
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 117 Active
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 114 Active
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 115 Active
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 116 Active



RE: حفظ البيانات - ابراهيم ايبو - 17-06-22

السلام عليكم ورحمة الله وبركاته
اخي الكريم
تفضل التعديل
كود :
Dim last As Integer = dt.Rows.Count
       Dim Row As DataRow = dt.NewRow
       dt.Rows.Add()
       dt.Rows(last).Item("TxtCat") = TxtCat.Text
       dt.Rows(last).Item("TxtCatName") = TxtCatName.Text
       dt.Rows(last).Item("Txtprofit") = Txtprofit.Text
       dt.Rows(last).Item("TxtCatNote") = TxtCatNote.Text
     
       Dim cmdb As New OleDbCommandBuilder()
       cmdb = New OleDbCommandBuilder(adapter)
       adapter.Update(dt)
       dt.AcceptChanges()