+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=6880)
رقم متسلسل للطلاب - tecno2012 - 08-11-12
لدي جدول للطلاب يحتوي على معلومات اسم الطالب ورقم الطالب ورقم الصف والشعبة للطالبة
اعمل اضافة لاسماء الطلاب من خلال صفحة يقوم باختيار الصف ثم الشعبة وبعدها يظهر grid view يعمل اضافة لاسماء الطلاب في هذا الصف والشعبة ونعمل اضافة
السؤال:اريد الية لعمل رقم الطالب بحيث لا يتكرر ? انا عملت الية لرقم الطالب يتكون من خانة لرقم الصف وخانه لرقم الشعبة والباقي رقم متسلسل ولكنني اجدها غير فاعلة
رقم متسلسل للطلاب - Sajad - 08-11-12
السلام عليكم
اخي العزيز اجعل رقم الطالب primary key وتحل المشكلة
رقم متسلسل للطلاب - tecno2012 - 11-11-12
ليس المشكلة في ال primary السؤال الرقم لما اعمله ادخال من البرنامج ماذا ادخل يعني مثلا :رقم الهوية للشخص عبارة عن رقم معمول بطريقة حسابية هكذا اريد
رقم متسلسل للطلاب - ahmed salam - 13-11-12
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")اتمني اني اكون حليت المشكلتك
و في كلا الحالتين عند حفظ بيان جديد لاتقوم بحفظ اي شئ في خانة id
لان الرقم سوف يكون مسجل تلقائيا
لا تنساني من صالح دعائك
السلام عليكم و رحمة الله