تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد حفظ وتحديث البيانات بعد تعبئتها في الداتا جريد فيو ---
#1
السلام عليكم ورحمة الله وبركاته
كيف أحوالكم أخوتي
لدى مشروع صغير أعمل عليه في بيئة الدوت نت
اشتغل على إصدار 2010
بقاعدة بيانات أكسيس اسمها DB.accdb وبالطبع الاتصال يكون عن طريق OleDbConnection
لدى جدولين
الأول يحتوى على معلومات الأصناف (الكود , اسم الصنف , السعر , الكمية )
والثاني لتسجيل المبيعات
ما أريده يا شباب الخير
بعد إدراج الأصناف بالداتا جريد فيو
1- يتم حفظ جميع الأصناف في جدول المبيعات ( تم تنفيذه)
2- يتم تحديث جدول الأصناف بخصم الكميات المباعه والمدرجه في الداتا جريد فيو ( المطلوب )
لقد حاولت مرارا وتكرار باستخدام For .. Next
ولكن كل محاولاتي بائت بالفشل
بالله عليكم ساعدوني
ولكم جزيل الشكر والثواب
صورة للتوضيح



نموذج من المشروع للتعديل عليه
.rar   WindowsApplication10.rar (الحجم : 493.15 ك ب / التحميلات : 181)
الرد }}}}
تم الشكر بواسطة:
#2
اعذرني اخي على قلة وقتي ولاكن هذا مثال اعتقد انه لأخي سعود وفقه الله

يمكن منه ان يفيدك في نفس مشروعك

http://www.gulfup.com/?AOHLzb
الرد }}}}
تم الشكر بواسطة:
#3
أحي الكريم العزابي
لا ادرى باي الكلام أشكرك على محاولتك مساعدتى
ولكن المشروع المرفق لم يجدى نفعا معى لأنه لا يعتمد على مخزون
شكرا لك أخي الكريم
وأنتظر من أحد الأعضاء الكرام مساعدتى
الرد }}}}
تم الشكر بواسطة:
#4
إقتباس : اعذرني اخي على قلة وقتي ولاكن هذا مثال اعتقد انه لأخي سعود وفقه الله
واياك اخي الكريم .. لكن المشروع من برمجة وتصميم الاخ ramilove بارك الله فيه.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: العزابي
#5
ياشباب الله يبارك فيكم
عاوز حل ....
بالله عليكم
الرد }}}}
تم الشكر بواسطة:
#6
انت تريد مثلاً اذا بعت 50 صندوق من اصل 150 صندوق تصبح الكمية 100 في الجدول
هل هذا ما تريد
الرد }}}}
تم الشكر بواسطة:
#7
اخي الكريم اطلعت على المشروع ووجدت اكواد لم افهمها .. فلو تريد اسوي مثال بالفكرة ونت عاد تشوف رايك فيه خبرني.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
إقتباس :انت تريد مثلاً اذا بعت 50 صندوق من اصل 150 صندوق تصبح الكمية 100 في الجدول
هل هذا ما تريد

أخي الكريم honest
أذا كان الأمر يقتصر على صنف واحد باتت المشكلة محلولة
الداتا جريد فيو هنا لعرض اصناف الفاتورة فقط ويتم تفريغها بعد الحفظ وتحديث الكمية في قاعدة البيانات
ما اريده هو ما قصدته انت بعينه ولكن مع تكرار الأمر للاصناف الموجوده كلها في الداتا جريد فيو باستخدام For .. Next وحفظها وتحديثها في قاعدة البيانات
بمعنى اخر ....
قمت مثلا بتسجيل 4 اصناف مختلفين في الداتا جريد فيو
والمباع من كل صنف 10 من الكمية
المطلوب خصم القيمة المباعة من كل الاصناف الموجوده مره واحده

إقتباس :اخي الكريم اطلعت على المشروع ووجدت اكواد لم افهمها .. فلو تريد اسوي مثال بالفكرة ونت عاد تشوف رايك فيه خبرني.

أخي الفاضل سعود
اشكرك جدا لطرحك هذا واتمنى منك مساعدتى
ما اريده ببساطه
أن يتم حفظ الاصناف المباعه , وتحديث الكمية في قاعدة البيانات بكود واحد يعتمد على دالة For ....Next لكي يتم التكرار برمجيا
ملحوظه قاعدة البيانات المستخدمة من نوع أكسيس
انتظر منك المثال
شاكر جدا لكم إخواني الأكارم
الرد }}}}
تم الشكر بواسطة:
#9


