خزن الصورة من قاعدة على الحاسبة

[mkyh86 0]

السلام عليكم

 

ممكن طريقة لخزن الصورة التي خزنة في قاعدة البيانات مباشرة على القرص الصلب او بعد عرضها باستخدام اداة pictureBox

 

مع الشكر والتقدير

 

[mohamedwaly 3]

لتخزين الصور

  OpenFileDialog1.ShowDialog()    imageFilename = OpenFileDialog1.FileName    Dim imageUpload As Image    imageUpload = Image.FromFile(OpenFileDialog1.FileName)    If imageFilename <> "" Then        Dim imageNameTemp As String        imageNameTemp = imageFilename        While (imageNameTemp.Contains("\"))            imageNameTemp = imageNameTemp.Remove(0, imageNameTemp.IndexOf("\") + 1)        End While        Dim ms As New IO.MemoryStream        If imageFilename.Contains("jpeg") Or imageFilename.Contains("jpg") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)        End If        If imageFilename.Contains("png") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Png)        End If        If imageFilename.Contains("gif") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Gif)        End If        If imageFilename.Contains("bmp") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)        End If        'Dim cmd As New SqlCommand("INSERT INTO projectimages (imagename,imagedate,csvprojectref) VALUES ('" + imageFilename + "',@BLOBData,CHECKSUM('" + textboxFileRef.Text + "'))", con)        Dim b() As Byte = ms.ToArray()        Dim cmd As New SqlCommand("INSERT INTO projectimages (imagename,imagedate,csvprojectref) VALUES ('" + imageNameTemp + "',@BLOBData,CHECKSUM('" + textboxFileRef.Text + "'))", con)        cmd.Parameters.Add("@BLOBData", SqlDbType.Image, b.Length).Value = b        '    Dim cmd As New SqlCommand("insert projectimages(imagename,imagedate,csvprojectref) values('imagma','" + img + "',CHECKSUM('" + textboxFileRef.Text + "'))", con)        cmd.ExecuteNonQuery()        '  cmdTemp.Parameters.Add("@photo", SqlDbType.Image, b.Length).Value = b    End If

لعرض الصور

 cmd.CommandText = "select imagedate from projectimages where imagename = '" +      ListBox1.Text + "' and CSVprojectref=checksum('" + textboxFileRef.Text + "')"        cmd.Connection = con        Dim da As New SqlDataAdapter(cmd)        Dim ds As New DataSet()        da.Fill(ds, "projectimages")        Dim c As Integer = ds.Tables(0).Rows.Count        If c > 0 Then            Dim bytBLOBData() As Byte = _                ds.Tables(0).Rows(c - 1)("imagedate")            Dim stmBLOBData As New MemoryStream(bytBLOBData)            PictureBox1.Image = Image.FromStream(stmBLOBData)        End If

و لا تنسى عمل الfield in database as blob

[mkyh86 0]

مشكور اخي على الرد

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

 

مع الشكر