بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لدي قاعدة بيانات Data، تحتوي على جدول واحد باسم Zatea
تم عرض محتويات ذلك الجدول على داتاجريد ... والامور سليمة والحمد لله
تم وضع زر اضافة على شاشة البرنامج من اجل اضافة ذاتية جديدة
تم كتابة الكود
ملاحظة ( من خلال البحث بالانترنيت وبالامثلة المختلفة ... استنتجت ان هناك 3 طرق يمكن استخدامها من اجل الاضافة في الوضع المنفصل...)
بدأت باحدى الطرق والتي احببتها ووجدتها واضحة نوعا ما
وفيما يلي نض الكود
Dim dRow As DataRow
dRow = ds.Tables("Zatea").NewRow
With dRow
.Item("Customer") = Customer_txt.Text
.Item("area") = Area_ComboBox.Text
.Item("bayan") = Bayan_Listbox.SelectedItem
.Item("Phone1") = Phone1_txt.Text
.Item("Phone2") = Phone2_txt.Text
.Item("Mobile") = Mobile_txt.Text
.Item("Fax") = fax_txt.Text
.Item("Email") = email_txt.Text
.Item("Note") = Note_txt.Text
End With
ds.Tables("Zatea").Rows.Add(dRow)
da.Update(ds, "zatea")
ds.AcceptChanges()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")ولكن يعطي رسالة خطا، ولا تتم اضافة البيانات
ارجو من اخواني الكرام، تعديل المثال المرفق، وفق الطريقة المذكورة وليس ضمن طريقة اخرى.....حتى اتعلم اين اخطئت
والف شكر