[RaggiTech]

والآن سنرى كيف نقوم بعمل أمر

Search .

في البداية تعتمد جملة الاستعلام على المحدد من Combo1 لذا سنقوم بعمل جملة Select بالشكل التالي :

كود :

[align=right]Select Case Combo1.ListIndex
Case 0

Case 1

Case 2

Case 3

Case 4

End Select
Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)[/align]

وجميع جمل الاستعلام ستنبى على الجملة الاساسية التي كانت بالشكل التالي :

كود :

[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number"[/align]

إلا أننا سنضيف شرط البحث في آخر هذه الجملة .
من أجل ذلك تكون جملة البحث عن

Name أي الحالة الأولى :

كود :

[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number and tb_product.name='" & Text1.Text & "'"[/align]

* لاحظ أننا لا بد أن نكتب tb_product.name= لأن الاسم الذي نبحث عنه هو اسم البضاعة من Tb_Product .


والحالة الثانية أي البحث عن النوع :

كود :

[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number and tb_category.name='" & Text1.Text & "'"[/align]

* لاحظ أننا هنا بحثنا عن Name ولكنه من جدول الأنواع .


والحالة الثالثة أي حالة البحث عن المصنع :

كود :

[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number and tb_factory.name='" & Text1.Text & "'"[/align]

أما الحالتين الأخريتين فليس الشرط (=) هو الموجود دائماً ، بل إنه يمكن أن يكون < أو > ، وهذا يعتمد على قيمة Combo2 ، ولهذا تكون جملة الاستعلام في الحالة الرابعة :

كود :

[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number and count" & Combo2.Text & Val(Text1.Text)[/align]

وفي الحالة الأخيرة تكون جملة الاستعلام :

كود :

[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number and price" & Combo2.Text & Val(Text1.Text)[/align]

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