بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
أخواني الافاضل تعرضت لمشكلة بسيطة و أظنها كذلك بالنسبة لكم و هي رغبتي في عمل اضافة الرقم التلقائي حيث قمت باضافة الكود التالي
Dim V As Integer
Dim SQL As String = "SELECT MAX(st_no2) FROM stu"
Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
With CMD
.CommandType = CommandType.Text
.Connection = SqlConnection1
If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
SqlConnection1.Open()
.CommandText = SQL
V = .ExecuteScalar()
End With
Me.St_no2TextBox.Text = Val(V) + 1
SqlConnection1.Close()
المشكلة تكمن عندما تكون القاعدة خالية من البيانات أي أن قيمة الحقل المربوط بالكود 0 تظهر رسالة خطأ!!!!
وحلها في أن أضيف يدويا 1 على مكان الحقل
الرجاء مساعدتي في حل الإشكالية و لكم الشكر الجزيل
