[Adrees]

(04-03-16, 08:35 AM)khodor1985 كتب : السلام عليكم إخواني الأعزاء ورحمة الله وبركاته
إسمحوا لي أن أضع هذه الفكرة أيضا إلى جانب أخي الكبير إدريس،
يمكن التحقق من وجود البيانات في قاغدة البيانات من خلال الطرق التالية :

الطريقة الأولى :
أولا نقوم بالإعلان عن متغير لنرصد من خلاله عدد الصوف الموجودة في قاعدة البيانات بحيث يمكن أن ننفذ هذه العملية من خلال شرط أو معيارز
ولكن كيف سوف تتم هذه العملية من البعد التطبيقي؟
ببساطة من خلال استدعاء البيانات، بمعنى آخر أنا شاب إسمي عادل أريد إضافة بيانات جديدة إلى قاعدة البيانات قمت باستدعاء البيانات والتحقق منها بناء للشرط وهو القيمة المفتاح المضافة فإذا كانت موجودة سوف ينتقل إلى إجراء آخر وهو التحديث مثلا أو أن لا يقوم بأي إجراء (هذا راجع للمبرمج).
هنا يمكن استخدام الأداة المعروفة والمشهورة التي تستخدم مع الكائن Command ، من خلال هذه الأداة نستطيع أن نتعامل مع العمليات الحسابية والعددية والتجميعية وتمكننا من رصد عدد الصفوف في جدول في قاعدة البيانات، إليك المثال التالي:
لنفترض أننا قمنا بإنشاء جدول بعنوان Person ويتضمن هذا الجدول الحقول التالية :
ID
Fname
Lname
Address
ثم أردنا إضافة بيانات جديدة إلى الجدول دون الوقوع في تكرار البيانات، فسوف نستخدم هنا جملة Select الإستعلامية مع Criteria لاستدعاء البيانات فإذا تطابق الشرط مع قيمة موجودة في قاعدة البيانات فوسوف تقوم جملة Select بإرجاع صف واحد للمستخدم، ومن خلال الأداة ExecuteScalar يمكن معرفة عدد الصفوف
فإذا كان عدد الصفوف التي أرجعها الأداة ExecuteScalar أكبر من القيمة 0 إذا القيمة موجودة مسبقا في قاعدة البيانات وبالتالي سوف يترتب على هذا الأمر الإجراء التالي إما التحديث أو إجراء آخر.

PHP كود :

SELECT * FROM Person Where Fname=@Fname 


PHP كود :

IF CMD.ExecuteScalar > 0 Then
Do Something
Else
Do Something
End If 


إليك هذا المثال أيض بالصور :





ماذا فعلنا هنا :
أولا قمنا بتحميل البيانات إلى DataGrid وهذا هو الكود :

PHP كود :

con.Open()

        Dim strSelect As String = "SELECT * FROM Person"
        cmd = New OleDbCommand(strSelect, con)
        da = New OleDbDataAdapter(cmd)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Person")

        DGVData.DataSource = ds.Tables("Person")

      

        con.Close() 


ثم أضفنا الكود التالي إلى الزر Check للتحقق من وجود البيانات في الجدول :

PHP كود :

Try
            con.Open()

            Dim strSelect As String = "SELECT * FROM Person Where Fname=@Fname"
            cmd = New OleDbCommand(strSelect, con)
            cmd.Parameters.Add("@Fnam", OleDbType.VarWChar).Value = txtFname.Text

            If cmd.ExecuteScalar > 0 Then
                MsgBox("Record exists")
            Else
                MsgBox("Record not exists")
            End If

            con.Close()

        Catch ex As Exception

        End Try 


لقد انتهينا من الطريقة الأولى
ملاحظة الصورة الصورة الأخيرة رفعت بالخطأ

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