بشأن ربط الفيجوال بقاعدة بيانات

طب الX و y وz بيمثلوا ايه؟

تفضل حبيبي وان شاء الله يكون الكود المطلوب

 Dim db
Dim D1, D2 As Variant
	D1 = DateSerial(Val(InputBox(" insert first number ")))
	D2 = DateSerial(Val(InputBox(" insert second number")))
	Data1.RecordSource = "SELECT * From students WHERE DateSerial([x], [y], [z]) Between #" & D1 & "# And #" & D2 & "#;"
	Debug.Print Data1.RecordSource
	Data1.Refresh

مشكور على الكود و لكن ماذا يعنى فانا ما زلت فى مرحلة المبتدئين فى برمجة قواعد البيانات

الأخ solid15 قمت بتصحيح الكود لك علي حسب الكود القديم الي انت وضعة بالمشاركة وهذا الكود يقوم بالبحث داخل قاعدة البانات ما بين الأرقام يعني مثلا انت كتب من 2 الي 10 سيقوم بعرض جميع الأرقام من 2 الي 10 مع العلم ان هذا الكود يحتاج الي اداه DataGrid ليقوم بعرض محتويات البحث بها

تحياتي ،،،

ما هى ال dateserial و ال variant ارجو توضيح الكود بالتفصيل

DataSerial :

تستخدم تلك الدالة لارجاع متغير من نوع تاريخ يحتوي علي متغيرات تمثل السنة والشهر واليوم وتستخدم بالصيغة التالية :

DateSerial(year, month, day)

اخى الكريم مشكور على هذه المساعدات الممتازة و لكنى وددت استخدام between and فى الحصول على الارقام المدخلة من خلال المتغيرات المعرفة فى البداية حيث ان رمز كل من A , B كل منهم متغير و يظهر فى صورة مربع ادخال يتم ادخال اى رقم يريده المستخدم فيهم ثم تبحث جملة الاستعلام داخل قاعدة البيانات عن الارقام الواقعة ما بين تلك القيم المدخلة كمتغيرات ارجو المساعدة و التوضيح كيف يمكن حل ذلك

الأخ solid15 انا مستخدم لك في الكود between and

وظيفة هذا الكود انه يتم عرض ما بين رقين تحددهم انت هم D1 & D2 ويقوم بعرضهم داخل الداتا جريد ارجو ان يكون هذا هو الكود المطلوب

تحياتي ،،،