13-05-15, 09:50 PM
13-05-15, 09:55 PM
ما مشكلة لا يفتح ام ماذا
فا انا اعمل على فيجوال بيسك 2010
لقد قمت بتجربة المشروع عندى اكثر من مرة واشتغل تمام
الفكرة هى يجب الضغط على زر اضافة جديد لاضافة سجل جديد
فا انا اعمل على فيجوال بيسك 2010
لقد قمت بتجربة المشروع عندى اكثر من مرة واشتغل تمام
الفكرة هى يجب الضغط على زر اضافة جديد لاضافة سجل جديد
13-05-15, 10:11 PM
الان فتح معي
سبق وقلت لك تعمل مثال جديد بسيط حتى يكون شغلي محصور بشي معين لكي اجزم اني حليت المشكلة اما الان لا استطيع ان اجزم اني ساعدتك لكن انظر للتعديل الخاص باجراء الحفظ لجدول buy1
ثم انظر للتعديل الخاص باجراء الحفظ لجدول buy2
مثل ماقلت لك لو تسوي مثال جديد جديد New Example
استطيع ان اقدم لك المفيد
سبق وقلت لك تعمل مثال جديد بسيط حتى يكون شغلي محصور بشي معين لكي اجزم اني حليت المشكلة اما الان لا استطيع ان اجزم اني ساعدتك لكن انظر للتعديل الخاص باجراء الحفظ لجدول 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استطيع ان اقدم لك المفيد
13-05-15, 10:16 PM
اشكرك كثير الشكر ثاقوم بعمل مثال جديد وارفعه لك انشاء الله
13-05-15, 10:21 PM
لابد يكون المثال بسيط يعني جدول1 فيه ترقيم تلقائي واسم وجدول2 فيه عمود يرتبط بالترقيم التلقائي بالجدول1 اضافة الى اعمدة اخرى وليكن عمود رقم الجوال مثلا.
بهذا المثال البسيط تستطيع معرفة آلية التعامل مع الجداول.
بهذا المثال البسيط تستطيع معرفة آلية التعامل مع الجداول.
14-05-15, 06:03 PM
بسم الله الرحمن الرحيم
السلام عليكم اخى سعود لقد قمت بعمل مثال صغير كما طلبت
ملحوظة بجانب مربعات الاصناف يوجد سهم للاسفل هذا بعد كتابة الاصناف بمربعات النصوص يوضع فى الداتا جريد
[attachment=7066]
السلام عليكم اخى سعود لقد قمت بعمل مثال صغير كما طلبت
ملحوظة بجانب مربعات الاصناف يوجد سهم للاسفل هذا بعد كتابة الاصناف بمربعات النصوص يوضع فى الداتا جريد
[attachment=7066]
14-05-15, 07:20 PM
الصراحة يزعجني كثيرا عدم مقدرتي على فهم المثال
ان شالله احد الاخوان يساعدك
لكن لو تطلب مني اطبق الفكرة ساطبقها بابسط مثال وقد طبقتها هنا
آمل ان يكون المثال هو ماتريد
ان شالله احد الاخوان يساعدك
لكن لو تطلب مني اطبق الفكرة ساطبقها بابسط مثال وقد طبقتها هنا
آمل ان يكون المثال هو ماتريد
14-05-15, 08:44 PM
اخى العزيز هذه هى الفكرة التى اريدا تماما شكرا جزيلا لك ثوف اقوم بتعديلها لدى
وارجو اننى قد لا اكون ازعجتك كثيرا
لاكن ارجو منك تحويل المشروع الى 2010
وارجو اننى قد لا اكون ازعجتك كثيرا
لاكن ارجو منك تحويل المشروع الى 2010
14-05-15, 09:21 PM
اشكرك شكرا جزيلا اخى سعود لاكن ما هذا الخطأ