منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد

منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد (/showthread.php?tid=30285)

الصفحات: 1 2

RE: منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد - سعود - 16-07-19

(16-07-19, 03:39 AM)سلام نيس كتب : احسنتم جميعا
والشكر لكم
تم حل المسكله بالتحقق من من الداتا جريد فيو بهذا الكود

كود :

For i = 0 To DataGridView1.Rows.Count - 1 If DataGridView1.Rows(i).Cells(0).Value = Item_code.Text Then MsgBox

فيه كود ابسط لو تستخدم DataTable او DataSet ممكن تكتب دالة من سطر واحد باستخدام select و count لكن مادام وجدت ان الافضل التحقق من نفس Datagridview فخلاص Smile

تحياتي اخي الكريم.

RE: منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد - سلام نيس - 16-07-19

(16-07-19, 03:48 AM)سعود كتب :
(16-07-19, 03:39 AM)سلام نيس كتب : احسنتم جميعا
والشكر لكم
تم حل المسكله بالتحقق من من الداتا جريد فيو بهذا الكود

كود :

For i = 0 To DataGridView1.Rows.Count - 1 If DataGridView1.Rows(i).Cells(0).Value = Item_code.Text Then MsgBox

فيه كود ابسط لو تستخدم DataTable او DataSet ممكن تكتب دالة من سطر واحد باستخدام select و count لكن مادام وجدت ان الافضل التحقق من نفس Datagridview فخلاص
تحياتي اخي الكريم.

تحياتي لمجهودك ياغالي
انا فعلا بستخدم جملة الاستعلام
في حالة الاضافه

كود :

 Try

            Dim sql = "select * from Customer where CustomerCode=N'" & (CustomerCode.Text) & "'"

            Dim adp As New SqlClient.SqlDataAdapter(sql, SQLConn)

            Dim ds As New DataSet

            adp.Fill(ds)

            Dim dt = ds.Tables(0)

            If dt.Rows.Count > 0 Then

                MsgBox("اسم العميل موجود بالفعل", MsgBoxStyle.Exclamation, "رسالة تنبيه")

            Else

                Dim dr = dt.NewRow

لاحظ هنا قولتله

كود :

If dt.Rows.Count > 0 Then

                MsgBox("اسم العميل موجود بالفعل", MsgBoxStyle.Exclamation, "رسالة تنبيه")

لو غير كده عرف ال dr علي انها newrow
طيب في حالة التعديل بستخدم نفسه بس في حاله

كود :

If dt.Rows.Count = 0 Then

                MsgBox("لم يتم العثور علي كود العميل", MsgBoxStyle.Exclamation, "رسالة تنبيه")

            Else

                Dim dr = dt.Rows(0)

هنا قولتله لو هي مش 0 عرف ال dr علي انها السجل الحالي وابدأ عدل
طيب انا بقي لو عملت الاتنين في زر واحد
مضطر اقوله

كود :

           If dt.Rows.Count > 0 Then

يبقي عدل
طيب لو = 0
يبقي تبدأ تضيف
هنا بقي المعضله
انه هيضيف من غير مايبص للاسم
ف لازم يكرر الاسم لاني استخدمت الحالتين < و =
ف اضطريت ان اخليه يتحقق من الداتا جريد فيو من خلية الاسم
لو يساوي الاسم اللي انا كتبته ماتضيفش
لو مايساويس ضيف
مع العلم اني بفرغ كل ال textbox عند الضغط علي زر الحفظ
ولما احب اعدل بضغط ع المراد تعدليه من الجريد فيو
ف عند الضغط بيعبي textbox بالبيانات ابدا انا اعدلها

كل الشكر والاحترام لاهتمامك

RE: منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد - ابراهيم ايبو - 16-07-19

الحمد لله والشكر لله

السلام عليكم ورحمة الله وبركاته

اخي الكريم منذ البداية وضحنا لك عبر كل من قام بالرد مشكورا

ان التخقق يكون اما على ID او على كود الصنف لانه لايتكرر

وانت كنت تريد التحقق بالاسم ... المهم انك وصلت الى غايتك وهذا شيء يفرحنا جميعا

دمت بخير

RE: منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد - سلام نيس - 16-07-19

شكرا جزيلا وسوف ارفق المشروع كامل ان شاء الله