ممكن احد يشرح لي كود البحث

يأخ cute flower يمكنك البحث في الجدول مهما كان نوع الحقل .

على سبيل المثال :

لدينا قاعدة بيانات أسمها (bd1.mdb) موجودة على القرص (c:) وبها

جدول أسمه (t1) يحتوي على الحقول التالية:

رقم الموظف =num

اسم الموظف=name

تاريخ الميلاد=date

ونريد فتح هذا الجدول ومن ثم البحث عن طريق الحقول الثلاثة .

في البداية نعرف متغيرين في (general) على النحو التالي

Dim db as DataBase,rec as RecordSet

من ثم في حدث (load) يتم حجز المتغيرات على النحو التالي

Private Sub Form_Load()

Set db = DBEngine.OpenDatabase("c:db1.mdb", dbOpenDynaset)

Set rec = db.OpenRecordset("t1")

End Sub

ونفرض أن لدينا مربع نص وزر أمر .. أسم مربع النص (text1) .

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

Private Sub Command1_Click()

Dim str As String

str = "num=" & Text1.Text

rec.FindFirst str

If rec.NoMatch = False Then

MsgBox "الموظف موجود"

End If

حيث تم حجز متغير من نوع string ومن ثم قمنا بملأه بأسم الحقل والقيمة

المراد البحث عنها .

ثم استخدمنا دالة (FindFirst) والتي تبحث عن القيمة من بداية الجدول

ومن ثم استخدمنا الدالة (NoMatch) حيث إذا رجعت لنا بالقيمة (False) فيدل

على أن تم العثور على القيمة داخل الحقل

....

أما بالنسبة للحقول النصية كأسم الموظف تتم بنفس الطريقة مع مرعات

وضع علامتان تنصيص للأسم كا

str="name&text1.text & "

أما بالنسبة للحقول التاريخ فتتم بنفس الطريقة مع وضع علامة (#) لبداية

ونهاية التاريخ حيث تكون

str="#" & text1.text & "#"

وأرجو التوفيق .. والسلام عليكم ورحمة الله وبركاته

عدد الزوار حالياً