كيف يمكن تحويل كود عدم التكرار

معقولة 32 مشاهدة

وما فيش رد واحد

ايه الموضوع صعب

انا لم اعهد ذلك فى المنتدى

انا لست متمكن من الفيجول بيسك بشكل تمام ولكن بعطيك فكره ممكن تستخدمها انت وتشتغل معاك

لو انت قصدك انه الاسم مثلا  محمد عبد الله محفوظ مسبقا في قاعدة البيانات واردت اضافة اسم جديد بنفس الاسم تريده ان يقول لك الاسم موجود مسبقا

كـ فكرة اول اشي لازم يكون التسلسل (رقم الموظف) لا يقبل التكرار 

ثم في جملة سلكت لمن يستعلم عن الاسم ويلاقيه موجود في قاعدة البيانات انه لايسمح لنفس الاسم ان يمتلك رقمين ولو كانو مختلفين مثلا كان في الاول رقمه 1 ومره ثاني كان رقمه 4

نفس الاسم له رقمين 1 و 4 يطلع مسج بوكس انه الموظف موجود مسبقا

او اعتقد انه في if الشرطيه لازم تحطها بهذا الشكل والله اعلم جربها وشوف

If Ks.RecordCount= Trim(Text2.Text) Then

يبدو أنى ما اعرفتش اوضح طلبى بصورة تصل للجميع

انا مثلا استخدمت هذا الكود ولكن لم يضبط معى نهائياً

 Dim sqlds As New SqlDataAdapter("SELECT name FROM tb WHERE name LIKE '" & Trim$(TextBox2.Text) & "'", con)
        MsgBox("هـذا الاسم موجـود مسبقاً")

        If MsgBox("هـل تريـد الحفـظ على أى حال  ؟", MsgBoxStyle.Question + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.YesNoCancel, "رسالة") = MsgBoxResult.Yes Then

ثم كود الحفظ

هل يمكن التعديل على هذا الكود ؟

اخي هذا كود الحفظ وعدم التكرار في السي شارب وانت حوله للفيجول بيسك

string s = "'";
  OleDbCommand save = new OleDbCommand();
save.Connection = conn;
 save.CommandType = CommandType.Text;
 string sql = "select count name from salary where name=" + s + TextBox1.Text + s +;
