الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

البحث عن سجل في جدول

مغلق
بدأه حسن المنتصر في 11 أغسطس 2005 · 6 رد · 664 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

DataSet1.YourTable.DefaultView.RowFilter = "Field=" & Value

ولكنك قد تريد البحث عن سجل واحد برقم فريد

فستستخدم الكود التالي

Dim I As Int32

        DataSet1.YourTable.DefaultView.Sort = "Field"
        I = DataSet1.YourTable.DefaultView.Find("Value")
        If I < 0 Then
                MessageBox.Show("تعذر العثور على الرقم المطلوب")
        Else
                BindingContext(DataSet1, "YourTable").Position = I
        End If

لمزيد من التوضيح

قمت بتعريف متغير I على انه رقمي و الغرض منه تسجيل رقم الصف أو السجل

وبعد ذلك نحدد نمط الترتيب

DataSet1.YourTable.DefaultView.Sort = "Field"

حيث YourTable تعني اسم الجدول المخصص للبحث فيه

و Field تعني اسم الحقل المخصص للترتيب وكذلك يكون هو الحقل المخصص للبحث فيه

 I = DataSet1.YourTable.DefaultView.Find("Value")

هنا نقوم بالبحث حيث نضع القيمة مكان Value ويكون ناتج البحث هو رقم السجل ويتم اسناد القيمة للمتغير I

If I < 0 Then
        MessageBox.Show("تعذر العثور على الرقم المطلوب")
Else
        BindingContext(DataSet1, "YourTable").Position = I
End If

من المعروف أن رقم اول سجل هو 0 لذلك قمت باختبار قيمة المتغير i

إذا لم يجد السجل المطلوب سوف يعيد قيمة أقل من الصفر -1

أرجو أن اكون قد اوصلت فكرة البحث

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

#2

جزاك الله خير وشكرا على هذه المعلومة القيمة أخي حسن المنتصر وبارك الله فيك وكثر من أمثالك

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#3

جزاك الله خيرا

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#4

اخوي حسن انا جاولت في عملية البحث عندي ماضبطت ليه

انا عندي جدول واحد في الاكسس وابغاه يبحث سواء بالاسم او بالرقم لكن ماضبطت معي فما الحل

وشكر

#5

تسلم يا اخي

#6

اخي العزيز يجب عليك تحديد الحقل الذي تريد البحث فيه كما في الكود التالي

DataSet1.YourTable.DefaultView.Sort = "إسم الحقل"

في حال كنت تبحث عن رقم فقم بكتابة الكود التالي

Dim Cm As CurrencyManager
Dim I as Int32

Me.SqlDataAdapter.Fill(Me.Data1, "TBpart")   

Cm = CType(Me.BindingContext(Me.Data1, "TableName"),CurrencyManager)
Cm.Refresh()

Data1.YourTable.DefaultView.Sort = "ID"
I = Data1.YourTable.DefaultView.Find(TextBox1.Text.ToString)
If I < 0 Then
    MessageBox.Show("تعذر العثور على الرقم المطلوب")
Else
    Cm.Position = I
End If

أما البحث عن الإسم فأنا اواجه به مشاكل ايضا ولمن له خلفية جيدة عن موضوع البحث بالإسم أرجو ان يفيدنا بمعلوماته :(

وبالنسبة لي ساحاول ان اجد حلا لهذه المشكلة إن استطعت

#7

بارك الله فيك

سبحان الله وبحمده سبحان الله العظيم

لا اله الا الله محمدا رسول الله

اللهم اغفر للمسلمين والمسلمات والمؤمنين والمؤمنات الاحياء منهم والاموات

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

حمل كريستال ريبورت 10 اربعه اصدارات

ww12kz.jpg

hashad.jpg

هذا الموضوع مغلق.

مواضيع مشابهة