(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

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

(14-09-24, 06:03 AM)Taha Okla كتب :

كود :

Public Function ExScalar(cmdText As String) As Integer
       Using pConn As New OleDbConnection(strConn)  '  لا تنسى تضع جملة الاتصال بقاعدة البيانات هنا مكان   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
       '  Car_Number.Text    رقم الهوية
       Dim Nx As Integer = ExScalar("SELECT Count(Car_Number) As Car_No From Car_info Where Car_Number=" & Car_Number.Text & ";")

       If Nx > 0 Then
           MessageBox.Show("رقم هذه الهوية مكرر وموجود مسبقاً")
           Exit Sub
       End If

       '  باقي الكود أدناه  ليكمل  اذا الرقم غير مكرر
   End Sub

اذا كان نوع الحقل نصي :

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       '  Car_Number.Text    رقم الهوية
       Dim Nx As Integer = ExScalar("SELECT Count(Car_Number) As Car_No From Car_info Where Car_Number='" & Car_Number.Text & "' ;")

       If Nx > 0 Then
           MessageBox.Show("رقم هذه الهوية مكرر وموجود مسبقاً")
           Exit Sub
       End If

       '  باقي الكود أدناه  ليكمل  اذا الرقم غير مكرر
   End Sub

(14-09-24, 06:34 AM)Taha Okla كتب : ارفع مشروعك
يا ريت ما تكون بتعتمد ع ادوات خارجية ..
حتى يشتغل عندنا ..