+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=11434)
يرجى المساعدة ضروري عداد وترقيم تلقائي - بدر إشتية - 15-02-15
مساء الخير اذا ممكن يا شباب انا عندي مشروع تخرج ومحتاج مساعدتكم
انا بعمل برنامج تسجيل طلاب مدرسة
وفي خانتين :
1 - الرقم المتسلسل : وانا بدي اياه يكوون تلقائي بمعنى المستخدم ما بدخلو هو لحاالو رح ييجي .. وما بدي اياه يكون رقم تلقائي بقاعدة البيانات
بمعنى بدي اذا كان اول سجل يكتب 1 ويخزنو بقاعدة البيانات ثم يقوم بزيادة قيمة 1 على الرقم فإذا اراد المستخدم او يخزن طالب آخر تلقائيا يظهر الرقم 2 وبالتالي يتسلسل الرقم .. وايضا اريد اذا تم حذف سجل يتم إعادة ترتيب الأرقام بالتسلسل أيضاااا .. بمعنى يكون رقم تلقائي ولكن في الفيجوال بيسك وليس في قاعدة البيانات
مثاااال : يتسلسل كالتالي :
1 احمد
2 خالد
3 علي
4 محمد
ويتسلسل بشكل تلقائي عند اضافة اي سجل .. وفي حالة حذف مثلا سجل خالد أريد ان يصبح التسلسل كالتالي :
1 احمد
2 علي
3 محمد
بمعنى يتم إعادة ترتيب السجلات
***************************
2 - رقم التسجيل : ايضااا اريده ان يكون متسلسل ك الرقم السابق ولكن المختلف هنا اني اريده ان يبدأ العداد من الرقم 1001 ويتسلسل مع اضافة سجل جديد
1001
1002
1003
1004
...... إلخ
وهذا لا أريده بعد حذف اي سجل ان يتم اعادة ترتيبه لأن كل رقم سيكون رقم التسجيل الخاص بكل طالب
يرجى المساااعدة ضروري جدا لانو عندي مشروع تخرج ولازم اخلصه .. وآسف عالاطاالة
وهي صووورة توضح شاشة التسجيل
RE: يرجى المساعدة ضروري عداد وترقيم تلقائي - raoe-041 - 16-02-15
اخي الكريم تفضل كود الترقيم التلقائي ...............
PHP كود :
sql = "Select Top 1 Studentid From tblStudents Order BY Studentid DESC"
ds = New DataSet
da = New SqlDataAdapter(sql, conn)
da.Fill(ds, "tblStudents")
dv = New DataView(ds.Tables("tblStudents"))
If dv.Count = 0 Then
txtStudentid.Text = "1"
Else
txtStudentid.Text = (Me.BindingContext(dv).Current("Studentid") + 1).ToString
End If
و من نفس الكود تستطيع ان تجعل رقم التسجيل يبدأ من اي رقم تريد ...............و كل هذه الامور موضحة في المشروع المرفق لك في المشاركة السابقة للاستاذ احمد النجار
تحياتي ..........
RE: يرجى المساعدة ضروري عداد وترقيم تلقائي - الكاتب - 16-02-15
كود :
If Sqlconn.State = ConnectionState.Open Then
Sqlconn.Close()
End If
Sqlconn.Open()
Dim da1 As New SqlDataAdapter(" select Top 1 ID from Fatora Order BY ID DESC ", Sqlconn)
Dim ds1 As New DataSet
da1.Fill(ds1)
TextB7.Text = ds1.Tables(0).Rows(0)(0) + 1
Sqlconn.Close()