تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود في برنامج مبيعات
#1
باعمل برنامج مبيعات
وباضيف فاتورة الشراء داخل داتا جريد فيو
وعملت button خاص بحفظ البيانات من الداتا جريد فيو مرة واحدة داخل قاعدة بيانات اكسس
ومحتاج كود
عند اضافة اسم صنف
لو الصنف موجود يعمل تعديل عليه
ولو الصنف مش موجود يضيف جديد

(كود البحث عن الاصناف الموجودة داخل الجريد فيو)
الرد
تم الشكر بواسطة:
#2
ساقوم بشرح الفكرة لك نظرياً 
وانت تقوم بتطبيقها عملياً لان انت لا قمت بوضه المشوع
أو اى بيانات على قاعدة البيانات وما ذلك

فى زر الاضافة..
فى البداية ستعمل كود استعلام على ان يستعلم على اسم الصنف
من ثم التحقق من خلال IF اذا كان الاستعلام ايجابى اى يوجد ناتج
وداخل IF اذا تحقق تقوم بوضح كود التعديل بدلاً من الاضافة

واذا كان ناتج IF سلبى اي لا يوجد اسم الصنف بقاعدة البيانات
فى ذلك تضع كود الاضافة

الشرح بالاعلى ينطبق على قاعدة البيانات

طيب لو كان الامر على Datagridview

كل ما هو عليك فعله فى البداية
جلب عدد محتوى الـ Datagridview

من ثم عمل For يقوم بالعد من 0 الى قيمة محتوى Datagridview
من ثم بداخله شرط التحقق IF
يقوم بالتاكد بان Row الخاص بـ Datagridview

بحيث ان يكون كود الشرط بهذا الشكل
كود :
IF DataGridView1.Rows(i)(2).Value = "اسم الصنف" Then
'-| ضع كود التعديل |-'
Else
'-| ضع كود الاضافة |-'
End If

اتمنى ان يكون الفكرة قد وصلت لك
وان تكون الامور مبسطة لديك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة:
#3
(13-06-18, 01:57 PM)elgokr كتب :
ساقوم بشرح الفكرة لك نظرياً 
وانت تقوم بتطبيقها عملياً لان انت لا قمت بوضه المشوع
أو اى بيانات على قاعدة البيانات وما ذلك

فى زر الاضافة..
فى البداية ستعمل كود استعلام على ان يستعلم على اسم الصنف
من ثم التحقق من خلال IF اذا كان الاستعلام ايجابى اى يوجد ناتج
وداخل IF اذا تحقق تقوم بوضح كود التعديل بدلاً من الاضافة

واذا كان ناتج IF سلبى اي لا يوجد اسم الصنف بقاعدة البيانات
فى ذلك تضع كود الاضافة

الشرح بالاعلى ينطبق على قاعدة البيانات

طيب لو كان الامر على Datagridview

كل ما هو عليك فعله فى البداية
جلب عدد محتوى الـ Datagridview

من ثم عمل For يقوم بالعد من 0 الى قيمة محتوى Datagridview
من ثم بداخله شرط التحقق IF
يقوم بالتاكد بان Row الخاص بـ Datagridview

بحيث ان يكون كود الشرط بهذا الشكل
كود :
IF DataGridView1.Rows(i)(2).Value = "اسم الصنف" Then
'-| ضع كود التعديل |-'
Else
'-| ضع كود الاضافة |-'
End If

اتمنى ان يكون الفكرة قد وصلت لك
وان تكون الامور مبسطة لديك

تحياتى لك
وتمنياتى لك التوفيق


انا استخدمت الكود ده
PHP كود :
For xx As Integer 0 To dgv_bill.Rows.Count 1


            Dim cm 
As New OleDbCommand("select count(item_code) from items where item_code=@Column2"Conn5)


 
           Conn5.Open()
 
           If cm.ExecuteScalar 0 Then

                MsgBox
("هذا الصنف موجود مسبقا")
 
               Exit Sub

            End 
If

 
       Next 
لكن بيظهر مشكلة


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#4
اين هى قيمة @Column2

اذا كنت تريد عمل كود الاستعلام من خلال 
Parameters

فيجب عليك وضح هذه الاسطر 
كود :
cm.Parameters.Add("@Column2", SqlDbType.VarChar)
cm.Parameters("@Column2").Value = '-|رقم الصنف|-'

اعلى هذه المنطقة
كود :
Conn5.Open()

مع استبدال هذه الجملة
PHP كود :
'-|رقم الصنف|-' 

بالرقم الخاص بالاستعلام

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة:
#5
(13-06-18, 05:36 PM)elgokr كتب :
اين هى قيمة @Column2

اذا كنت تريد عمل كود الاستعلام من خلال 
Parameters

فيجب عليك وضح هذه الاسطر 
كود :
cm.Parameters.Add("@Column2", SqlDbType.VarChar)
cm.Parameters("@Column2").Value = '-|رقم الصنف|-'

اعلى هذه المنطقة
كود :
Conn5.Open()

مع استبدال هذه الجملة
PHP كود :
'-|رقم الصنف|-' 

بالرقم الخاص بالاستعلام

تحياتى لك
وتمنياتى لك التوفيق

تسلم يا هندسة
تم وشكرا للمساعدة
الرد
تم الشكر بواسطة: elgokr
#6
الشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 24 446 منذ 31 دقيقة مضت
آخر رد: ay.alhaj
  عملت برنامج حظر مواقع واريد حذفها مرة أخرى ابو روضة 6 121 12-10-18, 05:49 AM
آخر رد: ابو روضة
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 143 03-10-18, 02:48 PM
آخر رد: ScreamVoice
  محتاج برنامج DOX.1 12 264 01-10-18, 02:00 AM
آخر رد: DOX.1
  مطلوب برنامج اعراب جمل عربية المبرمج الممتاز 16 343 28-09-18, 01:18 PM
آخر رد: ابراهيم ايبو
  مساعدة فى برنامج اصنعوة (مكرار) naderalkeng54 4 108 28-09-18, 10:59 AM
آخر رد: naderalkeng54
  [VB.NET] استفسار :- بخصوص network بين اكثر من برنامج dubai.eig 3 101 26-09-18, 11:01 PM
آخر رد: dubai.eig
  مشكلة في برنامج قواعد بيانات وجداول وحقول من نوع اكسس ابراهيم ايبو 3 192 25-09-18, 11:57 AM
آخر رد: ابراهيم ايبو
  محتاج اعرف اذاى اشفر برنامج فيجول بيسك naderalkeng54 1 77 23-09-18, 09:35 PM
آخر رد: elgokr
  [VB.NET] اريد مساعدة فى برنامج اصنعة فى الفجول بسك naderalkeng54 4 253 18-09-18, 03:04 PM
آخر رد: naderalkeng54

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


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