[adel27]

السـلام عليكم ورحمة الله وبركاته 

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

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

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

Eles

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

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

[سعود]

هل تريد من فكرة التشك بوكس انه يمنع التكرار في حال تفعيله؟ ويسمح اذا لم يفعل؟
اذا فهمي صحيح فلا بد من استعلام ونتيجته هي التي تؤكد لك ان كان (مثلا-الاسم) مسجل من قبل.

[adel27]

بالضبط يا سلام عليك هذا اللي أبيه إذا مفعل أسمح بالتكرار 

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


   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 


الدالة تستعلم من الجدول مباشرة فقط غير ما يلزم ليعمل معك

[adel27]

ممتاز بس هذا الأستعلم مافهمته
"select count(tid) from tb where tname

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

صح كذا لاني بطبقها على قاعدتي أو مره أستخدم أستعلا مثل كذا

[سعود]

(31-10-15, 03:14 PM)adel27 كتب : ممتاز بس هذا الأستعلم مافهمته
"select count(tid) from tb where tname

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

صح كذا لاني بطبقها على قاعدتي أو مره أستخدم أستعلا مثل كذا

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

[adel27]

س ع و د

أي لاف يو

[سعود]

يلف رقبة العدو ان شالله

[adel27]

ههههههههههههههههههههههههههههههههههه أنشاء الله 

'" & 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