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

السؤال:اريد الية لعمل رقم الطالب بحيث لا يتكرر ? انا عملت الية لرقم الطالب يتكون من خانة لرقم الصف وخانه لرقم الشعبة والباقي رقم متسلسل ولكنني اجدها غير فاعلة
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

اخي العزيز اجعل رقم الطالب primary key وتحل المشكلة
الرد }}}}
تم الشكر بواسطة:
#3
ليس المشكلة في ال primary السؤال الرقم لما اعمله ادخال من البرنامج ماذا ادخل يعني مثلا :رقم الهوية للشخص عبارة عن رقم معمول بطريقة حسابية هكذا اريد
الرد }}}}
تم الشكر بواسطة:
#4
tecno2012 كتب :لدي جدول للطلاب يحتوي على معلومات اسم الطالب ورقم الطالب ورقم الصف والشعبة للطالبة
اعمل اضافة لاسماء الطلاب من خلال صفحة يقوم باختيار الصف ثم الشعبة وبعدها يظهر grid view يعمل اضافة لاسماء الطلاب في هذا الصف والشعبة ونعمل اضافة

السؤال:اريد الية لعمل رقم الطالب بحيث لا يتكرر ? انا عملت الية لرقم الطالب يتكون من خانة لرقم الصف وخانه لرقم الشعبة والباقي رقم متسلسل ولكنني اجدها غير فاعلة

السلام عليكم ورحمة الله و بركاته
------------------------
اخي الكريم
هناك طريقتان وكلاهما يبدأ بـــ
سوف اخذ مثال في شرحي علي قاعدة بيانات اكسس
عمل جدول وليكن اسمه data
عمل عمود و نسميه id علي سبيل المثال
و في خانة data type نختار auto number
الان اصبح لدينا عمود عند اضافة اي بيان جديدة يأخذ هوا الترقيم التلقائي 1 ,2 ,3 الخ

الطريقة الاولي .....
و هي عدم اضافة تكست بوكس لأظار الرقم للعميل
اي عندما يضيف العميل بيان جديد سوف يأخذ الرقم المسلسل تلقائيا
ويكون استخدامك ليه برمجيا اي
وليكن اذا اردت حذف بيان محدد

كود :
Public cnn As New OleDb.OleDbConnection
    Public cmd As New OleDb.OleDbCommand


كود :
Dim ro As Integer = DataGridView1.CurrentRow.Index
delnum = DataGridView1.Rows(ro).Cells("id").Value
            cmd.CommandText = "DELETE FROM data WHERE num='" & delnum & "' "

و الطريقة الثانية .......
هي اظهاره للمستخدم في تكست بوكس لا يمكن التعديل عليه
وليكن تكست بوكس 1
في الخصائص للتكس بوكس اختار
Enabled = False
و الان يمكن عرض الرقم في التكست بوكس عن طريق
اذا كنت تريد اضافة بيان جديد
كود :
Dim da As New OleDb.OleDbDataAdapter("SELECT * From data order by id", cnn)
        Dim dt As New DataTable
        da.Fill(dt)
textbox1.text = dt.rows.count + 1


اما اذا كنت تريد عرض بيان سابق
كود :
Dim da As New OleDb.OleDbDataAdapter("SELECT * From data where id=" & editnum & " order by id", cnn)
        Dim dt As New DataTable
        da.Fill(dt)
textbox1.text = dt.rows(0).item("id")
حيث ان editnum هو الرقم المسلسل للبيان المراد التعديل عليه
اتمني اني اكون حليت المشكلتك

و في كلا الحالتين عند حفظ بيان جديد لاتقوم بحفظ اي شئ في خانة id
لان الرقم سوف يكون مسجل تلقائيا

لا تنساني من صالح دعائك
السلام عليكم و رحمة الله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب برنامج او كود يقوم بطباعة 9 خانات على ملف نصي بشكل متسلسل eeme 0 303 22-09-14, 06:37 PM
آخر رد: eeme
  عمل ترتيب للطلاب دمعة المقهور 3 492 12-07-13, 06:15 PM
آخر رد: دمعة المقهور

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


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