تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التاكد و فحص حقل من نوع التشيك بكس boolean
#1
اخواني لطفا اريد المساعدة.عندي جدول اسمو 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
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة , asemshahen5
#2
(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
الرد
#3
بارك الله فيك يا بلدي الهي يرضى عليك اشكرك على المساعدة لكن جربت غيرت التشييك بقاعدة البانات لاجرب و تخبرني الراسلة لا يمكنني التعديل سواء التشيك بكس true او false يعني بالحالتين تخبرني الرسالة لا يمكنني التعديل كيف اضبطها الله يرضى عليك
الرد
تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة , asemshahen5
#4
اذا تقدر تضع المشروع يكون افضل
الرد
#5
تفضل اخوي بلدي .الفكرة فقط في رسالة التنبيه لما التشك بكس يكون False


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 95.38 ك ب / التحميلات : 7)
الرد
تم الشكر بواسطة: asemshahen5 , بلدي
#6
و الله يا بلدي اعذرني يا اخي .انا لي يبدو اني غايب عن الوعي تماما و انا يلي كنت ملخبط الموضوع.الكود الذي وضعته اخي بلدي يشتغل تمام و انا كنت فاهم ان التشك بكس بقاعدة ابيانات لما يكون غير متشيك يعني True يعني عكست المعلومات بمخي ربي يرضى عليك بهاي الليلة المباركة
الرد
تم الشكر بواسطة: asemshahen5 , بلدي , بلدي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في التشيك بوكس اليوم السابع 3 190 24-10-20, 03:44 AM
آخر رد: kiki
Sad كود حذف السجلات المختاره عن طريق (التشيك بوكس ) اسف تم تعديل المطلوب عمور2016 8 771 19-08-20, 10:44 PM
آخر رد: عمور2016
  سؤال في التشيك بوكس اليوم السابع 2 321 30-05-20, 11:54 AM
آخر رد: mohamedahmed1
  اريد كود التاكد من ان الفورم مفتوحة ام مغلقة سمير جمال 2 941 01-03-19, 07:13 PM
آخر رد: سمير جمال
  [VB.NET] استفسار :- التاكد من وجود سطر جديد في الملف dubai.eig 6 1,003 21-09-18, 08:25 AM
آخر رد: mrnooo2000
  [VB.NET] استفسار :- التاكد من الوقت بين وقتين dubai.eig 3 755 18-09-18, 07:18 PM
آخر رد: elgokr
  كود التاكد من حالت زرين bidaya 2 621 07-09-18, 05:20 PM
آخر رد: bidaya
  [VB.NET] التاكد من محتويات واجهة البرنامج محمد اسماعيل 5 1,095 25-02-18, 09:41 PM
آخر رد: العواد الصغير
  [VB.NET] التاكد من وجود طابعة بالجهاز محمد اسماعيل 0 673 06-02-18, 08:52 PM
آخر رد: محمد اسماعيل
  التاكد من صحة البيانات مع داتا قرايد فيو nooralcown 2 701 20-01-18, 12:24 AM
آخر رد: nooralcown

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم