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

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

(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.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            Return
            Exit Sub
        Else
            ' كود التعديل
        End If 

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

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

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

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

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