والمثال مرفق


الملفات المرفقة
.zip   For_MobEng.zip (الحجم : 61.08 ك ب / التحميلات : 249)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#10
كم أنت كبير أخي سعود
تعجز الكلمات وتتوارى الحروف ويخجل القلم ان يقف هذا الموقف,
فقد تخونه العبارات وتتشتت الجمل ويضيع المعنى ,ولا يصل الهدف ,
أشكرك لأنك أجتهدت لترد على سائل وتساعده
ولكنى لم استطيع فتح المشروع اعتقد انه تم تنفيذه بإصدار أعلى مما انا عليه
فانا اعمل على إصدار 2010
عموما أبشرك أخي فلقد وفقنى الله للوصول إلى الحل الصحيح
فكما تفضلت حضرتك في المثال الخاص بك
ان يتم البيع ويتم بعدها تحديث قاعدة البيانات بخصم الكميات المباعة من الكميات الموجود
-----
كان من السهل أن يتم هذا الإجراء بالنسبة إلى في حالة ما إذا كان المباع صنفا واحدا بهذا الكود
كود :
UPDATE kotob SET mojod = mojod - [?] WHERE (((tid = [?])))

طيب إذا كان المباع أكثر من صنف ( أصناف مختلفة بكميات مختلفة )
قمت بإنشاء إجراء مخزن في الاكسيس كالاتى
قمت بكتابة الكود ووضعته في حلقة For ... next
ليصبح بهذا الشكل
كود :
For I As Integer = 0 To Me.dgv.Rows.Count - 1
               Dim ecode As Int32 = CInt(Me.dgv.Rows(I).Cells(0).Value) 'تخزين الآي دي الخاص بالمادة
               'جلب الكمية الحالية للمادة المحددة
               Dim DsNowQ As New DataSet
               MyMod.Me_DSFillText(DsNowQ, "Select enum From esanf where ecode=" & ecode & "", "esanf")
               Dim NowQ As Double = CDbl(DsNowQ.Tables(0).Rows(0).Item(0))
               Dim GridQ As Double = CDbl(Me.dgv.Rows(I).Cells(3).Value)
               Dim NewQ As Double
               NewQ = NowQ - GridQ
               'البدء بعملية التعديل لجميع الأصناف بعاليه
               MyMod.Me_SqlExecute("Update esanf Set enum =" & NewQ & " Where ecode= " & ecode & "", False)
           Next
esanf = جدول الأصناف في قاعدة البيانات
enum = حقل الكمية الموجود في جدول الاصناف وهو بيت القصيد
sanf = اسم الصنف المباع ويتم التطابق عليه من الداتا جريد فيو
MyMod.Me_SqlExecute = إجراء مخزن في مديول
وهو
كود :
If MsgState = True Then
           If MsgBox(Msg, MyMod.Me_MsgQuestion, MyMod.Me_MsgCaption) = vbYes Then
               Dim Cmd As New OleDbCommand(SqlStr, MyMod.Conn)
               Cmd.CommandType = CommandType.Text
               If MyMod.Conn.State = ConnectionState.Open Then MyMod.Conn.Close()
               Conn.Open()
               Cmd.ExecuteNonQuery()
               MyMod.Conn.Close()
               Cmd.Dispose()
           End If
           Return True
       Else
           Dim Cmd As New OleDbCommand(SqlStr, MyMod.Conn)
           Cmd.CommandType = CommandType.Text
           If MyMod.Conn.State = ConnectionState.Open Then MyMod.Conn.Close()
           Conn.Open()
           Cmd.ExecuteNonQuery()
           MyMod.Conn.Close()
           Cmd.Dispose()
       End If
       Return True

عذرا للإطالة ......
واشكرك جدا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 45 أمس, 11:22 AM
آخر رد: ممدوح الخطيب
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 93 أمس, 01:11 AM
آخر رد: adel27
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 31 05-12-16, 07:53 PM
آخر رد: kofa
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 58 05-12-16, 02:18 PM
آخر رد: a_abdullah
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 54 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 45 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 210 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 70 01-12-16, 07:04 AM
آخر رد: araxis
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 61 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 180 29-11-16, 07:26 AM
آخر رد: amgad525

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم