wael20004

ضع هذا المتغير dim rs as recordset ثم عدل السطر db.Open App.Path & "\Call_Center.mdb" الي "set rs=db.Open App.Path & "\Call_Center.mdb واخبرني بالنتيجة

عدل السطر sql.Open "SELECT codes.loc, codes.code FROM codes", db, adOpenDynamic, adLockOptimistic الي sql.Open "SELECT codes.loc, codes.code FROM codes", db, adOpenstatic, adLockOptimistic و أخبرني بالنتيجة

شكرا أخي إبراهيم على إهتمامك

لدي مشروع ارغب فى ان يقوم بحفظ صورة العميل داخل قاعدة بيانات و يقوم باسترجاعها ايضا وعندما ينتقل المستخدم الي سجل اخر تظهر صورة العميل التالي

يمكنك إنشاء مجموعة سجلات recordset بدوى انشاء اتصال مع قاعدةالبيانات كالآتي dim rs as recordset set rs = new recordset recordset.fields.append "fieldname", datatype,definedsize 'أكمل خصائص الحقل ثم تفتح ملف النص عن طريق الدالة open واستخدم الوظيفة addnew لاضاف…