13-09-24, 10:54 PM
وعليكم السلام ورحمة الله وبركاته
كود التحقق هو الدالة التالية :
وطريقة الاستخدام ،، مثلاً كالتالي :
طبعاً بعد ما تغير المسيمات واسماء الحقول والجدول لما يناسب مشروعك ...
كود التحقق هو الدالة التالية :
كود :
Public Function ExScalar(cmdText As String) As Integer
Using pConn As New OleDbConnection(strConn) ' جملة الاتصال بقاعدة البيانات
pConn.Open()
Dim cmd As OleDbCommand = New OleDbCommand(cmdText, pConn)
Dim n1 As Integer
n1 = cmd.ExecuteScalar()
Return n1
End Using
End Functionوطريقة الاستخدام ،، مثلاً كالتالي :
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' TextBox1.Text رقم الهوية
Dim Nx As Integer = ExScalar("SELECT Count(IDNo) As TotalStudent From Table1 Where IDNo =" & TextBox1.Text & ";",)
If Nx > 0 Then
MessageBox.Show("رقم هذه الهوية مكرر وموجود مسبقاً")
Exit Sub
End If
' باقي الكود أدناه ليكمل اذا الرقم غير مكرر
End Subطبعاً بعد ما تغير المسيمات واسماء الحقول والجدول لما يناسب مشروعك ...
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
