أريد حفظ صورة في قاعدة بيانات واسترجاعها

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

و الملف فى المرفقات

example.rar

قبل ان تقرأ التعليق التالى قم بتحميل المرفق و قرأة الكود جيدا ثم اكمل معى

سأفترض انك لن تضع صورة مع كل عنصر فى قاعدة البيانات لذا فإذا اردت اخذ بيانات الصورة من الحقل و وضعها داخل مصفوفة و طبعا الحقل لهذا الصف خالى لذا ستحدث مشكله و هى انك ستضع قيمه null فى المصفوفة و هذا غير مقبول.

لذا لتتجنب تلك المشكله يفضل معرفة حجم هذا الحقل قبل اخذ القيمه منه و وضعها فى المصفوفة

و بناءاً على المثال الموجود فى المرفقات الكود سيصبح كالتالى

With Rdset
	.MoveFirst

	If .Fields("image").ActualSize <> 0 Then
			Pic = .Fields("image")
	end if

	.Close
End With

الخاصيه ActualSize تعود لك بالمساحة المستغله من حقل معين.

و الله ولى التوفيق

مشكور أخي على الرد ... بالاول ما كنت فاهم Binary بس الحمد لله بعد ما حضرتك كتبت الكود انا بحثت عنه وفهمته وجربت ان اكتب كود

بنفسي عنه لكن يظهر رسالة خطأ :

كود الانشاء :

Open App.Path + "\mydata.dat" For Binary As #1

كود الحفظ :

Put #1, , Image1
Close #1
MsgBox "saved"

فما الخطأ في ذالك ؟.؟

medo_Programming كتب:

Open App.Path + "\mydata.dat" For Binary As #1

ده مسار ايه ؟؟؟؟

medo_Programming كتب:

Put #1, , Image1

المتغير Image1 نوعه ايه؟؟؟؟

و الله ولى التوفيق

Open App.Path + "\mydata.dat" For Binary As #1

أقصد بهذا المسار انه ينشأ ملف جديد داخل مجلد البرنامج

Put #1, , Image1

هنا انا لا أقصد بImage بمتغير ولكن هي اداة image يعني انا عايز اضع الصورة اللي في image في الملف .

ارجو ان تكون الفكرة واضحة

راجع لموضوع ده

/index.php?showtopic=147899

و الله ولى التوفيق

تخزين صورة موجودة في مربع صورة image يتم بكل سهولة كما يلي

SavePicture image1.image "c:\AnyFile.bmp"

أخي طارق ينفع ان اجرب طريقتك على ملف قاعدة بيانات ؟

هذا الكود بدل الكود

Put #1, , Image1

وليس للتخزين في قاعدة البيانات

اما للتخزين في قاعدة البيانات يمكنك استخدام الكائن stream كما يلي

dim st as new stream

st.Type = adTypeBinary

st.Open

st.LoadFromFile"filename"

'rs هي recordset و image هو حقل الصورة او الملف

rs!image=st.read

......

rs.update