السـلام عليكم ورحمة الله وبركاته
عندي شـرط داخل زر الأضافه والشرط عباره عن عدم تكرار البيانات في القاعده عند الحفظ
وضعت تشك بكس ووضعت هذا الأمر
If CheckBox1.CheckState = 1 Then
هنــا كود التنبيه بأنه متكرر
Eles
أختصار sub seve وفيه كود الحفظ
عند التطبيق أتضح لي أني لما أضع على التشك علامه يظهر التنبيه بوجود البيانات مكرره
ولما أزيلها ما يحفظ يبقى كذا بدون ما يعطيني خطأ ولا شي
هل تريد من فكرة التشك بوكس انه يمنع التكرار في حال تفعيله؟ ويسمح اذا لم يفعل؟
اذا فهمي صحيح فلا بد من استعلام ونتيجته هي التي تؤكد لك ان كان (مثلا-الاسم) مسجل من قبل.
بالضبط يا سلام عليك هذا اللي أبيه إذا مفعل أسمح بالتكرار
إذا غير مفعل لا تسمح بالتكرار
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
هاذي الجمله بدون التشك بكس فعاله
ولكن لما أضعها في جملة أف تتفعل بعدم التكرار في حالة عدم التفعيل البرنامج لا يضيف ويعطي خطأ ولا يسوي شي ....!!!
شوف الدالة هذي
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
الدالة تستعلم من الجدول مباشرة فقط غير ما يلزم ليعمل معك
ممتاز بس هذا الأستعلم مافهمته
"select count(tid) from tb where tname
سليكت كاونت (أسم القاعده) فروم أسم الجدول وير الأسم
صح كذا لاني بطبقها على قاعدتي أو مره أستخدم أستعلا مثل كذا
(31-10-15, 03:14 PM)adel27 كتب : [ -> ]ممتاز بس هذا الأستعلم مافهمته
"select count(tid) from tb where tname
سليكت كاونت (أسم القاعده) فروم أسم الجدول وير الأسم
صح كذا لاني بطبقها على قاعدتي أو مره أستخدم أستعلا مثل كذا
سليكت كاونت (أسم عمود الترقيم التلقائي او عمود المفتاح الاساسي) فروم أسم الجدول وير الأسم
كذا
يلف رقبة العدو ان شالله
ههههههههههههههههههههههههههههههههههه أنشاء الله
'" & un & "'" هنا أحط التكست بكس
(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