اخوانى الأعزاء
كيف يتم عمل اسم الحقل كمتغير فى جملة الSELECT ؟
فمثلآ الكود التالى يقوم بالبحث عن السجلات التى فيها قيمة الحقل FIELD1مساوية لقيمة XXX
Dim XXX As String
XXX = TEXT1.TEXT
RS.Open "select * from table1 where FIELD1 like '" & XXX & "'", DB, adOpenStatic, adLockReadOnly
أريد كتابة مثل هذا الكود مع جميع حقول الجدول(FIELD3 ,FIELD3 ,FIELD2 ,FIELD1,-----)
فهل من الازم اعادة الكود عدة مرات لكل حقل منهم مرة
أم كيف يمكن ادخال اسم الحقل كمتغير YYY مثلآ ؟
كتبت هذا الكود فلم يقبله البرنامج
Dim XXX As String
DIM YYY As Field
XXX = TEXT1.TEXT
YYY = TEXT2.TEXT
RS.Open "select * from table1 where YYY like '" & XXX & "'", DB, adOpenStatic, adLockReadOnly
ولكم ألف شكر