الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التعامل مع الصور (حفظ وقراءة من قاعدة البيانات) باستخدام Linq To Sql

بدأه عبدالعزيز حبيش في 24 نوفمبر 2008 · 1 رد · 785 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف الحال ياشباب ؟

لكي تتعامل مع الصور في حفظ وقرءة الصور من قاعدة البيانات باستخدام تقنية الــ LINQ TO SQL

هذا هو كود حفظ الصورة مع بياناتها :

 </P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; COLOR: blue; FONT-FAMILY: 'Courier New'; mso-no-proof: yes">Dim</SPAN><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"> picture <SPAN style="COLOR: blue">As</SPAN> Image = PictureBox1.Image<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN><SPAN style="COLOR: blue">Dim</SPAN> Stream <SPAN style="COLOR: blue">As</SPAN> <SPAN style="COLOR: blue">New</SPAN> IO.MemoryStream()<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN>picture.Save(Stream, Imaging.ImageFormat.Jpeg)<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN><SPAN style="COLOR: blue">Dim</SPAN> DataSave <SPAN style="COLOR: blue">As</SPAN> <SPAN style="COLOR: blue">New</SPAN> Daleel<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes"> </SPAN><SPAN style="mso-spacerun: yes">	   </SPAN>DataSave.Id = TextBox1.Text<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN>DataSave.name1 = TextBox2.Text<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN>DataSave.number1 = TextBox3.Text<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN>DataSave.Pict = Stream.GetBuffer<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN>DB.Daleels.InsertOnSubmit(DataSave)<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN>DB.SubmitChanges()<o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN>MsgBox(<SPAN style="COLOR: #a31515">"DATA SAVED..<SPAN lang=AR-SA dir=rtl>تم</SPAN><SPAN dir=ltr></SPAN><SPAN lang=AR-SA><SPAN dir=ltr></SPAN> <SPAN dir=rtl>حفظ</SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN> <SPAN dir=rtl>البيانات</SPAN></SPAN><SPAN dir=ltr></SPAN><SPAN dir=ltr></SPAN>"</SPAN>, MsgBoxStyle.Information, <SPAN style="COLOR: #a31515">"INFORMATION"</SPAN>)</SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left; mso-layout-grid-align: none">

وهذا كود قراءة الصورة مع بياناتها من القاعدة :

 </P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; COLOR: blue; FONT-FAMILY: 'Courier New'; mso-no-proof: yes">Dim</SPAN><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"> ImageSelect = <SPAN style="COLOR: blue">From</SPAN> rd <SPAN style="COLOR: blue">In</SPAN> DB.Daleels _<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">						  </SPAN><SPAN style="COLOR: blue">Where</SPAN> rd.Id = TextBox8.Text _<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">						  </SPAN><SPAN style="COLOR: blue">Select</SPAN> rd.Pict<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">		</SPAN><SPAN style="COLOR: blue">For</SPAN> <SPAN style="COLOR: blue">Each</SPAN> de <SPAN style="COLOR: blue">In</SPAN> ImageSelect<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">			</SPAN><SPAN style="COLOR: blue">Dim</SPAN> Array <SPAN style="COLOR: blue">As</SPAN> <SPAN style="COLOR: blue">Byte</SPAN>() = de.pict.ToArray<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">			</SPAN><SPAN style="COLOR: blue">Dim</SPAN> stream <SPAN style="COLOR: blue">As</SPAN> <SPAN style="COLOR: blue">New</SPAN> IO.MemoryStream(Array)<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">			</SPAN><SPAN style="COLOR: blue">Dim</SPAN> Pictures <SPAN style="COLOR: blue">As</SPAN> Image = Image.FromStream(stream)<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">			</SPAN>PictureBox1.Image = Pictures<o:p></o:p></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">			</SPAN>PictureBox1.Visible = <SPAN style="COLOR: blue">True<o:p></o:p></SPAN></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 11pt; COLOR: blue; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><o:p></o:p></SPAN></P> <P class=MsoNormal dir=rtl style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left" align=right><SPAN dir=ltr style="FONT-SIZE: 11pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">   </SPAN><SPAN style="mso-spacerun: yes">	 </SPAN><SPAN style="COLOR: blue">Next<o:p></o:p></SPAN></SPAN></P> <P class=MsoNormal style="TEXT-JUSTIFY: kashida; MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: justify; TEXT-KASHIDA: 0%; mso-layout-grid-align: none">

طبعا اعملو بعض التعديلات في الاكواد لكي تعمل في مشاريعكم

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

تحياتي لكم smile.gif

#2

ليش محرر كتابة المواضيع كذا؟؟؟؟؟؟؟؟؟؟ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

:angry: :angry: :angry:

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

الكود :

 

Dim picture As Image = PictureBox1.Image

		Dim Stream As New IO.MemoryStream()

		picture.Save(Stream, Imaging.ImageFormat.Jpeg)

		Dim DataSave As New Daleel

		DataSave.Id = TextBox1.Text

		DataSave.name1 = TextBox2.Text

		DataSave.number1 = TextBox3.Text

		DataSave.Pict = Stream.GetBuffer

		DB.Daleels.InsertOnSubmit(DataSave)

		DB.SubmitChanges()

		MsgBox("DATA SAVED..تم حفظ البيانات", MsgBoxStyle.Information, "INFORMATION")

قراءة الصورة من قاعدة البيانات

الكود :

 

Dim ImageSelect = From rd In DB.Daleels _

						  Where rd.Id = TextBox8.Text _

						  Select rd.Pict

		For Each de In ImageSelect

			Dim Array As Byte() = de.pict.ToArray

			Dim stream As New IO.MemoryStream(Array)

			Dim Pictures As Image = Image.FromStream(stream)

			PictureBox1.Image = Pictures

			PictureBox1.Visible = True



		Next

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…