تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف أتجاوز شرط داخل بتن بالتشك بكس
#1
السـلام عليكم ورحمة الله وبركاته 

عندي شـرط داخل زر الأضافه والشرط عباره عن عدم تكرار البيانات في القاعده عند الحفظ 

وضعت تشك بكس ووضعت هذا الأمر 
  If CheckBox1.CheckState = 1 Then

هنــا كود التنبيه بأنه متكرر

Eles

أختصار sub seve وفيه كود الحفظ

عند التطبيق أتضح لي أني لما أضع على التشك علامه يظهر التنبيه بوجود البيانات مكرره 
ولما أزيلها ما يحفظ يبقى كذا بدون ما يعطيني خطأ ولا شي
الرد }}}
تم الشكر بواسطة:
#2
هل تريد من فكرة التشك بوكس انه يمنع التكرار في حال تفعيله؟ ويسمح اذا لم يفعل؟
اذا فهمي صحيح فلا بد من استعلام ونتيجته هي التي تؤكد لك ان كان (مثلا-الاسم) مسجل من قبل.
الرد }}}
تم الشكر بواسطة:
#3
بالضبط يا سلام عليك هذا اللي أبيه إذا مفعل أسمح بالتكرار 

إذا غير مفعل لا تسمح بالتكرار 


   da = New SqlDataAdapter("select * From All_Data Where Num_P = '" & TxtNumPark.Text & "'", conn)
        ds = New DataSet
        da.Fill(ds)
        If CheckBox1.CheckState = 1 Then
            da.Fill(ds)
            Dim shk As New DataTable
            shk = ds.Tables(0)
            If shk.Rows.Count > 0 Then
                MsgBox("عزيز المستخد البرقيه مكرره ", MsgBoxStyle.Critical, "تنبيه")
                'Exit Sub

هاذي الجمله بدون التشك بكس فعاله 
ولكن لما أضعها في جملة أف تتفعل بعدم التكرار في حالة عدم التفعيل البرنامج لا يضيف ويعطي خطأ ولا يسوي شي ....!!!
الرد }}}
تم الشكر بواسطة:
#4
شوف الدالة هذي
PHP كود :
Private Function isfound(ByVal un As String) As Integer
        Dim cm 
As New OleDb.OleDbCommand(""con)
 
       cm.CommandText "select count(tid) from tb where tname='" un "'"
 
       If con.State ConnectionState.Closed Then con.Open()
 
       isfound cm.ExecuteScalar
    End 
Function 
واستخدامها كالتالي:
PHP كود :
       If CheckBox1.Checked Then
            If isfound
(tname.Text) > 0 Then MsgBox("الاسم محجوز جرب اخر") : Exit Sub
        End 
If 
الدالة تستعلم من الجدول مباشرة فقط غير ما يلزم ليعمل معك
الرد }}}
تم الشكر بواسطة: administrator
#5
ممتاز بس هذا الأستعلم مافهمته
"select count(tid) from tb where tname

سليكت كاونت (أسم القاعده) فروم أسم الجدول وير الأسم 

صح كذا لاني بطبقها على قاعدتي أو مره أستخدم أستعلا مثل كذا
الرد }}}
تم الشكر بواسطة:
#6
(31-10-15, 03:14 PM)adel27 كتب : ممتاز بس هذا الأستعلم مافهمته
"select count(tid) from tb where tname

سليكت كاونت (أسم القاعده) فروم أسم الجدول وير الأسم 

صح كذا لاني بطبقها على قاعدتي أو مره أستخدم أستعلا مثل كذا
سليكت كاونت (أسم عمود الترقيم التلقائي او عمود المفتاح الاساسي) فروم أسم الجدول وير الأسم 
كذاSmile
الرد }}}
تم الشكر بواسطة:
#7
س ع و د

أي لاف يو
الرد }}}
تم الشكر بواسطة:
#8
يلف رقبة العدو ان شاللهSmile
الرد }}}
تم الشكر بواسطة:
#9
ههههههههههههههههههههههههههههههههههه أنشاء الله 

'" & un & "'" هنا أحط التكست بكس
الرد }}}
تم الشكر بواسطة:
#10
(31-10-15, 03:33 PM)adel27 كتب : ههههههههههههههههههههههههههههههههههه أنشاء الله 

'" & un & "'" هنا أحط التكست بكس

الدالة لا تغير فيها شيء الا اسم الجدول والاعمدة فقط  المتغير un  يعبر عن القيمة المرسلة للدالة من اي حدث اخر مثلا زر امر شوف الكود الاخر
PHP كود :
If CheckBox1.Checked Then
            If isfound
(tname.Text) > 0 Then MsgBox("الاسم محجوز جرب اخر") : Exit Sub
        End 
If 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 695 26-07-23, 05:47 AM
آخر رد: Taha Okla
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم
  مساعدة كتابة التاريخ داخل داتا جريد فيو كريم عبودي 2 523 22-06-23, 12:28 AM
آخر رد: كريم عبودي
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 800 14-04-23, 05:31 PM
آخر رد: new_programer
  الكتابة داخل ملف نصى ابو روضة 6 898 07-04-23, 11:43 AM
آخر رد: kebboud

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


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