13-08-20, 07:36 PM
اخواني لطفا اريد المساعدة.عندي جدول اسمو tbl_users و حقل اسمو user_name من نوع نص و حقل اسمو can_edite من نوع boolean . اريد عند محاولة التعديل اذا كان الحقل الحقل can_edite هو False تخبر الرسالة غير مسموح لك التعديل واذا كان الحقل true يعدّل عادي حاولت هكذا لكن ما ضبطت.بارك الله فيكم
كود :
Dim Can_edite As Boolean = False
Using Cmd As New OleDbCommand With {.Connection = Conne, .CommandText = "select user_name,can_edite From Tbl_users Where user_name=@user_name And can_edite=@can_edite"}
Cmd.Parameters.Add("@can_edite", OleDbType.Boolean).Value = Can_edite
If Conne.State = ConnectionState.Closed Then Conne.Open()
Can_edite = Cmd.ExecuteScalar
End Using
If Can_edite Then
MessageBox.Show("معذرة لا يمكنك التعديل", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Return
Exit Sub
Else
' كود التعديل
End If