[سعود]

المثال لم يعمل عندي لا ادري ما المشكلة!

[احمد عبد الحكيم]

ما مشكلة لا يفتح ام ماذا
فا انا اعمل على فيجوال بيسك 2010

---

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

[سعود]

الان فتح معي
سبق وقلت لك  تعمل مثال جديد بسيط حتى يكون شغلي محصور بشي معين لكي اجزم اني حليت المشكلة اما الان لا استطيع ان اجزم اني ساعدتك لكن انظر للتعديل الخاص باجراء الحفظ لجدول buy1

كود :

Private Sub SaveBuy1(ByVal id As String, ByVal sdate As String, ByVal cuid As String, ByVal name As String, ByVal address As String, ByVal phone As String, ByVal driv As String, ByVal assi As String, ByVal caid As String, ByVal cna As String, ByVal cq As String, ByVal cnu As String, ByVal tot As String, ByVal md As String, ByVal pa As String)
       Con.Open()
       Using olecmd As New OleDbCommand("INSERT INTO buy1 ([date],cusid, cus, address, phone,driv, assis, carid, carnam,carqan, carnum, invtol, mdfo, baky) VALUES (@sdate,@cuid, @name,@address,@phone,@driv,@assi,@caid,@cna,@cq,@cnu,@tot,@md,@pa)", Con)
           olecmd.Parameters.Clear()
           ' olecmd.Parameters.AddWithValue("@id", id)
           olecmd.Parameters.AddWithValue("@sdate", sdate)
           olecmd.Parameters.AddWithValue("@cuid", cuid)
           olecmd.Parameters.AddWithValue("@name", name)
           olecmd.Parameters.AddWithValue("@address", address)
           olecmd.Parameters.AddWithValue("@phone", phone)
           olecmd.Parameters.AddWithValue("@driv", driv)
           olecmd.Parameters.AddWithValue("@assi", assi)
           olecmd.Parameters.AddWithValue("@caid", caid)
           olecmd.Parameters.AddWithValue("@cna", cna)
           olecmd.Parameters.AddWithValue("@cq", cq)
           olecmd.Parameters.AddWithValue("@cnu", cnu)
           olecmd.Parameters.AddWithValue("@tot", tot)
           olecmd.Parameters.AddWithValue("@md", md)
           olecmd.Parameters.AddWithValue("@pa", pa)
           olecmd.ExecuteNonQuery()
       End Using
   End Sub

ثم انظر للتعديل الخاص باجراء الحفظ لجدول buy2

كود :

Private Sub SaveBuu2(ByVal id1 As String, ByVal date1 As Date, ByVal itemid As String, ByVal name As String, ByVal q As String, ByVal price As String, ByVal total As String)

       Dim sql As String = "INSERT INTO buy2  (invono, date, invsuc, invsun, invqu, invprc, invsal) VALUES (@date,@itmid,@name,@q,@price,@total)"
       Using olecmd As New OleDbCommand(sql, Con)
           olecmd.Parameters.Clear()
           ' olecmd.Parameters.AddWithValue("@id", id1)
           olecmd.Parameters.AddWithValue("@date", date1)
           olecmd.Parameters.AddWithValue("@itmid", itemid)
           olecmd.Parameters.AddWithValue("@name", name)
           olecmd.Parameters.AddWithValue("@q", q)
           olecmd.Parameters.AddWithValue("@price", price)
           olecmd.Parameters.AddWithValue("@total", total)
           If Con.State = ConnectionState.Closed Then
               Con.Open()
           End If
           olecmd.ExecuteNonQuery()
           Con.Close()

       End Using
   End Sub

مثل ماقلت لك لو تسوي مثال جديد جديد New Example
استطيع ان اقدم لك المفيد

[احمد عبد الحكيم]

اشكرك كثير الشكر ثاقوم بعمل مثال جديد وارفعه لك انشاء الله

[سعود]

لابد يكون المثال بسيط يعني جدول1 فيه ترقيم تلقائي واسم وجدول2 فيه عمود يرتبط بالترقيم التلقائي بالجدول1 اضافة الى اعمدة اخرى وليكن عمود رقم الجوال مثلا.
بهذا المثال البسيط تستطيع معرفة آلية التعامل مع الجداول.

[احمد عبد الحكيم]

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


  datagrid.rar (الحجم : 96.68 ك ب / التحميلات : 38)

[سعود]

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

---

آمل ان يكون المثال هو ماتريد

[احمد عبد الحكيم]

اخى العزيز هذه هى الفكرة التى اريدا تماما شكرا جزيلا لك ثوف اقوم بتعديلها لدى
وارجو اننى قد لا اكون ازعجتك كثيرا
لاكن ارجو منك تحويل المشروع الى 2010

[سعود]

انظر لهذه الطريقة لفتح المشروع
او هذي

[احمد عبد الحكيم]

اشكرك شكرا جزيلا اخى سعود لاكن ما هذا الخطأ