31-08-19, 12:03 PM
(26-08-19, 04:06 AM)ابراهيم ايبو كتب :السلام عليكماخي الكود الاول عبارة فنكشن يوضع لحاله اما الكود الثاني فيوضع في زر الحفظوهو سيعود عليك بقيمة true ان كان السجل الذي ستحفظه موجود سابقا وبالتالي ضع امر الخروج من الصبوان كان غير موجود يتابع الحفظوالكود الثاني هكذا في زر الحفظولكن حين وضعي للكود اعلاه اجد به اخطاءكود :
If ID_Exists(ID.Text) = True Then
MsgBox("هذا السجل موجود سابقا")
Exit Sub
Else
' هنا امر الحفظ
End If
مثلا في
كود :
Private Function ID_Exists(ByVal num As Integer) As Boolean
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
Dim cmd As SqlCommand = New SqlCommand("Select count(*) from Unit where ID= @ID", Conn)
cmd.Parameters.AddWithValue("@ID", num)
Dim result = cmd.ExecuteScalar()
Conn.Close()
Return Convert.ToBoolean(result)
End Function
أجد السطر Dim cmd As SqlCommand = New SqlCommand("Select count(*) from Unit where ID= @ID", Conn)
به مشكلة في المتغير conn حيث انني أستخدم في الاستدعاء System.Data.OleDb
وحيث وضعت هذا الكود اضطررت الى اضافة الاستدعاء Imports System.Data.SqlClient
المشكلة ان المتغير conn لايقبل الاستدعاء المزدوج اتمنى ان تصلكن فكرة المشكلة
الحياة فترة اختبار , إما أن تكون او لاتكون
لن امل من البحث ولن امل من السؤال
[b]رواد المعلوميات[/b]
