الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طريقة عمل AutoNumber فى زر الإضافة

بدأه مصطفى_ظيمة في 29 أبريل 2010 · 12 رد · 1,028 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخوانى الأعزاء .. السلام عليكم

أرجو مساعدتى فى الموضوع التالى

نفترض انى عندى حقل اسمه code فى جدول اسمه gen

هذا الحقل يتولد فيه أرقام مسلسلة للبيانات المدخلة

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

انا اعرف انه يمكن عمل الرقم التسلسلى فى هذا الحقل عند إنشاء الجدول ولكن أريد ذلك بكود يكون فى زر الإضافة

علما بأننى استخدم vb2008

أرجو أن يكون شرحى لطلبى واضح

ولكم منى أرق التحية

#2

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

SELECT ISNULL(MAX(code), 0) + 1 FROM gen

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

بسم الله الرحمن الرحيم

أخى العزيز ممكن تستخدم ده كمان

insert into banks (Bancname,id) select  'boda',(select max(id)+1 from banks )

فى الكود ده طبعا هيعمل اللى بين ألأقواس الأول

و هيجيب اكبر قيمة موجودة هناك و بعد كده يروح ينفذ جملة الinsert

#4

إذا كان الحقل AutoNumber فلن يتمكن من عمل Insert بداخله إلا إذا فعل هذه العملية أولا عن طريق تنفيذ الجملة

SET IDENTITY_INSERT gen ON

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

اخوانى الأعزاء

شاكر لكم مساعدتكم لى

وقد حاولت ان انفذ الكود اللى كتبتوه لكن لم اعرف

لذا فقد أرفقت لكم المثال اللى باعمل عليه

ارجو التعديل عليه

وشكرا لكم

Mostafa_Zema v3.0.rar

#6

الاستاذ مصطفى كان بودي ساعدك بس الرابط مو شغال ماعم ينزل الملف كامل ارجو ان تتاكد من رفعه وشكرا

#7

تقبل عذرى أخى وها وهو المثال مرة أخرى

Mostafa_Zema v3.0.rar

#8

جرب هذا الكود يعمل لدى بصوره جيده

cm.CommandText = "select max(rid)as id from amaster"
        cm.CommandType = CommandType.Text
        cm.Connection = cnn
        dr = cm.ExecuteReader
        Do While dr.Read()
            TextBox1.Text = dr("id") + "1"
            If TextBox1.Text <= 1 Then
                TextBox1.Text = "2301001"
            End If
        Loop

الخير هنا ربى اغفر لى ولوالدى وللمؤمنين يوم يقوم الحساب000 امين

#9

ما اشتغل الكود مع المثال السابق ارفاقه

ياريت تظبط الكود مع المثال السابق

#10

ما فيش حد يساعدنى يا اخوان

#11

الأخ مصطفى_ظيمة

مرفق لك تعديل على البرنامج كما هو موضح في الصوره

شكرا

post-227437-12727171774024_thumb.jpg

Mostafa_Zema v3.zip

#12

اخى العزيز عمر

بارك الله فيك وجزاك الله خير وجزاك خير الجزاء

وشاكر لك على هذا العمل الرائع

#13

ألأخ مصطفى

لاشكر على واجب

مواضيع مشابهة