مساعدة فى زر الاضافة والحفظ

ولا رد

ياخت سلمى حاولي تبحثي في المنتدى اكيد في مواضيع تشرح الاضافة والحفظ والحذف من الالف الى الياء

المهم بالنسبة للاضافة والحفظ

rs.AddNew
rs!id = 10
rs!a1 = "مدعي10"
rs.Update

بالنسبة لـ ListView1 اما انك تعملي كود يضيف مع الاضافة للقاعدة البيانات او انك تقومي بإعادة تعبئة من ملف قاعدة البيانات للاداة مرة ثانية

وعفوا على التاخير

اخى الكريم انا الحمد لله حليت مشكلة الاضافة والحفظ

لكن عندى مشكلة فى التعديل

يعنى اريد زر الحفظ يكون لحفظ البيانات والتعديل

المثال

تحميل

اخى الكريم

المشروع ناقص كود للتعديل

جزاك الله خير

سلمى محمد كتب:

اخى الكريم انا الحمد لله حليت مشكلة الاضافة والحفظ

لكن عندى مشكلة فى التعديل

يعنى اريد زر الحفظ يكون لحفظ البيانات والتعديل

المثال

تحميل

اخى الكريم

المشروع ناقص كود للتعديل

جزاك الله خير

بالنسبة للتعديل حسب ماشفت من برنامج بيكون كالتالي

لاحظت كود عند النقر على listview1 وهو

Private Sub ListView1_Click()
On Error Resume Next
Text1.Text = ListView1.SelectedItem.SubItems(1)
End Sub

اضيفي سطر التالي لكي يصبح

Private Sub ListView1_Click()
On Error Resume Next
Text1.Text = ListView1.SelectedItem.SubItems(1)
Text1.Tag = ListView1.SelectedItem.Text
End Sub

بعدها نجي لكود حفظ التعديل

rs.Find "id=" & Text1.Tag, , , 1
    If Not rs.EOF Then
        rs!Name = Text1.Text
        rs.Update
    End If

طبعا هذا يعدل في قاعدة البيانات والباقي عليكي