[F.H.M]

(13-09-24, 10:54 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

كود التحقق هو الدالة التالية :

كود :

   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

طبعاً بعد ما تغير المسيمات واسماء الحقول والجدول لما يناسب مشروعك ...

أشكرك أخي العزيز طه عسى الله لايحرمنا منك

ظهر لي خطأ برمجي