ادخال صورة لقاعدة بيانات sql2000

السلام عليكم

حفظ المسار لا يتطلب سوى OpenFileDialog وعند جلب الصورة لل picture box

ستأخذ مسار الصورة من الخاصية FileName التابعة للـ OpenFileDialog بهذا الشكل

 With OFD

			'Your custom Title
			.Title = "صندوق الصور"


			'Filtering to show only the Image With jpg & gif
			.Filter = "Image Files(*.JPG;) |*.jpg;"

			'IF the picture Picked Up Then
			If .ShowDialog = Windows.Forms.DialogResult.OK Then
				'Load picture into PictureBox
				Me.picBox.Image = Image.FromFile(.FileName)

'now add the fileName value to the column object.
ثم تسند مسار الصورة للعامود المخصص له 

			End If
		End With
		OFD.Dispose()

وعند جلب الصورة بعد الحفظ تحدد مسار الصورة في الخاصية Image.FromFile

 Me.picBox.Image = Image.FromFile(ImagePathColumn)

على سبيل المثال لقراءة الصورة عن الضغط على أزرار الابحار نقوم بالتالي

نعرف متغير نصي النوع ليتولى أخذ القيمة من العامود المخصص لنقل اسمه FileName و اسم الجدول Pictures إليك ذلك.

 Private ImagePath As String = String.Empty

ثم في حدث الضغط على الازرار أو في إجراء معين لأختصار كتابة الكود تكراراً يكون كالتالي:

 Dim i As Integer = CType(Me.BindingContext(Ds2, "pictures").Position, Integer)
ImagePath = CType(Ds2.Tables(0).Rows(i)("FileName"), String)
 PB.Image = Image.FromFile(ImagePath)

بالتوفيق إن شاء الله.

هل هناك مثال

ارجو الرد

thanks hunter but i need simple code

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

يوجد في التوقيع خاصتي إجرائية بسيطة لإدخال الصور في قاعدة البيانات بسهولة ..

مرفقة بكود اختبار ..

يمكنك الإطلاع عليه .. فهو بسيط ومجرب :)