try
                {
                    conn.Open();
                    OleDbCommand ws = new OleDbCommand(sql, conn);
                    f = ws.ExecuteScalar().ToString();
                    textBox6.Text = f; التكست بوكس هنا تضيفه في الفورم عشان بعرض عدد السجلات الي عدها
                    if (textBox6.Text >0)
                    {
                        MessageBox.Show("هذا المستخدم موجود مسبقا");
                    }
                    else
                    {
                        save.ExecuteNonQuery();
                        conn.Close();
                        MessageBox.Show("تمت الاضافة بنجاح");
                     }

هذا قاعدة بيانات اكسس وانت غير تبعك الى اس كيو ال

السلام عليكم ..

    Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\db.mdb;Persist Security Info=False;"
        Dim Connect As New OleDbConnection(ConnSTR)
        Dim Ds As New DataSet
        Dim sqlds As New OleDbDataAdapter("SELECT [name] FROM tb WHERE [name] LIKE '%" & Trim$(TextBox2.Text) & "%'", Connect)
        sqlds.Fill(Ds, "tb")
        If Ds.Tables("tb").Rows.Count > 0 Then
            MsgBox("هـذا الاسم موجـود مسبقاً")
        End If
        Connect.Close()

 انتبه , هل تبحث بالــ Like  أم = 

حسام الشامي كتب:

السلام عليكم ..

    Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\db.mdb;Persist Security Info=False;"
        Dim Connect As New OleDbConnection(ConnSTR)
        Dim Ds As New DataSet
        Dim sqlds As New OleDbDataAdapter("SELECT [name] FROM tb WHERE [name] LIKE '%" & Trim$(TextBox2.Text) & "%'", Connect)
        sqlds.Fill(Ds, "tb")
        If Ds.Tables("tb").Rows.Count > 0 Then
            MsgBox("هـذا الاسم موجـود مسبقاً")
        End If
        Connect.Close()

 انتبه , هل تبحث بالــ Like  أم = 

شكرا جزيلا  يا اخ حسام الكود اشتغل تمام الحمد لله 

بالنسبة للتنبيه : ابحث بـ Like .. ولكن لماذا ؟

:rolleyes: 

مصطفى_ظيمة كتب:

شكرا جزيلا  يا اخ حسام الكود اشتغل تمام الحمد لله 

بالنسبة للتنبيه : ابحث بـ Like .. ولكن لماذا ؟

عفوا .. عفوا ..

حقيقة , إذا استخدمت  Like  دون استخدام أي من حروف البحث الخاص * ?  فهي تعمل كعمل الــ =

أما لو استخدمت Like  مع % فلا تنسى ان بعض الاسماء في العربية هي جزء من اسماء اخرى مثل "حَمَد"  مع  "حمدون" و "محمد" .. و بالتالي ستحصل على نتائج خاطئة في البحث .

حسام الشامي كتب:

عفوا .. عفوا ..

حقيقة , إذا استخدمت  Like  دون استخدام أي من حروف البحث الخاص * ?  فهي تعمل كعمل الــ =

أما لو استخدمت Like  مع % فلا تنسى ان بعض الاسماء في العربية هي جزء من اسماء اخرى مثل "حَمَد"  مع  "حمدون" و "محمد" .. و بالتالي ستحصل على نتائج خاطئة في البحث .

وما الذى تنصحنى به  من واقع خبراتك ؟

مصطفى_ظيمة كتب:

وما الذى تنصحنى به  من واقع خبراتك ؟

استخدم = للبحث المطابق .. إذا كان النظام المطلوب تصميمه يمنع تكرار الاسماء .

حسام الشامي كتب:

استخدم = للبحث المطابق .. إذا كان النظام المطلوب تصميمه يمنع تكرار الاسماء .

ساراعى ذلك ... واشكرك شكرا جزيلا على مساعدتك لى ونصيحتك وشكرا لكل من حاول مساعدتى

الاخ حسام لدى مشكلتين اخريين فى برنامجى  ... احداهما بسيطة والاخرى صعبة بالنسبة لى

فهل ترجح ان اطرحها عليك هنا ام اطرحها فى موضوع جديد حتى لا اخل بتنظيم المنتدى ولتحقيق اكبر استفادة للجميع

مع مراعاة ان هدفى من طرحها هنا ان تساعدنى انت شخصيا فى حلها :)

الراى لك .. فى انتظار ردك وشكرا لك مرة اخرى وجزاكم الله خيرا

أهلا بك صديقي ...

افتح موضوع جديد .. ستجد مساعدة مني و من باقي المشرفين و الاعضاء ..

حسام الشامي كتب:

أهلا بك صديقي ...

افتح موضوع جديد .. ستجد مساعدة مني و من باقي المشرفين و الاعضاء ..

 شكرا لك اخ حسام

وشكرا لذوقك

خالص تحياتى

الأستاذ الفاضل / حسام الشامي   لو سمحت ممكن تشرحلي الكود . يعني أكتب أسماء الجداول فين وأسماء الحقول فين  بحيث أقدر أستخدمو على قاعدة عندي

un know كتب:

الأستاذ الفاضل / حسام الشامي   لو سمحت ممكن تشرحلي الكود . يعني أكتب أسماء الجداول فين وأسماء الحقول فين  بحيث أقدر أستخدمو على قاعدة عندي

صديقي .. الكود يقوم ببساطة بتنفيذ البحث في قاعدة اللبيانات باستخدام ADO.NET  .. راجع المواضيع المثبتة في منتدى :   ADO.NET مثلا :

 الكامل في قواعد البيانات باستخدام VB.NET

 درس في ADO.NET من الصفر إلى الإحتراف .

  درس في ADO.NET 2005

شكرا جزيلا أخي الكريم