[بلدي]

(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