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