+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة في الترقيم التلقائي للطلبة حسب السنة الدراسية (/showthread.php?tid=28062)
مشكلة في الترقيم التلقائي للطلبة حسب السنة الدراسية - ahmed_elwerfalli - 29-12-18
السلام عليكم
إخواني لدى ثلاثة سنوات دراسية (الصف الاول . الصف الثاني, الصف الثالث ) و هي قيمة textbox3
اريد عمل رقم دراسي لكل طالب حسب السنة الدراسية
إذا كان السنة الاولى تبدأ الارقام من 100
إذا كان السنة الثانية تبدأ الارقام من 200
و إذا كان السنة الثالثة تبدأ الارقام من 300
textbox1 هو الترقيم المتسلسل للطلبة
حاولت عمل الكود التالي و لكن للأسف لم ينجح
كود :
Function add_id()
Dim noa As Integer
Dim billno As New OleDbCommand("SELECT max(std_no) From stdinfo WHERE (((stdinfo.std_year)=" & TextBox3.Text.Trim & "))", cn)
'If cn.State = ConnectionState.Open Then con.Close()
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
If billno.ExecuteScalar IsNot DBNull.Value Then
noa =1
Else
noa = billno.ExecuteScalar + 1
End If
Return noa
End Functionو أستدعيت الدالة هنا
كود :
Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If TextBox3.Text = 1 Then
If add_id() = 1 Then
TextBox1.Text = 100
End If
End If
If TextBox3.Text = 2 Then
If add_id() = 1 Then
TextBox1.Text = 200
End If
End If
If TextBox3.Text = 3 Then
If add_id() = 1 Then
TextBox1.Text = 300
End If
End If
End SubRE: مشكلة في الترقيم التلقائي للطلبة حسب السنة الدراسية - ahmed_elwerfalli - 29-12-18
بعد جهد ليس بقليل ..
جللت المشلة ولله الحمد
و الكود التالي يوضح الحل لعل احد المتصغحين يستفيد منه
كود :
Function add_id()
Dim noa As Integer
Dim billno As New OleDbCommand("SELECT max(std_no) From stdinfo WHERE (((stdinfo.std_year)=" & TextBox3.Text.Trim & "))", cn)
Dim total = Convert.ToInt32(IsDBNull(billno.ExecuteScalar))
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
If IsDBNull(total.ToString) Then
noa = 1
Else
If IsDBNull(billno.ExecuteScalar) Then
noa = 1
Else
noa = total.ToString(billno.ExecuteScalar) + 1
End If
End If
Return noa
End Function