طلب عاجل وضروري

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

برجاء اعتبار المموضوع في غاية الاهمية

- قمت بعمل قاعدة بيانات لإحدي المستشفيات

- عند ادخال البيانات .. تم إدخال 5000 صورة اليها مما أدي الي زيادة حجمها الي 2 .2 جيجا بايت

- دفعني ذلك الي ترقية قاعدة البيانات الي SQL

- في نموذج اضافة موظف وهو نموذج معني بإدخال بيانات الموظف وصورته ادرجت الكود التالي

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

db.Open "Provider=SQLOLEDB.1;Server=EGY1\EGYPTSERVR;Database=EGYPT DATA;UID=sa;PWD=15270"

rs.Open "[emp]", db, adOpenStatic, adLockPessimistic

With rs

.AddNew

![emp_id] = Me.emp_id ... ورقم الموظف

![emp_name] = Me.emp_name ... اسم الموظف

![s_date] = Me.s_date ... تاريخ التعيين

![jop_status] = Me.jop_status ... الحالة الوظيفية

![jop] = Me.jop ... الوظيفة

![company_id] = Me.company_id ... الشركة التابع لها ( حيث انها مجموعة شركات )

'![photo] = Me.photo . .. صورة العميل ( وهنا تكمن المشكلة .. حيث تظهر رسالة خطأ ولا يتم ترحيل الصورة الي قاعدة البيانات )

.Update

End With

rs.Requery

MsgBox "تم تسجيل بيانت الموظف"

الرجاء المساعد العاجلة

وبإنتظار ردكم

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