13-09-24, 11:49 PM
(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
طبعاً بعد ما تغير المسيمات واسماء الحقول والجدول لما يناسب مشروعك ...
أشكرك أخي العزيز طه عسى الله لايحرمنا منك
ظهر لي خطأ برمجي
