المشاركات : 587
المواضيع 129
الإنتساب : Sep 2015
السمعة :
8
الشكر: 1032
تم شكره 2475 مرات في 129 مشاركات
السـلام عليكم ورحمة الله وبركاته
عندي شـرط داخل زر الأضافه والشرط عباره عن عدم تكرار البيانات في القاعده عند الحفظ
وضعت تشك بكس ووضعت هذا الأمر
If CheckBox1.CheckState = 1 Then
هنــا كود التنبيه بأنه متكرر
Eles
أختصار sub seve وفيه كود الحفظ
عند التطبيق أتضح لي أني لما أضع على التشك علامه يظهر التنبيه بوجود البيانات مكرره
ولما أزيلها ما يحفظ يبقى كذا بدون ما يعطيني خطأ ولا شي
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
هل تريد من فكرة التشك بوكس انه يمنع التكرار في حال تفعيله؟ ويسمح اذا لم يفعل؟
اذا فهمي صحيح فلا بد من استعلام ونتيجته هي التي تؤكد لك ان كان (مثلا-الاسم) مسجل من قبل.
المشاركات : 587
المواضيع 129
الإنتساب : Sep 2015
السمعة :
8
الشكر: 1032
تم شكره 2475 مرات في 129 مشاركات
بالضبط يا سلام عليك هذا اللي أبيه إذا مفعل أسمح بالتكرار
إذا غير مفعل لا تسمح بالتكرار
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
هاذي الجمله بدون التشك بكس فعاله
ولكن لما أضعها في جملة أف تتفعل بعدم التكرار في حالة عدم التفعيل البرنامج لا يضيف ويعطي خطأ ولا يسوي شي ....!!!
المشاركات : 587
المواضيع 129
الإنتساب : Sep 2015
السمعة :
8
الشكر: 1032
تم شكره 2475 مرات في 129 مشاركات
ممتاز بس هذا الأستعلم مافهمته
"select count(tid) from tb where tname
سليكت كاونت (أسم القاعده) فروم أسم الجدول وير الأسم
صح كذا لاني بطبقها على قاعدتي أو مره أستخدم أستعلا مثل كذا
المشاركات : 587
المواضيع 129
الإنتساب : Sep 2015
السمعة :
8
الشكر: 1032
تم شكره 2475 مرات في 129 مشاركات
ههههههههههههههههههههههههههههههههههه أنشاء الله
'" & un & "'" هنا أحط التكست بكس