منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التاكد و فحص حقل من نوع التشيك بكس boolean - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التاكد و فحص حقل من نوع التشيك بكس boolean (/showthread.php?tid=36097)



التاكد و فحص حقل من نوع التشيك بكس boolean - العيدروس - 13-08-20

اخواني لطفا اريد المساعدة.عندي جدول اسمو 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



RE: التاكد و فحص حقل من نوع التشيك بكس boolean - بلدي - 13-08-20

(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

PHP كود :
      Dim Can_edite As Boolean False
        Using Cmd 
As New OleDbCommand With {.Connection Conne, .CommandText "select can_edite From Tbl_users Where user_name=@user_name"}
 
           Cmd.Parameters.Addwithvalue("@user_name",user_name)
 
           If Conne.State ConnectionState.Closed Then Conne.Open()
 
           Can_edite Cmd.ExecuteScalar
        End Using
        If Can_edite
=false Then
            MessageBox
.Show("معذرة لا يمكنك التعديل""تنبيه"MessageBoxButtons.OKMessageBoxIcon.InformationMessageBoxDefaultButton.Button1)
 
           Return
            Exit Sub
        Else
            
' كود التعديل
        End If 

ExecuteScalar تعيد قيمه واحده فقط تحددها بعد select


RE: التاكد و فحص حقل من نوع التشيك بكس boolean - العيدروس - 13-08-20

بارك الله فيك يا بلدي الهي يرضى عليك اشكرك على المساعدة لكن جربت غيرت التشييك بقاعدة البانات لاجرب و تخبرني الراسلة لا يمكنني التعديل سواء التشيك بكس true او false يعني بالحالتين تخبرني الرسالة لا يمكنني التعديل كيف اضبطها الله يرضى عليك


RE: التاكد و فحص حقل من نوع التشيك بكس boolean - بلدي - 13-08-20

اذا تقدر تضع المشروع يكون افضل


RE: التاكد و فحص حقل من نوع التشيك بكس boolean - العيدروس - 14-08-20

تفضل اخوي بلدي .الفكرة فقط في رسالة التنبيه لما التشك بكس يكون False


RE: التاكد و فحص حقل من نوع التشيك بكس boolean - العيدروس - 14-08-20

و الله يا بلدي اعذرني يا اخي .انا لي يبدو اني غايب عن الوعي تماما و انا يلي كنت ملخبط الموضوع.الكود الذي وضعته اخي بلدي يشتغل تمام و انا كنت فاهم ان التشك بكس بقاعدة ابيانات لما يكون غير متشيك يعني True يعني عكست المعلومات بمخي ربي يرضى عليك بهاي الليلة المباركة